能实现这样的功能，你需要添加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 '显示结果
'后面的省略
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024