Foro de elhacker.net

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 ;).

muy bien.. pero falta la declaracion.. :S

salu2!

Los timers tienen de tenener algun intervalo, y ademas no creo que reconozca "MSN"

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

Cuando lo abro me da este error

No se ha definido el tipo definido por el usuario.

Buenos codes, pero recuerden que VB sirve para mucho mas que para hacer floods y cosas para fastidiar  :xD

Saludos!!

Proyecto >> Preferencias >> "Messenger Api type library"

Ya lo he actualizado, me olvide de explicar lo que me dijsiteis perdon, esque taba
pensando en el code y se me olvido lo de la api y etc... ;).