Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: hAcKeR92 en 13 Marzo 2008, 21:25 pm



Título: duda tonta...
Publicado por: hAcKeR92 en 13 Marzo 2008, 21:25 pm
Va a parecer absurdo pero no se donde se deben colocar las declaraciones de API... me lo podeis explicar???

yo pongo esto pero me da error:

Public WithEvents MSN As Messenger

Private Sub Form_Load()
Set MSN = New Messenger
MsgBox MSN.MyStatus
End Sub


Título: Re: duda tonta...
Publicado por: ((( SPAWN ))) en 13 Marzo 2008, 21:34 pm
Hola, podes crear un modulo y meter todas las apis ahi, de esa manera tienen un alcance global.
Para agregar un modulo hace click en el menu Proyecto --> Agregar Modulo.


Título: Re: duda tonta...
Publicado por: hAcKeR92 en 13 Marzo 2008, 22:33 pm
lo agrego al modulo pero me dice:

"Compile Error: Only valid in object module"

Que significa esto???


Título: Re: duda tonta...
Publicado por: ((( SPAWN ))) en 14 Marzo 2008, 01:01 am
Hola:
Citar
"Compile Error: Only valid in object module"
Esto quiere decir q la declaracion q hiciste no va en ese tipo de modulo.
Antes q nada asegurate de tildar la referencia a la API del messenger en Proyecto --> Referencias --> "Messenger API Type Library", despues declaras en la sección de General del form asi
Código:
Public WithEvents MSN As Messenger

Código:
Private Sub Form_Load()
    Set MSN = New Messenger --> se crea una instancia del tipo messenger
End Sub

Private Sub Command1_Click()
    If MSN.MyStatus = MISTATUS_INVISIBLE Then
        MsgBox "estas como no conectado"
    End If
End Sub
Saludos.