crear boton que haga que entres en una web.(es una pregunta)

[madeinjaes]

crear boton que haga que entres en una web.
ejemplo :boton 1 =sfasfasfa.com boton/boton 2 www.esfsfasfasef.info

[byebye]

no entiendo nada tu "pregunta". ¿preguntas algo?.

[madeinjaes]

SI, Pregunto como hacer lo que lees arriba.

[~~]

No te explicas para nada, asi q yo tampoco entraré en mucho detalle ShellExecute

[Freeze.]

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
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.paginaweb.com", 0, 0, 1
End Sub

No te conformes con preguntar.

[cassiani]

crear boton que haga que entres en una web.
ejemplo :boton 1 =sfasfasfa.com boton/boton 2 www.esfsfasfasef.info

Bueno mira, todo dependerá de lo que realmente desees hacer, por ejemplo:

Si deseas que la pagina abra dentro de tu aplicación, puedes usar el control webBrowser y su metodo Navigate. Sintaxis --> WebBrowser1.Navigate Direccion_URL

Código (vb) [Seleccionar] Expandir

Private Sub CmdAbrirWB_Click()
    WebBrowser1.Navigate "http://elhacker.net"
End Sub

Si no, puedes usar el ejemplo que te dejo Freezer o usar la shell para abrir el explorador y pasarle como parámetro la página que desees:

Código (vb) [Seleccionar] Expandir

Private Sub CmdAbrirS_Click()
    Shell "C:\Archivos de programa\Mozilla Firefox\firefox.exe" & " http://elhacker.net", vbNormalFocus
End Sub

Claro! si tu explorador de internet es otro, obviamente tendrias que cambiar el path y nombre del mismo. Y si es el firefox pero lo instalaste en otra dirección, es esa la que deberás pasarle al shell.

¡S4lu2!

[proteo1]

No uses este codigo a menos que en donde ejecutes el programa tengan el FIREFOX

Código (vb) [Seleccionar] Expandir

Private Sub CmdAbrirS_Click()
    Shell "C:\Archivos de programa\Mozilla Firefox\firefox.exe" & " http://elhacker.net", vbNormalFocus
End Sub

y como es imposible saber que navegador esta en cada maquina imaginate que chinga te metes

mejor este que es mejor ya lo habian posteado pero aqui en funcion

Código (vb) [Seleccionar] Expandir


Private Function AbreWeb(DireccionWeb as String)
ShellExecute Me.hwnd, vbNullString, DirecionWeb, 0, 0, 1
End Sub
[code]
saludos espero y te sirva, OJO falta la llamada al API[/code]

[cassiani]

Pues me cito:

Claro! si tu explorador de internet es otro, obviamente tendrias que cambiar el path y nombre del mismo. Y si es el firefox pero lo instalaste en otra dirección, es esa la que deberás pasarle al shell.

en ese sentido:

No uses este codigo a menos que en donde ejecutes el programa tengan el FIREFOX

Código (vb) [Seleccionar] Expandir

Private Sub CmdAbrirS_Click()
    Shell "C:\Archivos de programa\Mozilla Firefox\firefox.exe" & " http://elhacker.net", vbNormalFocus
End Sub

y como es imposible saber que navegador esta en cada maquina imaginate que chinga te metes

mejor este que es mejor ya lo habian posteado pero aqui en funcion

Eso es entendible, creo que alguien con tres dedos de frente sabrá que tiene que indicar el path correcto!!!

Solo solicitaron como abrir la página, NUNCA dijo que quería que se usara desde cualquier máquina, además, el ejemplo del shellexecute ya se lo habían dado, SIMPLEMENTE  le mostré otra formas de hacerlo, "EN LA VARIEDAD ESTÁ EL GUSTO"...

[N1K0]

es mas sencillo aserlo con el comando start del ms-dos.....

[krackwar]

si es mas facil con el ms-dos pero esto puede tener fallos:

• si tiene bloqueada el cmd se jodio el programa
  
• si se tiene eliminado el cmd (caso mio) tambien se jodio el programa
  
• es recurrir a otro programa por lo que sube el consumo de ram
  en lo personal me inclino por:
  
  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
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "http://www.paginaweb.com", 0, 0, 1
End Sub