51Testing软件测试论坛

标题: 描述性编程脚本，回放脚本时，winedit不能输入，为什么？ [打印本页]

作者: kasad 时间: 2011-4-28 09:19
标题: 描述性编程脚本，回放脚本时，winedit不能输入，为什么？
我的脚本如下：
Function login(Sheet_Name)
'关闭所有的IE窗口，避免出现问题
SystemUtil.CloseProcessByName "iexplore.exe"
'打开IE，进入站点
SystemUtil.Run "iexplore.exe"
Set browsDesc = description.create()
Set pageDesc = description.create()
Set curPage = Browser(browsDesc).Page(pageDesc)
curPage.Sync
Browser(browsDesc).Navigate (DataTable("URL",Sheet_Name))
Set mDes = Description.Create()
    mDes("text").value = ".*Internet Explorer"
    mDes("nativeclass").value = "#.*"
    msgbox(DataTable("用户名",Sheet_Name))
    Browser(browsDesc).Dialog(mDes).WinEdit("Attached text:=用户名(U):").set DataTable("用户名",Sheet_Name)
    msgbox(DataTable("密码",Sheet_Name))
    Browser(browsDesc).Dialog(mDes).WinEdit("Attached text:=密码(P):").set "" 'DataTable("密码",Sheet_Name)
    Browser(browsDesc).Dialog(mDes).WinButton("Class Name:=WinButton","text:=确定").Click
回放时，用户密码没有输入内容，button按钮也没有单击
但msgbox显示内容正确

作者: 43528782 时间: 2011-4-28 09:24
Set browsDesc = description.create()
Set pageDesc = description.create()
没看到这两句在哪定义的.

作者: kasad 时间: 2011-4-28 09:29
要怎么定义？
Set 不是定义加赋值吗？

作者: lyscser 时间: 2011-4-28 09:32

Set browsDesc = description.create()
Set pageDesc = description.create()
没看到这两 ...
43528782 发表于 2011-4-28 09:24

VBS在没有明确声明option explicit的情况下不需要显式声明变量，编译器在执行的时候会自动生成定义

楼主这代码很明显输入密码被注释掉了，输入的本来就是空，好像没啥不对的

作者: kasad 时间: 2011-4-28 09:33
刚加了判断
Browser(browsDesc).Dialog(mDes).WinEdit("Attached text:=用户名(U):").Exist
结果为False
这为什么？

作者: kasad 时间: 2011-4-28 09:37
本帖最后由 kasad 于 2011-4-28 09:38 编辑

录制的脚步：
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","","C:\Documents and Settings\luoxiaoying","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://127.0.0.1/index.htm"
Browser("Browser").Page("Login").Sync
Browser("Browser").Navigate "about:blank"
Browser("Browser").Dialog("连接到 127.0.0.1").WinEdit("用户名(U):").Set DataTable("p_Text1", dtGlobalSheet)
Browser("Browser").Dialog("连接到 127.0.0.1").WinEdit("密码(P):").SetSecure DataTable("p_Text2", dtGlobalSheet)
Browser("Browser").Dialog("连接到 127.0.0.1").WinButton("确定").Click

作者: kasad 时间: 2011-4-28 09:38
录制的脚步可正常使用

作者: kasad 时间: 2011-4-28 14:01
自己顶

作者: kasad 时间: 2011-4-28 16:39
Browser(browsDesc).Dialog(mDes).WinEdit(wEdtDesc).Set("admin")
执行这句
提示The operation cannot be performed
为什么

作者: shanfeng1419 时间: 2011-4-29 09:44
问题解决了么，如果解决了，想知道错误的原因

作者: kasad 时间: 2011-4-29 10:41
解决了
winEdit识别的问题
用Attached text不能识别，不知为什么
用index识别的

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