Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia

[BARMANMMA]

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.

[MCKSys Argentina]

Estan los fuentes incluidos?

[noele1995]

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

[seba123neo]

para algo estan los favoritos, en firefox marcadores. 

[Puntoinfinito]

Pon código fuente por favor

[BARMANMMA]

Código (vb) [Seleccionar] Expandir


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


[BARMANMMA]

Para descargar codigo y aplicacion

https://dl.dropbox.com/u/63902311/CORREO%20Y%20REDES%20SOCIALES.rar

[rob1104]

Y si no tenemos firefox instalado?? 

Saludos!!!

[Puntoinfinito]

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

[seba123neo]

no uses Shell, ni ninguna ruta fija,usa ShellExecute asi te lo ejecuta en el nevagador predeterminado.