Vb提交网页表单

用webbrowser载入网页表单。
在documentComplete事件中加入代码
dim
f
as
object
set
f=web1.document
'页面对象
f.表单名.submit()
'提交表单
也可用document.getElementById("表单ID").submit()
如果表单没有ID和name，可以用form元素的集合来访问该对象。

引用Microsoft HTML Object Library

Dim doc As HTMLDocument
Set doc = WebBrowser1.Document
'然后通过如下语句就可以调用网页元素了
doc.getElementById ("name").value="" '填充表单
doc.getElementById ("nnd").value=""
'要提交表单，得知道提交按钮id,如果是submit的话
doc.getElementById ("submit").click

根据你的补充，经修改，已经调试成功：
Private
Sub
Command1_Click()
Dim
vDoc,
vTag,
i
Set
vDoc
=
WebBrowser1.Document
For
i
=
0
To
vDoc.All.length
-
1
'检测所有标签
If
UCase(vDoc.All(i).tagName)
=
"INPUT"
Then
'找到input标签
Set
vTag
=
vDoc.All(i)
Select
Case
LCase(vTag.Type)
Case
"file"
If
vTag.Name
=
"userfile"
Then
SendKeys
"d:\program
files\qq\qq.exe"
SendKeys
"{ENter}"
vTag.Click
End
If
Case
"submit"
If
vTag.Value
=
"上传文件"
Then
vTag.Select
'也可以没有这个
vTag.Click
'点击提交了，一切都OK了
End
If
End
Select
End
If
Next
i
End
Sub

其实不引用也一样可以做到。
WebBrowser1.document.All("name").value="内容"
WebBrowser1.document.All("nnd").value="内容"
WebBrowser1.document.All("按钮ID或Name").click