爱问知识人 爱问教育 医院库

VB中如何实现自动点击网页上的按钮?

首页

VB中如何实现自动点击网页上的按钮?

举个例子,比如打开这个程序时,会自动打开百度首页,接着每隔100毫秒就会自动点击百度上的“百度一下”按钮,请问如何实现?

提交回答

语音回答

答案字数较多,建议语音阅读

00:00/02:00

好评回答
  • 2007-06-20 20:43:18
      Private Sub Command1_Click() 
    WB1。Navigate Text1 
    End Sub 
    Private Sub Command2_Click() 
    Timer1。Enabled = True 
    End Sub 
    Private Sub Command3_Click() 
    Unload Me 
    End Sub 
    Private Sub Command4_Click() 
    Dim vDoc, vTag 
    Dim I As Integer 
    Set vDoc = WB1。
      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 = "submit" Then List1。AddItem vTag。Name Select Case vTag。Name Case "btnBack" vTag。Click End Select End If End If Next I End Sub Private Sub Form_Load() Timer1。
      Enabled = False Timer1。
      Interval = 1000 End Sub Private Sub Timer1_Timer() Dim a As Long a = a + 1 Label1 = "已经运行了" & Fix(a / 60) & "分钟" If a Mod 600 = 0 Then Command4_Click End If End Sub 。

    祥***

    2007-06-20 20:43:18

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 171-190
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):