很晚了。可我还在解决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软件
[解决办法]
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