Mis primeros pinitos en Visual Basic y espero que no sea el ultimo.
Aki esta mi primer programa, funciona en xp y con firefox, se puedo modificar para cualquier sistema y navegador.
Estaba un poco cansado cada día de tener que ir abriendo pagina por pagina y practicando visual e creado este pequeño programa que con un solo boton me abre todo lo que mas utilizo a diario, esta cofigurado para firefox, pero se puede cambiar para cualquier navegador, si alguien quiere el codigo que me lo diga,un saludo a todos.
Link borrado por el moderador: No incluye el codigo fuente
[youtube=425,350]http://youtu.be/e-VFPvyav1s[/youtube]
Video de como esta realizado.
http://youtu.be/e-VFPvyav1s
Espero que les guste.
Estan los fuentes incluidos?
Para que pueda estar en esta sección debe traer el codigo fuente y no solo el programa, sino me equivoco hay una
sección para publicar los programas que no van incluidos con codigo fuente.
Saludos, Noele1995
para algo estan los favoritos, en firefox marcadores. :P
Pon código fuente por favor :)
Private Sub Command1_Click()
Dim pag As String
pag = "http://www.facebook.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
Private Sub Command2_Click()
Dim pag As String
pag = "https://twitter.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
Private Sub Command3_Click()
Dim pag As String
pag = "https://www.hotmail.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
Private Sub Command4_Click()
Dim pag As String
pag = "https://www.gmail.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
Private Sub Command5_Click()
Dim pag As String
pag = "http://www.linkedin.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
Private Sub Command6_Click()
End
End Sub
Private Sub Command7_Click()
Dim pag As String
'introducimos la direccion a donde queramos enlazar
pag = "http://www.facebook.com/"
'direccion donde tengamos instalado el navegador
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
pag = "https://twitter.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
pag = "https://www.hotmail.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
pag = "https://www.gmail.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
pag = "http://www.linkedin.com/"
Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
End Sub
Para descargar codigo y aplicacion
https://dl.dropbox.com/u/63902311/CORREO%20Y%20REDES%20SOCIALES.rar
Y si no tenemos firefox instalado?? :rolleyes:
Saludos!!!
Yo creo que seria aun más fácil, añadiéndole al código un (cmd = start www.facebook.com win...hide) en cambio de el código que has puesto...
Así se abriría a el navegador que tengas por defecto.
Saludos xD
no uses Shell, ni ninguna ruta fija,usa ShellExecute asi te lo ejecuta en el nevagador predeterminado.
correcto shelexecute es mas efectivo, gracias
HOLA!!!
jajaja...
Cita de: seba123neo en 19 Junio 2012, 21:04 PM
para algo estan los favoritos, en firefox marcadores. :P
+1
Decir que no tiene pinta de lammer, sino de noob, si fuera lamer a mi parecer ya estaria trolleando.Por si no sabes como se usa ShellExecute te dejo un lindo ejemplo para hacer hipervinculos virtuales:
http://www.recursosvisualbasic.com.ar/htm/listado-api/api-46.htm
GRACIAS POR LEER!!!