VB WebBrowser 提交表單

'用tagname=“input” 和 name="submit" ，找到按鈕用,用click事件提交.

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

Dim vdoc

Set vdoc = WebBrowser1.Document

For i = 0 To vdoc.All.length

If LCase(vdoc.All(i).tagname) = "INPUT" Then

IF LCase(vdoc.All(i).name)="SUBMIT" THEN

vdoc.All(i).CLICK

END IF

End If

Next i

End Sub

上一篇:求時間日期html代碼，帶農歷！（高手進）

下一篇:csol單機版bte2.5怎樣修改生化購買武器的次數呢？