Private Sub Command1_Click()
'此处写代码
End Sub
也就是,当VB窗体上的一个按钮被单击后,让网页上的一个名为sm1的按钮也被单击!
Private Sub Command1_Click()
'此处写代码
End Sub
也就是,当VB窗体上的一个按钮被单击后,让网页上的一个名为sm1的按钮也被单击!
Set vdoc = wb.Document
Call IsPic
DoEvents
For i = 0 To vdoc.All.length - 1
If UCase(vdoc.All(i).tagName) = "INPUT" Then
Set vtag = vdoc.All(i)
If vtag.Type = "button" And vtag.Value = "sm1"Then'如果是提交按钮则判断是否为submit
vtag.Click
End If
End If
Next i
===================
大概是这样吧,把上面代码放入按钮单击事件中即可
网页上的按钮?估计有点了
简单一些的情况下就判断它的颜色(慢+难)
或判断它的坐标(坐标改变就不行)