Mensajes

jajaja esto seria para los juegos online?? para creser mientras estas durmiendo por ejemplo?? :p

interesante :p

vamos gente alguien me puede dar una mano con esto??

q nose como hacerlo no q me de el codigo echo.. pero q me diga mira tenes q usar esto efijate como lo podes hacer mira q esto va en el boton i en tal lao tenes q hacer esto..

by salduos...

Código [Seleccionar] Expandir

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???

Código [Seleccionar] Expandir

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

lo q tienes q hacer busca como hacer para mandar un mail desde vb... y luego lo configuras para los celulares una epoca por ejemplo a personal se le mandaba maails asi

caracteristica+numero@mms.personal.com.ar

algo asi..

by salduos...

bueno no es rebibir post viejos no voy a empezar uno nuevo para algo parecido q no me acuerdo como hera... :S

como hago para q el timer cuando termine el tiempo empiese por el prinmer enlase de la una listbox y haci siga con el siguiente i el siguiente...

by saludos...

Hola,no se si te sirva esto,lo habia echo para poder navegar a una pagina web y despues cada cierto tiempo navegar automaticamente a todos los links de la primera pagina visitada,necesitas un webbrowser,un timer y un listbox,podes sacar el listbox y almacenar los links en un array...

Código [Seleccionar] Expandir

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

saludos.

gracias esto me sirve pero como ago para ponerle un boton para q comienze cuando yo quiero... y q tambien uno de randon entre los enlases.. y lo mas complicado... q los enlases sean por ejemplo todo slos q empiesen con http;//google.com/imagenes/view.php o algo asi q las q no cumplan con eso no aparasca los link

si podes decirme ese variable primero q significa tambien..

by salduo..

se ve q no lo serraron ... a mi por mp a otros por msn i los demas por aca y ya abran un nuevo post asi iremos practicando mañana instalo hamachi i age... :p

:p!! no la marabilla noooo!!!


XD

asi q se reabre yo me sumo...

y colega pudiste??

by salduos...