Question

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

网页按钮源代码如下

<a class="login_button" href="javascript:void(0);">
<input type="submit" tabindex="6" value="登 录" class="btn" id="login_button">
</a>

Answer 1

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

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

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

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

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

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

追问

表单名是指这个么

追答

是的 表单名称就是loginform

追问

但是点击之后显示当前脚本 loginform未定义
WebBrowser1.Navigate "javascript:loginform.submit();"

追答

WebBrowser1.Document.loginform.submit
试试这个

说未定义原因是找不到那个表单 代码本身没问题 要从网页上找问题

追问

只能用这种方法么

追答

额 那你想怎么样?这是最简单的方法了 当然你可以引入api

甚至用api模拟鼠标 键盘的操作 不过您不觉得那样太多余 而且不稳定高效了吗

Answer 2

实现模拟网页点击按钮的功能代码如下：
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

Answer 3

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