Cómo abrir automáticamente enlaces en páginas web en vb
Agregue un cuadro de texto texto1 en el formulario 1 y un botón comando1. Esto se puede lograr con la siguiente declaración:
Función de declaración privada ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long , ByVal lpOperation como cadena, ByVal lpFile como cadena, ByVal lpParameters como cadena, ByVal lpDirectory como cadena, ByVal nShowCmd como larga) como larga
Sub OpenUrl privada (tUrl como cadena)
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
Subcomando privado1_Click ()
str_open = Text1.Text
p>OpenUrl (str_open)
Fin Sub