'####################################################################################################
'##############################   -  LixClick 1.0  -      ###########################################
'############################## - Autoclick para Bux.to   ###########################################
'############################## - compilador VB6          ###########################################
'############################## - Autor: LixKeÜ-BetOx     ###########################################
'############################## - Respetar firma de autor ###########################################
'####################################################################################################
Dim ne As Boolean, Datos As String
Private Sub Command1_Click()
List1.Clear
ne = True
WebBrowser1.Navigate "http://www4.bux.to/surf.php"
End Sub
Private Sub Form_Load()
ne = False
On Error Resume Next
WebBrowser1.Navigate "http://www4.bux.to/login.php"
End Sub
Public Function Espera(MiliSegundos As Single)
On Error Resume Next
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = Timer
FinSeg = ComienzoSeg + (MiliSegundos / 1000)
Do While FinSeg > Timer
DoEvents
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Function
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If ne = True Then
Call COLEcTOR
ne = False
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