Hola, he creado este código para hacer que el programa haga clic en todos los links de una página 3 veces y al mismo tiempo compruebe si se han hecho y lo apunte en una página.
Me encuentro con el problema de que a la segunda vez da error aún haberse hecho todos los clics..
No puede ser de una manera que se repita 3 veces ya que en cada una de ellas la página donde anota el resultado es distinta.
Dim iSeg As Integer 'Segundos de la cuenta atrás
' Verifica el segundo clic
Private Sub c2_Click()
If Web2.Document.Title = "1" Then
errores.Visible = True
errores.Caption = "Error 2."
Else
Tex.Text = "http://www.webqueanota.es"
web3.Navigate Tex.Text
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End If
End Sub
' Verifica el tercer clic
Private Sub c3_Click()
If Web2.Document.Title = "1" Then
errores.Visible = True
errores.Caption = "Error 3."
Else
Tex.Text = "http://www.webqueanota.es"
web3.Navigate Tex.Text
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End If
End Sub
Private Sub Form_Load()
iSeg = 5
Label1.Caption = iSeg
Timer1.Interval = 1000 'Tiempo
Web1.Navigate "http://www.webquedondedebehacertodoslosclics.com"
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End Sub
' Botón que inicia todo
Private Sub Commando_Click()
If user.Text = "" Or pass.Text = "" Then
MsgBox "error.."
Else
Timer1.Enabled = True
End If
End Sub
'Primer clic
Private Sub Timer1_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer1.Interval = 0
iSeg = 6
Timer2.Enabled = True
Timer2.Interval = 1000
Label5.Caption = "1 de 3."
For Each El In Web1.Document.All
El.Click
Next
End If
End Sub
' Verifica el primer clic
Private Sub c1_Click()
If Web2.Document.Title = "1" Then
errores.Visible = True
errores.Caption = "Error 1."
Else
Tex.Text = "http://www.webqueanota.es"
web3.Navigate Tex.Text
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End If
End Sub
'Segundo clic
Private Sub Timer2_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer2.Interval = 0
iSeg = 6
Timer3.Enabled = True
Timer3.Interval = 1000
Label5.Caption = "2 de 3."
Me.c1 = True
For Each El In Web1.Document.All
El.Click
Next
End If
End Sub
'Tercer clic
Private Sub Timer3_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer3.Interval = 0
Timer4.Enabled = True
Timer4.Interval = 1000
Label5.Caption = "3 de 3."
Me.c2 = True
For Each El In Web1.Document.All
El.Click
Next
End If
End Sub
'Hecho para que verifique el tercer clic
Private Sub Timer4_Timer()
iSeg = iSeg - 1
Label1.Visible = False
Label1.Caption = iSeg
If iSeg = 0 Then
Timer4.Interval = 0
Me.c3 = True
End If
End Sub
'Para que al hacer clic en la página, no se abra en una ventana del explorer
Private Sub Web1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = Web2.Object
End Sub
Mostrar Mensajes
