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

Iniciado por BARMANMMA, 19 Junio 2012, 17:45 PM

0 Miembros y 1 Visitante están viendo este tema.

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

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."


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

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Puntoinfinito

AHORA EN SOFTONIC || CLICK HERE!!
Base64: QWNhYmFzIGRlIHBlcmRlciAxIG1pbnV0byBkZSB0dSB2aWRhLiBPbOkh



HACK AND 1337 : http://hackandleet.blogspot.com
WEBSITE: http://www.infiniterware.

BARMANMMA

Código (vb) [Seleccionar]

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


rob1104

Sin análisis de requisitos o sin diseño, programar es el arte de crear errores en un documento de texto vacío.

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
AHORA EN SOFTONIC || CLICK HERE!!
Base64: QWNhYmFzIGRlIHBlcmRlciAxIG1pbnV0byBkZSB0dSB2aWRhLiBPbOkh



HACK AND 1337 : http://hackandleet.blogspot.com
WEBSITE: http://www.infiniterware.

seba123neo

no uses Shell, ni ninguna ruta fija,usa ShellExecute asi te lo ejecuta en el nevagador predeterminado.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson