Question

VB填写网页表单

网页内容
表单1 单号:<input name="code" type="text" id="code"
表单2 验证码<input name="img" type="text" id="img"
提交按钮:<input type="submit" name="button" id="button" value="查询" />
网页不要显示出来
只要在VB创建 text1、text2、text3、command1。4个控件
text1、text2用来输入单号、验证码
text3用来显示查询结果
command1用来提交查询
不知道能不能实现这个功能 所以请各位帮忙弄下代码和要添加什么控件

Answer 1

能实现这样的功能，你需要添加WebBrowser控件(Microsoft Internet Controls），然后在窗体上拖一个这个控件，命名为Web1，移动到看不见的位置就可以了。按钮的代码可以这么写：
'前面的省略
Web1.Navigate "网址"
DoEvents
While Web1.Busy '等待网页加载完
DoEvents
Wend
Web1.Document.GetElementById("code").Value=Text1.Text
....按照这种方法填写表单
Web1.Document.GetElementById("button").Click '模拟单击按钮提交表单
DoEvents
While Web1.Busy '等待网页加载完
DoEvents
Wend
Text3.Text=Web1.Document.InnerText '显示结果
'后面的省略