hola foro...
bueno yo quiero hacer un programa un autoclic pero tengo un problema..
ise uno pero tengo q poner los link i medio q no me gusta..
lo que quiero hacer es que extraiga los link deun webbrowser a un listbox precionando un commandboton...
yo encontre esto pero esto no lo hace esto extrae todos los link no solos los que yo quiero :
Private Sub ListarUrl()
Dim i As Integer
List2.Clear
For i = 0 To WebBrowser1.Document.links.length - 1
List2.AddItem WebBrowser1.Document.links.Item(i)
Next
End Sub
aca en el foro un colega hizo esto: http://foro.elhacker.net/analisis_y_diseno_de_malware/src_lixclick_10_autoclick_para_buxto_ganar_dinero_sin_hacer_nada_xd-t246122.0.html (http://foro.elhacker.net/analisis_y_diseno_de_malware/src_lixclick_10_autoclick_para_buxto_ganar_dinero_sin_hacer_nada_xd-t246122.0.html)
pero no entiendo yo quiero saber cual es la parte que extrae nada mas la parte de los link nada mas que yo quero...
y encontre esto pero es para vb.net como lo uso en vb 6.0??
http://www.recursosvisualbasic.com.ar/htm/vb-net/54-obtener-links-de-una-pagina-web.htm (http://www.recursosvisualbasic.com.ar/htm/vb-net/54-obtener-links-de-una-pagina-web.htm)
bueno a ver si algun alma caritatiba me da una mano..
by saludos...
podes dar un ejemplo de cuales serian los links que queres y cuales no ??
por ejemplo estos son todos los link q me tira lo q ise asta ahora:
(http://img24.imageshack.us/img24/3581/001wl.jpg)
los q estan en rojo es los q me interesan pero seria lindo nomas sea asta el ad cosa q si cambian alguno no tenga q ir agregando..
by salduos...
y bueno es facil , vas a tener que hacer como un filtro...antes de cargar al listbox preguntas si el link contiene en la cadena http://www.bux.to/view.php?ad, si la contiene la ingresas y si no no lo ingresas, lo podes hacer con InStr()
saludos.
Además de InStr(), podrías usar Left$()
Un ejemplo:
Private Sub ListarUrl()
Dim i As Integer
List2.Clear
For i = 0 To WebBrowser1.Document.links.length - 1
If Left$(WebBrowser1.Document.links.Item(i), Len("http://www.bux.to/view.php?ad") = "http://www.bux.to/view.php?ad" Then
List2.AddItem WebBrowser1.Document.links.Item(i)
End If
Next
End Sub
Saludos ;)
si ya lo estoy asiendo funcionar...
desde ya gracias pero como ago para se ejecute con un boton nomas :p :D no cuando se cargue el webbrowser??
pues pone el codigo en el evento click del boton...
jaja grandioso..
che otra pregunta..
yo ante asia q haga clic en un link dps q valla al otro todo uno por uno..
pero como abo una variable q haga de los link q estan dentro del listbox??
o comose llama lo q tengo q buscar??
Cita de: N@5h en 22 Octubre 2009, 04:44 AM
jaja grandioso..
che otra pregunta..
yo ante asia q haga clic en un link dps q valla al otro todo uno por uno..
pero como abo una variable q haga de los link q estan dentro del listbox??
o comose llama lo q tengo q buscar??
Se llama Tutorial BAsico de Visual BAsic 6 y Tutorial ListBox
Cita de: N@5h en 22 Octubre 2009, 04:44 AM
jaja grandioso..
che otra pregunta..
yo ante asia q haga clic en un link dps q valla al otro todo uno por uno..
pero como abo una variable q haga de los link q estan dentro del listbox??
o comose llama lo q tengo q buscar??
o.O esto lo vi y te di una idea, en otro post :\
si lo vi muchas gracias voy a ver q me sale de esto...
saludos...
voy abanzando mucho en el programita.. pero tengo un problema q variable tengo q usar para q los datos del listbox no me salte todos pq en ves de hacer uno directamente me va al ultimo...
lo q me ase es esto
ago cic en el boton de q pase de link a cierto tiempo a otro link
me va directamente con cadaclic pasarian por todos i qda en el ultimo...
bueno tengo todo echo ya... me anda perfecto extrae lo que yo quiero i todo..
pero tengo un problema...
se que usar pero nose como...
list1 extraer la primera linea i q la execute en el webbrowser1
o sea el comando lo tengo q poner en el timer.. cosa q con un boton lo ensienda i lo apage i que cada tanto tiempo realise la misma operacion.. pero me pasan 3 cosas
1. se pasa por todos los item i queda siempre en el ultimo sin esperar cierto tiempo...
2. siempre ejecuta el primer item...
3. va siempre al item seleccionado +1 o sea tengo qaser clics yo :S muy mal...
espero una ayuda agradecidamente...
Cita de: N@5h en 11 Febrero 2010, 03:14 AM
bueno tengo todo echo ya... me anda perfecto extrae lo que yo quiero i todo..
pero tengo un problema...
se que usar pero nose como...
list1 extraer la primera linea i q la execute en el webbrowser1
o sea el comando lo tengo q poner en el timer.. cosa q con un boton lo ensienda i lo apage i que cada tanto tiempo realise la misma operacion.. pero me pasan 3 cosas
1. se pasa por todos los item i queda siempre en el ultimo sin esperar cierto tiempo...
2. siempre ejecuta el primer item...
3. va siempre al item seleccionado +1 o sea tengo qaser clics yo :S muy mal...
espero una ayuda agradecidamente...
pues lo planteas en un diagrama de flujo con la logica rudimentaria de un timer + la accion de un boton ¬¬" tampoco se te hara el trabajo.
Coloca el codigo del evento timer para que podamos ayudarte
No es por desanimar, bux.to ya no paga desde hace mucho tiempo, yo invertí en refers en su dia y gane mucho, al cabo de tres meses es cuando dejaron de pagar por paypal y se jodió lo marrana. Ni pagan ni nada y está comprobadisimo.
Los premiums incluso teníamos preferencia al cobrar y tuve la suerte de cobrar un mes mas que los demas.
En fin no pierdas tiempo con eso, además los programas automaticos los detectan y te banean la cuenta...bueno ahora nadie lo debe mirar, total ni pagan.
este es el codigo q yo puse en mi timer...
Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = Text3.Text '''' esto es para el intervalo del timer a gusto del usuario interval 1000 = 1 seg
WebBrowser1.Navigate (sURL) ''''''''''' por aca anda la cosa :S
End Sub
pero me va del primer link asta el ultimo sin esperar el tiempo entre cada uno...
bueno a ver un ejemplo basico del tema....este ejemplo que hice te carga en un listbox 5 paginas webs distintas (que serian los links tuyos) y los navega cada cierto tiempo.
Option Explicit
Private Sub Form_Load()
With List1
.AddItem "http://www.google.com.ar/"
.AddItem "http://foro.elhacker.net/index.php"
.AddItem "http://ar.yahoo.com/"
.AddItem "http://www.facebook.com/"
.AddItem "http://www.youtube.com/"
End With
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = List1.ListCount + 1 Then
MsgBox "Termino la lista"
Timer1.Enabled = False
Exit Sub
End If
WebBrowser1.Navigate List1.List(i - 1)
Me.Caption = "Navegando en '" & List1.List(i - 1) & "'"
List1.Selected(i - 1) = True
End Sub
saludos.
gracias idolo...!!!
muchas gracias si me sirvio.. espectacular funciona ahora cuando lo termine lo subire...
una pregunta:
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = List1.ListCount + 1 Then
MsgBox "Termino la lista"
Timer1.Enabled = False
Exit Sub
End If
esto aca me dise q vaya de uno en uno en la lista hasta q termine verdad??
WebBrowser1.Navigate List1.List(i - 1)
Me.Caption = "Navegando en '" & List1.List(i - 1) & "'"
List1.Selected(i - 1) = True
End Sub
"y esto aca q naviege el i" o sea el i seria como el portapapeles :p
by salduos...