Quiero mostrar una pagina en un webbrowser y desde un boton llamar a un link que se encuentra en dicha web.
ShellExecute (API)
o tambien tienes esta opción!¡.
http://foro.elhacker.net/programacion_visual_basic/source_shellexecute_sin_declaracion_api-t281057.0.html;msg1384898
Dulces Lunas!¡.
Por citar un ejemplo ...
Webbrowser.document.links(0).click
Saludos
.
:xD :xD :xD no lei que era desde el webbrowser xP
Dulces Lunas!¡.
Cita de: Novlucker en 26 Agosto 2010, 06:02 AM
Por citar un ejemplo ...
Webbrowser.document.links(0).click
Hola, por que zero, si coloco 1 ejecuta el siguiente link, como ejecutaria un link especifico, me parece que se debe hacer por el id de la etiqueta <a> y he probado de varias formas pero me sale error, haber si me ayudan con eso, saludos
CitarHola, por que zero, si coloco 1 ejecuta el siguiente link
CitarPor citar un ejemplo ...
Citarme parece que se debe hacer por el id de la etiqueta <a> y he probado de varias formas pero me sale error
Webbrowser.document.getelementbyid("idlink").clickSaludos
Hola Novlucker
Y como podria hacer si la etiqueta <a> no tiene id, como le digo que clické al nombre es decir Texto1, es posible esto?
<a href="http://google.com">Texto1</a>Si lo anterior no se puede entonces como se podria lograr si se tiene el id de una etiqueta <div>
<div id="44"><a href="http://google.com">Texto1</a></div>
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.
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.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then WebBrowser1.Navigate Text1.Text
' KeyAscii= 13 Equivale a la tecla Enter
' <> "" Equivale a: no-vacío
End Sub
Te gane.
(http://imgur.com/rXTSn.jpg)
http://www.sendspace.com/file/4fxe82
Codigo del boton Ir =D
Private Sub Command6_Click()
WebBrowser1.Navigate Text1.Text
End Sub
y el codigo del text1.text (Para que cuando haga enter valla a la pagina)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then WebBrowser1.Navigate Text1.Text
' KeyAscii= 13 Equivale a la tecla Enter
' <> "" Equivale a: no-vacío
End Sub
Cita de: seba123neo en 27 Agosto 2010, 03:20 AMHola, 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.
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.
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!!!
Cita de: 79137913 en 27 Agosto 2010, 18:49 PM
...
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.
<div[color=red] id="44"[/color]><a href="http://google.com">Texto1</a></div>
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.
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!!!
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>