|
Dim outputvalue
Dim istatus
Dim i
For i=1 to datatable.GetSheet ("Action1") .getrowcount
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set DataTable("username", dtGlobalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure DataTable("password", dtGlobalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 28,9
Browser("Welcome: Mercury Tours").Dialog("Internet Explorer").WinButton("确定").Click
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Output CheckPoint ("Welcome: Mercury Tours")
outputvalue=Datatable ("outmsg",dtGlobalSheet)
istatus=datatable("status",dtGlobalSheet)
If outputvalue <>istatus Then
reporter.ReportEvent 1,"denglugongnengceshi","qiwangzhiwei:"+istatus+",shijiantishixinxiwei:"+outputvalue
Else
reporter.ReportEvent 0,"denglugongnengceshi","ceshichenggong!"
End If
datatable.GetSheet ("Action1").SetNextRow
Next
请问这段代码错误在哪里?该如何修改呢?? 请帮忙解决哈 |
|