首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

很晚了。可小弟我还在解决WebBrowse的一个有关问题。实在找不到解决方法。求大姐帮忙。十分感谢了

2012-03-11 
很晚了。可我还在解决WebBrowse的一个问题。实在找不到解决办法。求各位大哥大姐帮忙。十分感谢了。问题是这样

很晚了。可我还在解决WebBrowse的一个问题。实在找不到解决办法。求各位大哥大姐帮忙。十分感谢了。
问题是这样的:
我用WebBrowse打开了一个网页。这是一个注册。里面有
'================================================================================
邮件 <input name="txtmail" id="j_mail" type="text" />
用户名 <input name="txtuser" id="j_user" type="text" />
密码 <input name="txtpass" id="j_pass" type="text" />
确定密码 <input name="txtrpass" id="j_rpass" type="text" />
提交 <button type="submit" id="j_submit">

我分别给他们赋了值
  Dim objDoc
  Set objDoc = WebBrowser1.Document
  objDoc.All("J_mail").Value = "aaaa@qq.com" '邮件
  objDoc.All("J_user").Value = "useraaaa" '用户名
  objDoc.All("J_pass").Value = "aaa111" '密码
  objDoc.All("J_rpass").Value = "aaa111" '确定密码
'================================================================================

现在的问题是这个提交按钮是灰色的。虽然我的数据都填进去了。但是网页的事件还没有触发。
我用VB赋了值后依次点一下各个INPUT验证就过了。但是我想达到的效果是不用点。让VB自动去触发这些事件

我想了好久。也找了很多资料没有找到。

谢谢大家了。分不多。但是很想解决这个问题。谢谢

[解决办法]
不知道 可不可以这样
把验证写到按键的keypress事件 中
[解决办法]
哪个网页?说出来试试.
[解决办法]
确实比较晚...up一下
[解决办法]
帮顶
[解决办法]
直接调用OnClick事件。
[解决办法]
辛苦了!up
[解决办法]
最好给出网址,input里面肯定有什么keyPress keyup什么事件的,你设置值后直接调用下就行了
[解决办法]
是不是没考虑网页延时啊?你手工点击的话有延时的。
[解决办法]
推荐改用AutoHotKey软件
[解决办法]

VB code
Dim objDoc Set objDoc = WebBrowser1.Document objDoc.All("J_mail").FocusobjDoc.All("J_mail").Value = "aaaa@qq.com"Wait 1objDoc.All("J_user").FocusobjDoc.All("J_user").Value = "useraaaa"Wait 1objDoc.All("J_pass").FocusobjDoc.All("J_pass").Value = "aaa111"Wait 1objDoc.All("J_rpass").FocusobjDoc.All("J_rpass").Value = "aaa111"Wait 1objDoc.All("j_submit").Focus 

热点排行