【急】--------------为什么我没办法用QTP输入密码！

fugoo

如下一段代码：
SystemUtil.Run "iexplore.exe" ,"www.weibo.com" '打开新浪微博
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebEdit("html id:=loginname").Set "user"
wait 1
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebEdit("html id:=password_text").Set "pwd"
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebCheckBox("html id:=remusrname").Set "OFF"
wait 1
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebElement("html id:=login_submit_btn").Click

这一段代码可以在用户名那个输入框输入“user”
但是不能在密码那个输入框输入任何信息。

这是为什么啊，应该怎么样才能解决这个问题。。求帮助！！！

hsjzfling

橙色标注的部分为增加或修改内容

RegisterUserFunc "WebEdit", "Type", "WebEditType", True
SystemUtil.Run "iexplore.exe" ,"www.weibo.com" '打开新浪微博
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebEdit("html id:=loginname").Set "2"
wait 1
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebEdit("html id:=password_text").Type "hi"
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebCheckBox("html id:=remusrname").Set "OFF"
wait 1
Browser("name:=新浪微博.*").Page("title:=新浪微博.*").WebElement("html id:=login_submit_btn").Click

Public Function WebEditType(ByRef objWebEdit, ByRef strWords)
objWebEdit.Click
CreateObject("Wscript.Shell").SendKeys strWords
End Function

fugoo

感谢KevinH的帮助，我将你的代码拷入到QTP中运行，但还是提示语法错误。

fugoo

回复 4# cellule


谢谢啦， 有没有办法通过sendkeys 输入字符串变量？ 我不想把输入框输入的数据定死

hsjzfling

回复 3# fugoo


    你有把代码完整copy过去运行么。。。语法错误你应该要能自己判断是什么原因，这是最基础的技能

fugoo

回复  fugoo


    你有把代码完整copy过去运行么。。。语法错误你应该要能自己判断是什么原因，这是最 ...
hsjzfling 发表于 2012-4-17 13:23

   嗯，有运行过，之前提示出来的语法错误让我真的无法判断问题出在哪里，昨天电脑和QTP重装以后，再次把这段代码copy进去反而可以运行了。 谢谢。