Mensajes

Busca con el Inet control, tiene el evento proxy.

Nadie sabe lo que es ironia o humor , e sobvio que fue un chiste lo del micro y lo de derretir el CD, dios no pueden no enter.....

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
On Error GoTo ERROR:
SendKeys "{enter}"
Timer1.enabled = False
Error:
End Sub

Listo

pero podes programar que un programa cree un bat y lo ejecute y ese bat se encargue de aparecer en el boot

Private Sub List1_Click()
If List1.ListIndex = 0 Then'Si se cliquea el 0 aparecera Argentina
Text1.Text = "Buenos Aires"
End If

If List1.ListIndex = 1 Then'Si se cliquea el 1 aparecera Brasilia
Text1.Text = "Brasilia"
End If
End Sub

Que buen post!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Igual voy a leerlo en partes, porque si lo leo todo junto me van a quedar cosas sueltas y prefiero saberlo todo bien bien.

Aprovechen este texto asi porque hay pocos o ninguno...

necesitas la dll amd5dll .

La parte del login es facil, pero cualquier n00b la craquearia.

if text1.text = "TuPassword" then
msgbox= ("Acceso garantizado"),vbinformation,"Login"
else
msgbox = ("Acceso denegado"),vbcritical,"Error"
exit sub
end if

lo que hace es vereficar el el contenido del texto, si es igual te deja pasar, sino saldra un error.

Despues tendrias q hacer un input...

Close #1'cerrar canal
Open "C:\Log.txt" For Append As #1
Print #1, "Password :" text1.text'se guardara el password
Print #1, " User : " text2.text 'en el texto dos debes indicar el user
Print #1, " "
Print #1, " "
Close #1


Te recuerdo que es LA PEOR manera de hacerlo, te conviene utilizar una base de datos en acces o lo que sea para que empieces mejor, usando el control data

buenas...

If Progressbar1.value = 100 then
timer1.enabled = false
else
progressbar1.value =  progressbar1.value + 10
end if
Suma 10 de la barrita, y cuando esta en 100 se detiene

Lo que mejor te serviria seria ir sumando mediante la carga, pongo un ejemplo.


Public Sub CargarTodo()
Call CargarBD
progressbar1.value = progressbar1.value +20
call cargarTXT
progressbar1.value = progressbar1.value + 20
call CargarBmps
progressbar1.value = progressbar1.value + 20
call cargar Dats
progressbar1.value = progressbar1.value + 40
End Sub

La barra estara en 100 luego de cargar todo... 

Asi.

        If Musica = 0 Then
            Musica = 1
        Else
            Musica = 0
            PlayMusic         
        End If
   
Obviamente cambiando las variables que hallas puesto.

Tambien podrias poner en el evento load del form que cargue la cancion y se escuche sin apretar el boton....
Lo que haria un timer es poner la cancion una ves y al finalizar volver a empezar la cancion, y si no quieres musica lo que podrias hacer es un boton que diga
timer1.enabled = false

Y el mismo cambie a timer1.enabled = true y el caption del command xD