Abrir website con un botón.

[Saberuneko]

Saludos!

Estoy intentando hacer mi primer juego en basic, ya tengo hecha la interfaz básica y un par the chapuzas más... pero ahora mismo lo que me interesa es lo siguiente:
Ahora mismo estaba a punto de terminar la típica ventanita de "about", y me gustaría poner un par de botones que abriesen el navegador para permitir visitar mis dos websites.

Es posible? Si es así, cómo sería la sintaxis del comando?

Muchas gracias por adelantado.

[..:ALT3RD:..]

No programo vb6 pero creo que hace tiempo cuando probé ese lenguaje usé esto para hacer lo que tu quieres.

Código [Seleccionar] Expandir

WebBrowser1.Navigate2 ("http://Www.tupaginaweb.com")


Añades un Web Browser y en un boton añades el codigo que te he puesto arriba.

[raul338]

busca la API ShellExecute y ahi pones el link los parametros eran algo asi...

Código (vb) [Seleccionar] Expandir


Call ShellExecute(hwnd, "open", "http://miWebSite.com", "", "", 0) ' Creo, los ultimos parametros deberian ir vacios x'D


[Elemental Code]

la api declarala asi:

Código (vb) [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

El boton es algo asi

Código (vb) [Seleccionar] Expandir

Call ShellExecute(Me.hwnd, "Open", "sisitioweb", "", "", 1)



FUENTE:
http://www.elguille.info/vb/API/ejecutar_acceso_directo.aspx

[$Edu$]

O simplemente pones esta linea de codigo:

Código (vb) [Seleccionar] Expandir


Shell "start www.google.com"


[seba123neo]

O simplemente pones esta linea de codigo:

Código (vb) [Seleccionar] Expandir


Shell "start www.google.com"


falto poner cmd.exe

Código (vb) [Seleccionar] Expandir

Call Shell("cmd.exe /c start www.google.com")

[Saberuneko]

Muchas gracias por la ayuda! :3
Ahora que ya está completa la ventanita de "About", voy a continuar con el jueguecito, unos sprites y algunos retoques en la interfaz le vendrían bien antes de empezar a montar el código para el gameplay, (todavía se ve un poco chustero el aspecto, jiji!)

[Elemental Code]

falto poner cmd.exe

Código (vb) [Seleccionar] Expandir

Call Shell("cmd.exe /c start www.google.com")

Código (vb) [Seleccionar] Expandir

Call Shell ( ENVIRON("Comspec") & " /c start www.google.com")

[$Edu$]

Yo nunca pongo "cmd.exe /c" o /k que ponen algunos, y funciona igual, pero para que es eso? al poner Shell no ejecuta comando desde la shell ya? para que indicar de nuevo?

[Elemental Code]

Yo nunca pongo "cmd.exe /c" o /k que ponen algunos, y funciona igual, pero para que es eso? al poner Shell no ejecuta comando desde la shell ya? para que indicar de nuevo?

shell abre un archivo ejecutable.
START.exe no existe, por ende tira errror

"Cmd.exe /c" envia un comando a la consola cmd y luego la cierra
"cmd.exe /k" envia un comando y la deja abierta para que el user siga jodiendo

ENVIRON("comspec") te devuelve la ruta el archivo cmd.exe si el usuario esta en un windows modificado.