51Testing软件测试论坛

标题: 大家来帮忙查看脚本哪出错了 [打印本页]

作者: 千与千寻KOKO 时间: 2012-3-9 13:42
标题: 大家来帮忙查看脚本哪出错了
[attach]77907[/attach]这个一个登录界面，我的想法是：看输入框中是否输入了用户名admin和密码123456.abcd.如果输入正确才能成功登录，下面我把我的脚本给大家看看，看问题是出在哪了：
action1的脚本：
systemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://10.136.32.172:8080/platforms"
Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员名称").Set "admin"
Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员密码").Set "123456.abcd"
login_name=Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员名称").GetROProperty("value")
login_password=Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员密码").GetROProperty("value")

DataTable.Value("Runtime_data","Global")=login_name
DateTable.Value("Runtime_data","Global")=login_password
Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").Image("登录按钮").Click
RunAction "Action2", oneIteration
action2的脚本：
login_name=DataTable.Value("Runtime_data","Global")
login_password=DataTable.Value("Runtime_data1","Global")
CheckValue=Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员名称").GetROProperty("value")
CheckValue=Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员密码").GetROProperty("value")
If CheckValue=login_name and CheckValue=login_password Then
msgbox "登陆成功"
else
msgbox "登录失败"
End If

作者: lujian2036 时间: 2012-3-9 16:52
这一句
CheckValue=Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员名称").GetROProperty("value")
CheckValue=Browser("中海油电子文档加密及权限控制系统").Page("中海油电子文档加密及权限控制系统").WebEdit("管理员密码").GetROProperty("value")
为何都赋值给CheckValue变量，是不是造成密码内容又覆盖了用户名
2： CheckValue=login_name and CheckValue=login_password 这个比较不对，这样是赋值了
3：取密码的操作，这个密码如果是用的那种密码对话框，应该是不能直接读出内容的吧。

作者: 千与千寻KOKO 时间: 2012-3-10 10:07
回复 2# lujian2036

嗯，我知道了，谢谢您的帮助

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