ayuda a parte de un autoclic

[N@5h]

hola gente bueno mi pregunta es ya tengo casi todo mi autoclic echo...

la unica duda es q no me sale esta parte de saltar deenlase a enlase automaticamente...

ya tengo todo el browser el timer star y todo..

cuando pongo timer en comenzar arranca y actualiza la pagina cada cierto tiempo...

pero yo quiero saber como hacer para q pase de un enlase a otro...

by saludos...

[seba123neo]

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.

[N@5h]

Código [Seleccionar] Expandir

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

em encontre esto en otro foro per lo modificque el me avia dado sinla var 3 ahroa cuando lo pongo en ejecusion no me la toma de la 2 vuelve a la 0 y haci no llega a verse yohoo porque???

by saludos...

[N@5h]

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

[YST]

No revivas post viejos -.-.

Para random usa randomize y rnd  .

Para saber como empieza el link utiliza left ( o right no me acuerdo ) .

[N@5h]

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

[cassiani]

Pero de los ejemplos que te dio seba lo puedes sacar ..

[N@5h]

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

[N@5h]

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

[cassiani]

Para saber como empieza el link utiliza left ( o right no me acuerdo ) .

Depende, si crees que empieza por la derecha o por la izquierda xDD

no tengo tiempo de leer los procedimientos, pero N@5h, si lo que quieres es que se ejecuten, lo llamas desde las rutinas correspondientes a los botones:

Private Sub Command1_Click()
   Call Rutina ' ...
End Sub

no es necesario acá "Call", pero no importa, así te acostumbras para cuando si la tengas que usar.