在VB中 如何实现模拟网页点击按钮的功能

vb中新建一个Webbrowser 然后navigate到地址

新建一个按钮 按钮命令输入 Webbrowser1.document.表单名.submit 即可

你的代码复制不全 缺少form部分 只需要替换表单名为form的name就行

如果上面的效果不能实现 那么你还可以用这个

按钮命令输入 Webbrowser1.navigate "javascript:表单名.submit();"

这个肯定可以的 上面那个我以前用过 但是忘记是不是那样了 第二种方法是利用简单的javascript

实现模拟网页点击按钮的功能代码如下：
Private Sub Command1_Click()
WB1.Navigate Text1
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Dim vDoc, vTag
Dim I As Integer
Set vDoc = WB1.Document
List1.Clear
For I = 0 To vDoc.All.length - 1
If UCase(vDoc.All(I).tagName) = "INPUT" Then
Set vTag = vDoc.All(I)
If vTag.Type = "submit" Then
List1.AddItem vTag.Name
Select Case vTag.Name
Case "btnBack"
vTag.Click
End Select
End If
End If
Next I
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim a As Long
a = a + 1
Label1 = "已经运行了" & Fix(a / 60) & "分钟"
If a Mod 600 = 0 Then
Command4_Click
End If
End Sub

Set vDoc = WebBrowser1.Document
For x = 0 To vDoc.All.Length - 1 '检测所有标签
If UCase(vDoc.All(x).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(x)
If vTag.Value = "登录" Then vTag.Click '点击提交了，一切都OK了
End If
Next x