vb登陆窗口录制问题！急！！！！！在线等！

lyj841120

没遇到过这样的问题，不过可以先尝试查看防火墙的日志，排除掉防火墙的问题，再查看被测软件的安全日志，确认是不是被测程序的安全功能屏蔽了QTP。

若查不出原因，也可以尝试在激活密码框的焦点之后使用WSH的SendKeys方法来输入密码，看是否奏效。关于Sendkeys的用法可以查看帮助，有详细的说明和例子

防火墙的日志和软件的安全日志读看了没有，我试把防火墙关了在录也不行，现在正在试你说的WSH的SendKeys方法。

lyj841120

若查不出原因，也可以尝试在激活密码框的焦点之后使用WSH的SendKeys方法来输入密码，看是否奏效。关于Sendkeys的用法可以查看帮助，有详细的说明和例子

我先录制，到密码框的时候激活焦点，然后
        dim WshShell = WScript.CreateObject("WScript.Shell");
        WshShell.SendKeys("123456");
        set WshShell = nothing
点登陆，报没有输入密码。看来是没有输入成功，请问是我方法不对还是什么问题啊！

hsjzfling

你在QTP中执行的那段代码？？难道不会报错。。。
1. 先在QTP中获取密码框的焦点，比如添加一步点击密码框的操作，可以用F7的方式单步添加；若对象库中已存在密码框的对象，也可以手动写一下；也可以在填完用户名之后按Enter或者Tab等键将焦点移动到密码框（看系统是否支持咯），这一动作若不能录制下来，也可以用sendkeys方法来实现，发送个"{Enter}"或者"{Tab}"
2. 在Click密码框之后使用wsh来发送密码
Set WshShell=CreateObject("WScript.Shell")
WshShell.SendKeys "123456"

lyj841120

我的代码如下：
With VbWindow("login")
        .Move 397,266
        .VbEdit("UserID").Set "liangyj"
        .VbEdit("PassWord").Click
        Set WshShell=CreateObject("WScript.Shell")
        WshShell.SendKeys "123456"
        .Activate
        .VbButton("Login").Click
End With

可试还是不行。

[ 本帖最后由 lyj841120 于 2009-8-18 18:12 编辑 ]