如何在网页中填写表单
前几天,发了一张帖子,被版主指责说没有动脑筋,虽然没有师傅给出答案,但经过努力终于会在VB里面用WebBrowser控件打开了网页,并且成功地控制它点击按钮,Private Sub Command1_Click()WebBrowser1.Navigate "http://bbs.
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
For lngIndex = 1 To WebBrowser1.Document.All.length - 1
If InStr(1, WebBrowser1.Document.All(lngIndex).outerhtml, "登录") > 0 Then '查找关键字
If UCase(WebBrowser1.Document.All(lngIndex).tagName) = "A" Then '如果点击是超链接 把INPUT换成A
WebBrowser1.Document.All(lngIndex).Click
Exit Sub
End If
End If
Next
End Sub