Foro de elhacker.net

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 :


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

Se llama Tutorial BAsico de Visual BAsic 6 y Tutorial ListBox

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

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


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
 

esto aca me dise q vaya de uno en uno en la lista hasta q termine verdad??
 

"y esto aca q naviege el i" o sea el i seria como el portapapeles :p

by salduos...