elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  duda tonta...
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: duda tonta...  (Leído 2,042 veces)
hAcKeR92

Desconectado Desconectado

Mensajes: 72


Ver Perfil
duda tonta...
« 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


En línea

((( SPAWN )))

Desconectado Desconectado

Mensajes: 56



Ver Perfil
Re: duda tonta...
« Respuesta #1 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.


« Última modificación: 13 Marzo 2008, 21:41 pm por ((( SPAWN ))) » En línea


Cita de: EON
+ = SOLUCIÓN
hAcKeR92

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: duda tonta...
« Respuesta #2 en: 13 Marzo 2008, 22:33 pm »

lo agrego al modulo pero me dice:

"Compile Error: Only valid in object module"

Que significa esto???
En línea

((( SPAWN )))

Desconectado Desconectado

Mensajes: 56



Ver Perfil
Re: duda tonta...
« Respuesta #3 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.
« Última modificación: 14 Marzo 2008, 01:13 am por ((( SPAWN ))) » En línea


Cita de: EON
+ = SOLUCIÓN
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
duda tonta red wifi y vpn
Redes
Servia 0 1,584 Último mensaje 28 Enero 2012, 17:14 pm
por Servia
Duda tonta switch
Programación C/C++
Choke1 8 3,393 Último mensaje 4 Noviembre 2014, 19:54 pm
por El Benjo
Duda tonta de parámetros « 1 2 »
Programación C/C++
Orb 11 5,085 Último mensaje 18 Enero 2016, 18:20 pm
por MAFUS
Duda tonta con ejercicio en PHP
PHP
jamatbar 5 3,402 Último mensaje 14 Octubre 2020, 17:16 pm
por jamatbar
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines