|
GOTO语句出现的错误了,但不知是错在哪里?请各位帮忙一下吧。
Sub Main
Dim Result As Integer
'Initially Recorded: 2005-11-06 20:35:07
'Script Name: liuchao2
Window SetContext, "Caption={人事信息管理*}", ""
Window SetContext, "Caption=在职人员信息;ChildWindow", ""
PushButton Click, "Text=调 整"
Result = WindowVP (Exists, "Caption=调整人员编号", "VP=Window Image;wait=5,5")
if result<>1 then
SQAConsolewrite "调整人员编号对话框启动失败"
Goto i
else
SQAConsolewrite "调整人员编号对话框启动成功"
Window SetContext, "Caption=调整人员编号", ""
PushButton Click, "Text=退 出"
end if
i: Window SetContext, "Caption={人事信息管理*}", ""
Window SetContext, "Caption=在职人员信息;ChildWindow", ""
GenericObject Click, "Class=TScrollBox;ClassIndex=1", "Coords=67,390"
Window SetContext, "Caption={*任职情况}", ""
PushButton Click, "Text=退 出"
End Sub
[ Last edited by 村上舞!舞!舞 on 2005-11-7 at 12:46 ] |
|