第1个回答 2019-02-15
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
第2个回答 2020-10-14
那个你可以用“ 阿冲全能点击王 ”这款软件完成啊,只需简单地添加几个按键点击任务就行了,而且 阿冲全能点击王 软件能完成各种网页点击,自动操作的。