|
我用如下语句datapool=SQADatapoolOpen("ygq1")
报如下错误:Variable SQADatapoolOpen undefined
脚本如下:
Sub Main
Dim Result As integer
dim i as integer
dim r as String
'Initially Recorded: 2004-7-22 19:31:41
'Script Name: test7
'Result1=1
StartApplication """D:\Program Files\Tencent\qq\QQ.exe"""
datapool=SQADatapoolOpen("ygq1")
for i=1 to 5
Call SQADatapoolFetch(datapool)
Call SQADatapoolValue(datapool,1,r)
Window SetContext, "Class=#32770", ""
EditBox Left_Drag, "Label=QQÃÜÂ룺", "Coords=1,8,-5,8"
InputKeys r
EditBox Click, "Label=QQÃÜÂ룺", "Coords=5,7"
InputKeys "{BKSP}"
PushButton Click, "Text=怬"
Window SetContext, "Caption=´íÎó", ""
PushButton Click, "Text=·ñ(N)"
Window SetContext, "Class=#32770", ""
next i
Call SQADatapoolClose(datapool)
End Sub
'?????? |
|