请问如何实现让程序替你点击网址链接？

这个比较适合用于网站投票的地方

解决方案 »

  1.   

    '引用Microsoft Internet Controls
    Dim IE As InternetExplorer
    Private Sub Form_Load()
    Set IE = New InternetExplorer
    IE.Navigate "http://office.9zp.com"
    IE.Visible = True
    End SubPrivate Sub Command1_Click()
    IE.Document.links(5).Click
    End Sub
      

  2.   

    '添加webbrowser , List, 按钮控件
    'Option Explicit'Private Sub Command1_Click()
     '   WebBrowser1.Navigate2 "http://localhost\test.htm"
    'End Sub'Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     '   Dim vDoc, vTag
      '  Dim i As Integer
          
        'Set vDoc = WebBrowser1.Document
    '    List1.Clear
     '   For i = 0 To vDoc.All.length - 1
      '      If UCase(vDoc.All(i).tagName) = "INPUT" Then
         '       Set vTag = vDoc.All(i)
       '         If vTag.Type = "text" Or vTag.Type = "password" Then
        '            List1.AddItem vTag.Name
          '          Select Case vTag.Name
           '             Case "Name"
            '                vTag.Value = "IMGod"
             '           Case "NickName"
              '              vTag.Value = "IMGod"
               '         Case "Password"
                '            vTag.Value = "IMGodpass"
                 '       Case "EMail"
                  '          vTag.Value = "[email protected]"
                   ' End Select
    在这里提交
    '            ElseIf vTag.Type = "submit" Then
     '               vTag.Click
      '          End If
       '     End If
        'Next i
    'End Sub'test.htm文件
    '<HTML>
    '<HEAD>
    '<TITLE>测试页</TITLE>
    '</HEAD>
    '<BODY>
    '<form method="POST" action="result.asp">
      '<p>请填写下面表单注册（*项为必添项）</p>
    '  <'p>*姓名<input type="text" name="Name" size="20"></p>
     ' <p>*昵称<input type="text" name="NickName" size="20"></p>
      '<p>电子邮件<input type="text" name="EMail" size="20"></p>
    '  <p>*密码<input type="text" name="Password" size="20"></p>
     ' <p><input type="submit" value="提交" name="B1">
      '<input type="reset" value="全部重写" name="B2"></p>
    '</form>
    '</BODY>
    '</HTML>
      

  3.   

    谢谢 hhjjhjhj(大头)，我实际上只用了下面这一个部分就搞定了。
    '引用Microsoft Internet Controls
    Dim IE As InternetExplorer
    Private Sub Form_Load()
    Set IE = New InternetExplorer
    IE.Navigate "http://office.9zp.com"
    IE.Visible = True
    End Sub也谢谢online(龙卷风V3.0--笑傲江湖) ，网页做得很简单，没有那么复杂，并不需要提交，呵呵。