Foro de elhacker.net

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim Msn As Messenger
Private Sub Form_Load()
Set Msn = New Messenger
Timer1.Interval = 500
End Sub


Private Sub Timer1_Timer()
On Error GoTo CerrarMsn      'Esto ignora el error producido al cerrarse
Static Desconectado As Boolean, Conectado As Boolean, VariableError As Boolean
If Msn.MyStatus = MISTATUS_OFFLINE Then     'Te dice si esta desconectado
    Desconectado = False
    If Conectado = False Then
        Conectado = True
        MsgBox "Esta desconectado", vbCritical
    End If
Else
    
    ' Te dice si estas conectado. Lo averigua comparando todos los estados posibles de conexion del Msn.
    
    If Msn.MyStatus = MISTATUS_AWAY Or Msn.MyStatus = MISTATUS_BE_RIGHT_BACK Or Msn.MyStatus = MISTATUS_BUSY Or Msn.MyStatus = MISTATUS_IDLE Or Msn.MyStatus = MISTATUS_INVISIBLE Or Msn.MyStatus = MISTATUS_ON_THE_PHONE Or Msn.MyStatus = MISTATUS_ONLINE Or Msn.MyStatus = MISTATUS_OUT_TO_LUNCH Then
            Conectado = False
            If Desconectado = False Then
                Desconectado = True
                MsgBox "Esta conectado", vbInformation
            End If
    End If
End If
VariableError = False
Exit Sub
CerrarMsn:                          'Se introduce aqui cuando se produce un error. Este error se produce cuando cierras el Msn
    If VariableError = falso Then   'Te indica que el Msn se ha cerrado.
        Set Msn = Nothing           'Descargo el objeto, para poder cargarlo luego si se abre de nuevo, y así salga del error.
        VariableError = True
        Desconectado = False
        Conectado = False
        MsgBox "El messenger se ha cerrado", vbCritical
    Else
        Dim CargadoMsn As Long, MsnAbierto As Boolean
        CargadoMsn = FindWindow("msnhiddenwindowclass", vbNullString)   'Revisa si esta cagada la clase del Msn Live.
        If CargadoMsn <> 0 And MsnAbierto = False Then
            Set Msn = New Messenger                 'Si esta la clase, carga de nuevo el objeto. Tambien te dice que se ha abierto el Msn
            MsgBox "El messenger se ha abierto", vbInformation
            MsnAbierto = True
        End If
    End If
End Sub