前几天，发了一张帖子，被版主指责说没有动脑筋，虽然没有师傅给出答案，但经过努力终于会在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

Sample : (参考用)



猜想大概是跟找超连结脱不了关系～

找到超连结位置再找输入框～
再填值～再触发onClick（）事件～

网络上看来的实现方式好像都这几个步骤～

请问这个工具怎么用的，我解压之后好像是乱码，我的QQ234965127，你能留个联系方式吗



[ 本帖最后由 gdqqgg 于 2011-6-24 23:07 编辑 ]

内容要转码~繁转简~
ConvertZ