Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: BARMANMMA en 19 Junio 2012, 17:45 pm



Título: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: BARMANMMA en 19 Junio 2012, 17:45 pm
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

e-VFPvyav1s
Video de como esta realizado.
http://youtu.be/e-VFPvyav1s

Espero que les guste.


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: MCKSys Argentina en 19 Junio 2012, 17:51 pm
Estan los fuentes incluidos?


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: noele1995 en 19 Junio 2012, 20:46 pm
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


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: seba123neo en 19 Junio 2012, 21:04 pm
para algo estan los favoritos, en firefox marcadores.  :P


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: Puntoinfinito en 19 Junio 2012, 22:55 pm
Pon código fuente por favor :)


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: BARMANMMA en 20 Junio 2012, 09:43 am
Código
  1. Private Sub Command1_Click()
  2.    Dim pag As String
  3.    pag = "http://www.facebook.com/"
  4.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  5. End Sub
  6.  
  7. Private Sub Command2_Click()
  8.    Dim pag As String
  9.    pag = "https://twitter.com/"
  10.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  11. End Sub
  12.  
  13. Private Sub Command3_Click()
  14.    Dim pag As String
  15.    pag = "https://www.hotmail.com/"
  16.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  17. End Sub
  18.  
  19. Private Sub Command4_Click()
  20.    Dim pag As String
  21.    pag = "https://www.gmail.com/"
  22.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  23. End Sub
  24.  
  25. Private Sub Command5_Click()
  26.    Dim pag As String
  27.    pag = "http://www.linkedin.com/"
  28.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  29. End Sub
  30.  
  31. Private Sub Command6_Click()
  32.    End
  33. End Sub
  34.  
  35. Private Sub Command7_Click()
  36.    Dim pag As String
  37.    'introducimos la direccion a donde queramos enlazar
  38.    pag = "http://www.facebook.com/"
  39.    'direccion donde tengamos instalado el navegador
  40.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  41.    pag = "https://twitter.com/"
  42.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  43.    pag = "https://www.hotmail.com/"
  44.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  45.    pag = "https://www.gmail.com/"
  46.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  47.    pag = "http://www.linkedin.com/"
  48.    Shell "C:\Program Files\Mozilla Firefox\firefox.exe" & pag
  49. End Sub
  50.  


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: BARMANMMA en 20 Junio 2012, 10:06 am
Para descargar codigo y aplicacion

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


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: rob1104 en 20 Junio 2012, 17:46 pm
Y si no tenemos firefox instalado??  :rolleyes:

Saludos!!!


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: Puntoinfinito en 20 Junio 2012, 17:51 pm
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


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: seba123neo en 20 Junio 2012, 21:12 pm
no uses Shell, ni ninguna ruta fija,usa ShellExecute asi te lo ejecuta en el nevagador predeterminado.


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: BARMANMMA en 21 Junio 2012, 12:37 pm
correcto shelexecute es mas efectivo, gracias


Título: Re: Programa en Visual Basic 6 para acceder con un solo boton a nuestras redes socia
Publicado por: 79137913 en 21 Junio 2012, 13:52 pm
HOLA!!!

jajaja...

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!!!