La utilización de Códigos MSN puede variar, y lo tienes para distintos utilidades.
FLOODER MSN, POPUPS, BLOCKEAR y muchísimo más...
Yo ahora os pondre 1 Ejemplo para que podais hacer un mini programa que salgan popups todo el rato cada 1 segundo hasta que tu le des a parar.
Necesitamos:- 2 Timers
- 2 Buttons
Al Timer1 le añadimos este code:
MSN.MyState = MISTATE_ONLINE
Al Timer2 le añadimos este code:
MSN.MyState = MISTATE_INVISIBLE
Luego al Command1 le añadimos este code:
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Y al command2 este code:
'añadimos el SETMSN al form_load para asin no necesitar ponerlo en ningun sitio mas...
Set MSN = New MessengerAPI.Messenger
Timer1.Enabled = False
Timer2.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Y por ultimo al Form_Load le añadimos esto:
Timer1.Enabled = False
Timer2.Enabled = False
Command1.Caption = "Empezar Popup"
Command2.Caption = "Parar Popup"
Dim shit As Integer
Public WithEvents MSN As MessengerAPI.Messenger
Este code es para declarar la function
Y activamos esta preferencia: Messenger Api type libray, si no sabes como miralo aqui abajo:
Proyect >> Preferencias >> "Messenger Api type library"Y ya esta, asin hara haciendo popup todo el rato hasta que le des al boton parar.
Fuente: Mi cabeza
.