ayuda con codigo!!!

[N@5h]

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 :

Código [Seleccionar] Expandir


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

bueno a ver si algun alma caritatiba me da una mano..

by saludos...

[seba123neo]

podes dar un ejemplo de cuales serian los links que queres y cuales no ??

[N@5h]

por ejemplo estos son todos los link q me tira lo q ise asta ahora:



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

[seba123neo]

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.

[aaronduran2]

Además de InStr(), podrías usar Left$()

Un ejemplo:

Código (vb) [Seleccionar] Expandir


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

[N@5h]

si ya lo estoy asiendo funcionar...

desde ya gracias pero como ago para se ejecute con un boton nomas :p no cuando se cargue el webbrowser??

[seba123neo]

pues pone el codigo en el evento click del boton...

[N@5h]

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

[BlackZeroX]

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

[cassiani]

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 :\