Sub COLEcTOR()
Espera 1000
On Error Resume Next
Datos = WebBrowser1.Document.documentelement.innerhtml
Dim tachado As String, matriz() As String
matriz = Split(Datos, vbCrLf)
For n = 0 To UBound(matriz)
If Left(matriz(n), 20) = "<TD class=al3 width=" Then
If Left(Mid(matriz(n), 74, 5), 1) = "l" Then
Else
List1.AddItem "http://www4.bux.to/view.php?ad=" & Mid(matriz(n), 74, 5)
End If
End If
Next n
Call clikEador
End Sub
esto es el collctor pero como ago para q arranque nomas cuando ago clic en el boton command1???
Sub clikEador()
For n = 0 To List1.ListCount
On Error Resume Next
WebBrowser2.Navigate List1.List(n)
Espera 35000
List1.RemoveItem (n)
Next n
MsgBox "Ya ha terminado su clickeo automatico de los link puestos por bux.to de este dia gracias por usar LiXclick"
End Sub
esto es el cliqueador pero bueno no entiendo como hacer para que arranque cuando le doy al boton start... y otra cosa lo boy a poenr un solo webbrowser no hay drama verdad?? o pongo dos y el esgundo en oculto??
y nose q mas me faltaria yo tengo puesto un timer q en una caja de texto le doy el timepo q el usuario quiere q dure i el start respeta ese tiempo otro boton con stop q para el tiempo... y caja q pngo la url a donde quiro ir para q dps al apretar el boton extraer me saque todos los link a la listbox
by salduos.. alguien me da una mano
Mostrar Mensajes