yg_82 发表于 2004-7-23 10:59:43

SQADatapoolOpen报错

我用如下语句datapool=SQADatapoolOpen("ygq1")
报如下错误：Variable SQADatapoolOpen undefined
脚本如下：
Sub Main
    Dim Result As integer
    dim i as integer
    dim r as String
    'Initially Recorded: 2004-7-2219: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

'？？？？？？

yg_82 发表于 2004-7-23 11:19:20

解决了，原来是少写了下面这句：
'$Include "sqautil.sbh"
页: [1]
查看完整版本: SQADatapoolOpen报错