Pasa lo mismo, cuando se queda colgao siempre tengo que reiniciar :s
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: invisible_hack en 1 Enero 2008, 21:01 PM
REG ADD
Saludos...
Cita de: smokehack™ en 7 Diciembre 2007, 18:31 PM
Te has olvidado lo de añadir la libreria msn.....' 1 boton
' 1 Timer
' =========================
Dim shit As Integer
Public WithEvents MSN As MessengerAPI.Messenger
Private Sub Command1_Click()
If shit = 1 Then
Timer1.Enabled = True
shit = 2
Else
Timer1.Enabled = False
shit = 1
End If
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Timer1.Enabled = False
Command1.Caption = "Iniciar/Parar"
Timer1.Interval = "1000"
shit = 1
End Sub
Private Sub Timer1_Timer()
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
End Sub
http://foro.elhacker.net/index.php/topic,56012.0.html
Saludos
WithEvents MSN As MessengerAPI.Messenger