Ejecutar link de una pagina desde un command1

[hunter18]

Hola, proba esto, te tira los links con su palabra, simplemente tenes que guardar el link de cada palabra en algun lado, y cuando eejcutes este texto te ejecuta el link de el mismo.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    WebBrowser1.Navigate "www.google.com.ar"
End Sub

Private Sub WebBrowser1_DownloadComplete()

    Dim vLinks As Object
     
    Set vLinks = WebBrowser1.Document.getElementsByTagName("A")
   
    For Each vLinks In WebBrowser1.Document.links
        Debug.Print vLinks.innerText & ": " & vLinks.href
    Next
End Sub

saludos.

Hola, no entiendo bien con el codigo recupero p.e Link 1: http://taringa.net
Digamos que solo hay un link y guardo ese texto en text1 y text2 como haria para ejecutar dicho link, acaso utilizando shellexecute? por que la idea es que se haga click de esta manera "Webbrowser1.document.getelementbyid("idlink").click"  para que google analitycs registre que el click fue hecho desde dicha pagina y no directamente desde el navegador como seria utiluzando el shellexecute.

[79137913]

HOLA!!!

Mira, yo hice un programa que hacia eso, pero como siempre me complique y lo hice por mi cuenta.

El programa funcionaba asi:

Primero agarraba el codigo de fuente en html de la pagina y lo volcaba en una variable.

Segundo buscaba las etiquetas (por ej. <a href=" y ">) y guardaba lo que estaba dentro de ellas en un vector.

Tercero me daba una lista con todos los links que tenia la pagina en un listview.

y cuarto, al hacer click en un elemento del List view hacia "webbrowser1.navigate listview1.selecteditem"

Esa era mi manera, poco practica pero efectiva. XD


GRACIAS POR LEER!!!

[hunter18]

...

Si hago lo que mencionas seria lo mismo que utilizar shellexcute google analitycs lo tomaria como si se hiciera click directo en el navegador y click desde una pagina x

Me parece que la solucion esta tomando id del <div> para ejecutar la etiqueta <a>, bueno si no se puede que se va a hacer, saludos y gracias.

Código [Seleccionar] Expandir

<div[color=red] id="44"[/color]><a href="http://google.com">Texto1</a></div>

[79137913]

Osea vos queres burlar el google AdSense?

yo lo probe y lamentablemente me borraron la cuenta.

este programa era diferente.

era asi:

Primero yo me fijaba manualmente los XY de los links de la publicidad.

Segundo hacia un scroll en el webbrowser.

Tercero hacia click con el API del mouse (osea como si se hiciera un click real en esa XY).

Cuarto esperaba un tiempo aleatorio.

Quinto cambiaba el proxy del navegador. copio el codigo por que no recuerdo como era.

Código (vb) [Seleccionar] Expandir


Dim strProxyServer



' define el proxy y el puerto si es necesario

strProxyServer = PROXYS(X)
' ubicacion en la registry
Dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
' destroy
Set oWshShell = Nothing


Sexto repetia todos los pasos.

Y Dios GOOGLE se dio cuenta.

Solo queria contar mi experiencia XD

GRACIAS POR LEER!!!

[hunter18]

79137913 tu ambision te llevo a la cancelacion de tu cuenta google.
Pero lo que pretendo hacer es otra cosa, quiero colocar un webbrowser de una pagina x por ejemplo "foro.elhacker.net" y esta pagina debe tener un link hacia mi pagina y asi generar mas visitas y logicamente al revisar el google analityc me dira que x numero de visitas vinieron de "foro.elhacker.net".

El problema es que si coloco un link de mi pagina en el "foro.elhacker.net" este no tiene un id en la etiqueta <a> solo en la etiqueta <div>, podria hacerlo como mencionas con las coordenas x,y pero me resulta mas facil asi Webbrowser1.document.getelementbyid("idlink").click pero no tengo id de la etiqueta.

<div id="514654"><a href="http://otraweb.com">Texto1</a></div>