51Testing软件测试论坛

标题: goto语句的问题 [打印本页]

作者: wsryyffs 时间: 2006-5-23 20:09
标题: goto语句的问题
如下是脚本,我goto到password:  ,运行不了,提示"playback in progress...waiting for window"
'$Include "common.sbh"
'$Include "dbOper.sbh"
Sub Main
Dim Result As Integer

Dim vn_flag As Integer

'Initially Recorded: 2006-5-23  16:50:26
'Script Name: gsm_改号_3
'弹出对话框的内容
Dim Dialogstr As string
'取操作员返回信息的数据串
Dim Opernamestr As string

'从数据库取出城市和受理点
Dim arry_opername(1 To 2, 1 To 2)  As Variant

'从数据库取出密码验证号码
Dim  vs_service_id(1 To 2, 1 To 1)  As Variant

'数据库表信息的返回状态
Dim dbresult as long

'密码
Dim vs_password As string

StartBrowser "http://172.20.24.5:9001", "WindowTag=WEBBrowser"

Window SetContext, "Caption=输入网络密码", ""

'获取操作员工号Opernamestr
Result=SQAGetProperty("\;Type=Window;Caption=输入网络密码;\;Type=EditBox;Label=用户名(U)","Text",Opernamestr)
if Result<>0 then
SQALogMessage sqaFail,"取操作员返回信息失败","取返回信息!"
'msgbox(Result)
Exit Sub
else
SQALogMessage sqaPass,"操作员返回信息："+Opernamestr,"认证通过!"
end if

PushButton Click, "Text=确定"

'获取操作员的city_code,department
dbresult=globalQuery("hbbus","unitele","lemontea","select city_code,department from bm_person_name_t where lower(account)= "+"'"+Opernamestr+"'",arry_opername)
'msgbox(dbresult)
if dbresult<0 then
'msgbox(dbresult)
SQALogMessage sqaFail,"连接数据库失败","连接数据库失败!"
Exit Sub
end if

'调试语句，输出city_code,department
'msgbox(arry_opername(1,1))'city_code
'msgbox(arry_opername(2,1))'department

'获取密码验证号码

dbresult=globalQuery("hbbus","unitele","lemontea","select service_id,password from bb_service_relation_t where city_code="+arry_opername(1,1)+" and service_kind=9 and if_valid=1 and serving_status=1 and PRESERVE12=0 and preserve02<>3 and service_id not in ('13088990001','13304110026') and rownum=1",vs_service_id)
'msgbox(dbresult)
if dbresult<0 then
'msgbox(dbresult)
SQALogMessage sqaFail,"连接数据库失败","连接数据库失败!"
Exit Sub
else
SQALogMessage sqaPass,"改号前号码："+vs_service_id(1,1),"查询时弹出信息!"
end if

'调试语句，输出vs_service_id
'msgbox(vs_service_id(1,1))'密码验证号码
'msgbox(vs_service_id(2,1))'密码

vs_password="888888"
vn_flag=1
Window SetContext, "WindowTag=WEBBrowser", ""
Window WMaximize, "", ""

Browser SetFrame,"Type=HTMLFrame;HTMLId=left_page",""
Browser NewPage,"",""
HTML Click, "Type=HTML;HTMLId=GSM改号", "Coords=31,7"
Browser SetFrame,"Type=HTMLFrame;HTMLId=right_page;\;Type=HTMLFrame;HTMLId=header",""
Browser NewPage,"HTMLTitle=GSM改号;Index=0",""
EditBox Click, "Type=EditBox;Name=TPhoneNumber", "Coords=22,7"
InputKeys vs_service_id(1,1)
EditBox Click, "Type=EditBox;Name=TPassword", "Coords=38,14"
DelayFor (1000)
password:
if vn_flag=1 then
InputKeys "{BKSP}{BKSP}{BKSP}{BKSP}{BKSP}{BKSP}"
end if
InputKeys vs_password'"CQAAAKQAAABdVOtDjKE5HA0="
PushButton Click, "Type=PushButton;Name=Bquery"

'Window SetContext, "Caption=Microsoft Internet Explorer", ""
'PushButton Click, "Text=确定"

DelayFor (1000)
refetch:
Result=SQAGetProperty("\;Type=Window;Caption=Microsoft Internet Explorer;\;Type=Label;ObjectIndex=1","Text",Dialogstr)
if Result=0 and instr(Dialogstr,"欠费")  then
      Window SetContext, "Caption=Microsoft Internet Explorer", ""
      PushButton Click, "Text=确定"

      SQALogMessage sqaPass,"欠费验证通过!"+Dialogstr,"欠费验证通过!"
      goto refetch
   elseif Result=0 and instr(Dialogstr,"密码不正确")  then
   Window SetContext, "Caption=Microsoft Internet Explorer", ""
      PushButton Click, "Text=确定"
   SQALogMessage sqaPass,"密码验证通过!"+Dialogstr,"密码验证通过!"

      vs_password=vs_service_id(2,1)
      goto password
   else
      SQALogMessage sqaFail,"密码验证不通过!","密码验证不通过!"

end if

End Sub

作者: wsryyffs 时间: 2006-5-24 07:26
已经解决

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)