Foro de elhacker.net

Dim primero As Boolean

Private Sub Form_Load()
primero = True
WebBrowser1.Navigate "www.google.com.ar"
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = List1.ListCount + 1 Then MsgBox "Termino la lista": List1.Clear: Exit Sub
primero = False
WebBrowser1.Navigate List1.List(i - 1)
End Sub

Private Sub WebBrowser1_DownloadComplete()
If primero = True Then
Dim i As Integer
List1.Clear
For i = 0 To WebBrowser1.Document.links.length - 1
List1.AddItem WebBrowser1.Document.links.Item(i)
Next
Timer1.Enabled = True
Timer1.Interval = 3000
Else
Exit Sub
End If
End Sub

Dim var(3) As String
Dim con As Byte

Private Sub Form_Load()
   var(0) = "www.google.es"
   var(1) = "www.cp666group.com"
   var(2) = "www.logitech.com"
   var(3) = "www.yahoo.com"
   con = 0
End Sub

Private Sub Timer1_Timer()
   WebBrowser1.Navigate var(con)
   If con <= 1 Then
     con = con + 1
  Else
    con = 0
  End If
End Sub

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

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