 Autor
|
Tema: ayuda a parte de un autoclic (Leído 5,236 veces)
|
N@5h
 Desconectado
Mensajes: 300
|
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...
|
|
|
|
|
En línea
|
|
|
|
|
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... 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.
|
|
|
|
|
En línea
|
|
|
|
N@5h
Desconectado
Mensajes: 300
|
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...
|
|
|
|
« Última modificación: 14 Junio 2008, 00:51 am por N@5h »
|
En línea
|
|
|
|
N@5h
Desconectado
Mensajes: 300
|
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... 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..
|
|
|
|
|
En línea
|
|
|
|
|
|
N@5h
Desconectado
Mensajes: 300
|
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...
|
|
|
|
« Última modificación: 27 Mayo 2009, 00:18 am por N@5h »
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
Pero de los ejemplos que te dio seba lo puedes sacar ..
|
|
|
|
|
En línea
|
|
|
|
N@5h
Desconectado
Mensajes: 300
|
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
|
|
|
|
« Última modificación: 27 Mayo 2009, 03:13 am por N@5h »
|
En línea
|
|
|
|
N@5h
Desconectado
Mensajes: 300
|
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...
|
|
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
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.
|
|
|
|
|
En línea
|
|
|
|
|
 |
![WWW](data:text/html,<img src="http://img199.imageshack.us/img199/7002/norris.gif" />;http://)
