Mensajes

[youtube=640,360]https://youtu.be/oaAD6s_HmjM[/youtube]

[MOD EDIT: Titulo pasado a minusculas.]

Hola, gente aqui les dejo una herramiento espectacular para automatizar tareas en vuestros telefonos moviles que os facilitara muchisimo las cosas, espero que os guste.
[youtube=640,360]https://youtu.be/p08K_hUXGbM[/youtube]

MOD EDIT: Titulo pasado a minusculas.

[youtube=640,360]https://youtu.be/bcNahtxjh1g[/youtube]

Si lo que quieres es poder visitar páginas puntuales, para poder hacerlo sin software adicional y desde cualquier navegador utilizando las redirecciones del servicio Tor2Web, haciéndolo expones tus datos personales como en el Internet convencional, será mejor utilizarlo con precaución.

Se trata de una puerta de entrada a la red oculta de Tor, un proxy con el que lo único que hay que hacer es escribir.....

Ya no hace falta tener Jailbreak para instalar tus tweaks favoritos... ¿Has probado ya Zestia?

[youtube=640,360]https://youtu.be/l07VaO-Putg[/youtube]

Hola, adjunto os dejo una presentación que realize para una presentación de codigo QR, un saludo

https://dl.dropbox.com/u/63902311/PRESENTACION%20CODIGOS%20QR.exe

Bueno amigos aqui os pongo un video realizado por mi donde se muestra como enlazar una base de datos de mysql sencilla con Visual Basic 6, es basico pero creo que ayuda, no es que sea especialista pero ya que estoy comenzando espero que le ayude a gente como yo, seguro que se puede mejorar y perfeccionar pero a nivel basico esta bastante bien, gracias y un saludo a todos.

codigo

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
    Dim i As Integer
    '1º EJECUTAR LA CONSULTA
    Data1.Commands(1).Execute
    '2º ABRIR EL RECORDSET
    If Data1.Recordsets(1).State = 0 Then
        Data1.Recordsets(1).Open
    End If
    '3º procesar la informacion
    For i = 1 To Data1.Recordsets(1).RecordCount
        List1.AddItem Data1.Recordsets(1).Fields(0).Value
        Data1.Recordsets(1).MoveNext
    Next
   
    '4ºcerrar el recordset
    If Data1.Recordsets(1).State = 1 Then
         Data1.Recordsets(1).Close
    End If
   
   
End Sub

[youtube=425,350]http://youtu.be/90vysSQ3T7c[/youtube]

correcto shelexecute es mas efectivo, gracias

Para descargar codigo y aplicacion

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

Buenas aki les dejo mi segundo aporte, es basico por le sirve a alguien,un saludo.

http://youtu.be/R-I-eeCdnUQ

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