在线等待各位大家帮助

jiangzi512

在代码回放过程中，弹出的对话框无法自动关闭，每次都需手动关闭
在线等待各位大侠求解


代码如下：
Browser("xxxxxx").Page("xxxxxx").WebEdit("user.name").Set DataTable("username", dtGlobalSheet)
Browser("xxxxxx").Page("xxxxxx").WebEdit("user.password").SetSecure DataTable("password", dtGlobalSheet)
Browser("xxxxxx").Page("xxxxxx").WebEdit("veryCode").Set "oxh1"
Browser("xxxxxx").Page("xxxxxx").WebButton("WebButton").Click
If Browser("xxxxxx").Dialog("Microsoft Internet Explorer").Exist Then
If Browser("xxxxxx").Dialog("Microsoft Internet Explorer").static("text:=[用户名不能为空!]").Exist Then
Browser("xxxxxx").Dialog("Microsoft Internet Explorer").WinButton("确定").click
Reporter.ReportEvent micPass,"失败测试","用户名不能为空"

elseif Browser("xxxxxx").Dialog("Microsoft Internet Explorer").static("test:=[密码不能为空!]").Exist then
Browser("xxxxxx").Dialog("Microsoft Internet Explorer").WinButton("确定").click
Reporter.ReportEvent micPass,"失败测试","密码不能为空"

elseif Browser("xxxxxx").Dialog("Microsoft Internet Explorer").static("test:=[用户名或密码错误!]").Exist then
Browser("xxxxxx").Dialog("Microsoft Internet Explorer").WinButton("确定").click
Reporter.ReportEvent micPass,"失败测试","用户名、密码输入不正确"
else Reporter.ReportEvent micFail,"输入异常","输入异常错误！"
End If
else
Reporter.ReportEvent micPass,"登录成功","登录成功！"
end if

piaolingxue423

好了就可以了 呵呵  还是论坛里热心人多啊

jiangzi512

回复 4# Ganve_001


    ok,好了，是对象没被识别吧，spy了一下
   多谢你的帮助啊

Ganve_001

拿出来试试。。

1. Browser("xxxxxx").Page("xxxxxx").WebEdit("user.name").Set DataTable("username", dtGlobalSheet)
   
2. Browser("xxxxxx").Page("xxxxxx").WebEdit("user.password").SetSecure DataTable("password", dtGlobalSheet)
   
3. Browser("xxxxxx").Page("xxxxxx").WebEdit("veryCode").Set "oxh1"
   
4. Browser("xxxxxx").Page("xxxxxx").WebButton("WebButton").Click
   
5. If Browser("xxxxxx").Dialog("Microsoft Internet Explorer").Exist Then
   
6.         If Browser("xxxxxx").Dialog("Microsoft Internet Explorer").static("text:=[用户名不能为空!]").Exist Then
   
7.                 Reporter.ReportEvent micPass,"失败测试","用户名不能为空"
   
8.         elseif Browser("xxxxxx").Dialog("Microsoft Internet Explorer").static("test:=[密码不能为空!]").Exist then
   
9.                 Reporter.ReportEvent micPass,"失败测试","密码不能为空"
   
10.         elseif Browser("xxxxxx").Dialog("Microsoft Internet Explorer").static("test:=[用户名或密码错误!]").Exist then
    
11.                 Reporter.ReportEvent micPass,"失败测试","用户名、密码输入不正确"
    
12.         else
    
13.                 Reporter.ReportEvent micFail,"输入异常","输入异常错误！"
    
14.                 flag = 1
    
15.         End If
    
16.         If flag <> 1 Then
    
17.                 Browser("xxxxxx").Dialog("Microsoft Internet Explorer").WinButton("确定").click
    
18.         Else
    
19.         'Keep going
    
20.         End If
    
21. else
    
22.         Reporter.ReportEvent micPass,"登录成功","登录成功！"
    
23. end if

复制代码

jiangzi512

75352[/attachimg]
调整以后在执行到第一行参数后会弹出上边错误信息

shanfeng1419

If Browser("xxxxxx").Dialog("Microsoft Internet Explorer").static("text:=[用户名不能为空!]").Exist Then
Browser("xxxxxx").Dialog("Microsoft Internet Explorer").WinButton("确定").click
end if
这句话在代码开头处再写一遍，行不？