|
我刚录制完脚本加入了数据池,点击回放和编译无任何反应。那位帮我看一下
'$Include"sqautil.sbh"
Sub Main
Dim Result As Integer
dim groupname as string
dim cycnumber as Integer
'Initially Recorded: 2007-11-16 13:33:10
'Script Name: group
groupdp = SQADataPoolOpen("zuname")
for cycnumber = 1 to 15
call SQADataPoolFetch(groupdp)
call SQADataPoolValue(groupdp,1,groupname)
Window SetContext, "Caption=Central", ""
ListView Click, "ObjectIndex=1", "Coords=218,38"
Toolbar Left_Drag, "ObjectIndex=1;\;ItemID=32798", "Coords=25,26,22,26"
Window SetContext, "Caption=添加组", ""
InputKeys groupname
PushButton Click, "Text=确定"
Window SetContext, "Caption=Central", ""
TreeView Click, "ObjectIndex=1", "Coords=85,143"
TreeView Click, "ObjectIndex=1;\;ItemText=所有组->"groupname, "Location=Icon"
Toolbar Click, "ObjectIndex=1;\;ItemID=32799", "Coords=32,5"
Window SetContext, "Caption=添加终端", ""
InputKeys groupname
EditBox Click, "ObjectIndex=2", "Coords=26,7"
InputKeys groupname
EditBox Click, "ObjectIndex=3", "Coords=26,8"
InputKeys groupname
EditBox Click, "ObjectIndex=4", "Coords=32,4"
InputKeys groupname
ComboBox Click, "ObjectIndex=1", "Coords=77,12"
ComboListBox Click, "ObjectIndex=1", "Text=groupname"
PushButton Click, "Text=确定"
Window SetContext, "Caption=Central", ""
ListView Click, "ObjectIndex=1", "Coords=254,272"
ListView Click, "ObjectIndex=1", "Coords=58,120"
next groupname
call SQADataPoolClose(groupdp)
End Sub |
|