51Testing软件测试论坛

标题: 在线等待各位大家帮助 [打印本页]

---

作者: jiangzi512    时间: 2011-9-20 20:41
标题: 在线等待各位大家帮助
在代码回放过程中，弹出的对话框无法自动关闭，每次都需手动关闭
在线等待各位大侠求解

[attach]75350[/attach]
代码如下：
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

---

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

---

作者: jiangzi512    时间: 2011-9-21 10:30


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

---

作者: Ganve_001    时间: 2011-9-21 11:36
拿出来试试。。

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    时间: 2011-9-21 23:27
回复 4# Ganve_001


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

---

作者: piaolingxue423    时间: 2011-9-23 12:44
好了就可以了 呵呵  还是论坛里热心人多啊

---

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

Powered by Discuz! X3.2