描述性编程脚本，回放脚本时，winedit不能输入，为什么？

kasad

我的脚本如下：
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

Set browsDesc = description.create()
                Set pageDesc = description.create()
没看到这两句在哪定义的.

kasad

要怎么定义？
Set 不是定义加赋值吗？

lyscser

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

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

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

kasad

刚加了判断
Browser(browsDesc).Dialog(mDes).WinEdit("Attached text:=用户名(U):").Exist
结果为False
这为什么？

kasad

录制的脚步：
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

录制的脚步可正常使用

kasad

自己顶

kasad

Browser(browsDesc).Dialog(mDes).WinEdit(wEdtDesc).Set("admin")
执行这句
提示The operation cannot be performed
为什么

shanfeng1419

问题解决了么，如果解决了，想知道错误的原因

kasad

解决了
winEdit识别的问题
用Attached text不能识别 ，不知为什么
用index识别的