怎么用VB自动点击网页里的某按钮

像游戏外挂一样 开网页会自动点击固定按钮  而且无限循环

追问：比如我开百度 要让它开起来就自己点击百度一下要怎么做啊、？

答案：想做个程序让它自动点击网页中的提交按钮，我已经从网上找了很久，虽然找到了一个方法是可以找到按钮并提交的，代码如下：
Dim Dov     As Object
Dim Tag     As Object
Dim i     As Integer
Set Dov = WebBrowser1.Document
For i = 0 To Dov.All.length - 1
        If UCase(Dov.All(i).tagName) = "INPUT" Then
            Set Tag = Dov.All(i)
            If Tag.Type = "text" Then
                  Select Case Tag.Name
                        Case "name"
                              Tag.Value = "fisheep"
                  End Select
            ElseIf Tag.Type = "submit" Then
                  Tag.Click
            End If
        End If
Next i
或者
*************************************************************************
'**函 数 名：ReferForm
'**中文意译:表单提交
'**输    入：ByVal WebbrowserA(String)   - webbrowser控件名
'**        ：ByVal FormType(Integer)   - 集合 表单类型
'**        ：Optional FormName(String)   - 表单名[可选]
'**        ：Optional Value(String = "") - 表单值[可选]
'**输    出：无
'**功能描述：
'**        :
'**作    者：秋色烽火
'**日    期：2008-01-31 07:46:14
'*************************************************************************
Public Sub ReferForm(ByVal Webbrowser As Webbrowser, ByVal FormType%, Optional ByVal FormName$, Optional ByVal Value$ = "")
' http://www.jcwcn.com/html/CSSHTML/10_43_45_931.htm
    'Text = 0;  password = 1;  textarea = 2;  Hidden = 3;  CheckBox = 4;  submit = 8;  button = 9
    '//
    If FormType < 0 Or FormType > 9 Then
        Exit Sub
    End If
    Dim objDoc, objTag
    Set objDoc = Webbrowser.Document
    For i = 0 To objDoc.All.length - 1
        Select Case UCase$(objDoc.All(i).tagName)
            Case "INPUT"
            Set objTag = objDoc.All(i)
            Select Case FormType
                Case 0, 1
                If objTag.Name = FormName Then
                    objTag.Value = Value
                End If
                Case 3
                Case 4
                If objTag.Name = FormName Then
                    objTag.Checked = CInt(Value) 'Click
                End If
                Case 8
                If objTag.Type = FormName Then
                    objTag.Click
                End If
                Case 9
                If objTag.Type = FormName Then
                    objTag.Click
                End If

                '.Document.All(FormName).Value = uValue
                '.Document.All(FormName).Click
            End Select
            Case "TEXTAREA"
            Set objTag = objDoc.All(i)
            Select Case FormType
                Case 2
                objTag.Value = Value
            End Select
        End Select
    Next
    DoEvents
End Sub
这是代码、复制就行、望采纳..
用时间控件。。
 

上一个：VB如何修改资源里的文字 追加100分
下一个：vb中怎样实现adsl宽带的断开和连接