Foro de elhacker.net

Webbrowser.document.links(0).click

Webbrowser.document.getelementbyid("idlink").click

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

 
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
 
 

 
Private Sub Command6_Click()
WebBrowser1.Navigate Text1.Text
End Sub
 
 

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

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