Question

Vb提交网页表单

VB提交网页表单问题
input type="text" name="name" id="name"
input type="password" id="nnd" value=""

VB中的webbrowser1怎么提交这两个网页表单

忽又一天的方法我试了说doc = WebBrowser1.Document变量未设置
zz396988160的方法可以填表单但是这句WebBrowser1.document.All("submit").Click变量未设置
我对这个不懂，怎么办

Answer 1

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

Answer 2

引用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

Answer 3

根据你的补充，经修改，已经调试成功：
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

Answer 4

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