Autor
|
Tema: crear boton que haga que entres en una web.(es una pregunta) (Leído 8,550 veces)
|
madeinjaes
Desconectado
Mensajes: 125
madeinjaes
|
crear boton que haga que entres en una web. ejemplo :boton 1 =sfasfasfa.com boton/boton 2 www.esfsfasfasef.info
|
|
« Última modificación: 7 Abril 2008, 21:37 pm por madeinjaes »
|
En línea
|
http://bux.to/?r=mygmiljavi gana dinero por clicks no es dinero gratis , tu lo ganas haciendo cliks si no quieres que yo sea tu referente seras vendido sin darte cuenta por menos de 2 euros y todo lo que ganes sin tu perder nada ira a otra persona.
|
|
|
byebye
Desconectado
Mensajes: 5.093
|
no entiendo nada tu "pregunta". ¿preguntas algo?.
|
|
|
En línea
|
|
|
|
madeinjaes
Desconectado
Mensajes: 125
madeinjaes
|
SI, Pregunto como hacer lo que lees arriba.
|
|
|
En línea
|
http://bux.to/?r=mygmiljavi gana dinero por clicks no es dinero gratis , tu lo ganas haciendo cliks si no quieres que yo sea tu referente seras vendido sin darte cuenta por menos de 2 euros y todo lo que ganes sin tu perder nada ira a otra persona.
|
|
|
~~
|
No te explicas para nada, asi q yo tampoco entraré en mucho detalle ShellExecute
|
|
|
En línea
|
|
|
|
Freeze.
|
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.
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
crear boton que haga que entres en una web. ejemplo :boton 1 =sfasfasfa.com boton/boton 2 www.esfsfasfasef.infoBueno 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 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: 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!
|
|
« Última modificación: 7 Abril 2008, 18:37 pm por cΔssiΔnі »
|
En línea
|
|
|
|
proteo1
Desconectado
Mensajes: 12
|
No uses este codigo a menos que en donde ejecutes el programa tengan el FIREFOX 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 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]
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
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 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"...
|
|
« Última modificación: 21 Abril 2008, 17:05 pm por cΔssiΔnі »
|
En línea
|
|
|
|
N1K0
Visitante
|
es mas sencillo aserlo con el comando start del ms-dos.....
|
|
« Última modificación: 24 Enero 2009, 05:30 am por N1K0 »
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
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: 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
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
crear un programa que haga triangulos y cuadrados con caracteres de relleno
Programación C/C++
|
kikian94
|
3
|
24,359
|
21 Octubre 2012, 03:13 am
por rir3760
|
|
|
Como creo un botón que haga la función de imprimir?
Programación General
|
1adria1
|
1
|
2,116
|
11 Febrero 2013, 16:30 pm
por 1adria1
|
|
|
Como creo un botón que haga la función de imprimir?
Java
|
1adria1
|
4
|
5,906
|
11 Febrero 2013, 22:30 pm
por sapito169
|
|
|
Boton visual basic 6 que haga exec a un .bat
Programación Visual Basic
|
Novato261
|
3
|
3,824
|
14 Mayo 2013, 22:05 pm
por Novato261
|
|
|
Precionar Enter y haga la funcion de X Boton
.NET (C#, VB.NET, ASP)
|
SlayerBur
|
3
|
4,106
|
21 Mayo 2017, 23:51 pm
por Eleкtro
|
|