Question

如何用VB编制以下网页信息点击提交程序？？

网页文本编码片段如下：
<TR>
<TD height=40 align=right>
<TABLE class=a border=0 cellSpacing=0 cellPadding=0 width=670 height=32>
<FORM method=post name=login_form1 action=/logincheck.asp>
<TBODY>
<TR>
<TD vAlign=middle width=570>您好，欢迎光临。 用户名：<INPUT id=name class=input_lan name=name size=9> 密码：<INPUT id=pass class=input_lan name=pass value="" size=9 type=password> 认证码：<INPUT id=verifycode class=input_lan1 name=verifycode maxLength=4 size=4> <B>5132</B><INPUT id=check name=check value=true type=hidden></TD>
<TD vAlign=bottom width=100 align=center><INPUT name=Submit value=提交 src="images/dl.gif" type=image> <A href="/zc.asp"><IMG border=0 src="images/zc.gif" width=45 height=19></A></TD></TR></FORM></TBODY></TABLE></TD></TR>
<TR>

如何用VB编制程序，自动填写以上栏目信息，并自动提交？？

Answer 1

有两种方法，一种是使用webbrowser控件：
1、控件打开网页，等待加载完毕(有事件） '代码略
2、webbrowser1.document.login_form1.name.value="xxx" '填写用户名
webbrowser1.document.login_form1.pass.value="xxx" '填写密码
webbrowser1.document.login_form1.Submit.click '点击提交
第二种方法使用ie对象：
1、set ie=createobject("internetexplorer.application")
2、ie.visible = true '设置ie可见
3、ie.navigate "网址（带上http）"
4、while ie.busy or ie.readystate<>4 '等待加载完毕
doevents
wend
5、同上面2，将webbrowser1改成ie即可

追问

刚才试了一下，两种方法都出现了中断

第一种方法，中断提示为：对象不支持该属性或方法
第二种方法，中断提示为：自动化错误

请问这是哪里出了问题？

追答

改成 webbrowser1.document.all.login_form1 看看，注意一定要等待页面加载完毕，webbrowser控件有个document_complete事件，在这个事件填写步骤2的代码

追问

刚刚测试了一下，依然中断，但有意思的是，第一次运行，中断发生在提交这条代码上，中断提示是“要求对象”；
但以后再运行，中断都发生在信息填写代码上，中断提示也都是“对象不支持该属性或方法”
我用的是VB，不是VB.NET，这个有关系吗？有.all.还是没有all ，效果都一样

追答

vb没问题，估计是没加载完全的问题，你是在document_complete中填写的代码么，最后代码贴出来看看

追问

代码是写在Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)里
百度限制了追问的字数，只能用文字说明，代码贴上怎么删减都超出追问字数

OK