Utilización de codigos MSN

[ËrîC#]

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:

Código (vb) [Seleccionar] Expandir

MSN.MyState = MISTATE_ONLINE

Al Timer2 le añadimos este code:

Código (vb) [Seleccionar] Expandir

MSN.MyState = MISTATE_INVISIBLE

Luego al Command1 le añadimos este code:

Código (vb) [Seleccionar] Expandir

Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Command2.Enabled = True

Y al command2 este code:

Código (vb) [Seleccionar] Expandir

'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:

Código (vb) [Seleccionar] Expandir

Timer1.Enabled = False
Timer2.Enabled = False
Command1.Caption = "Empezar Popup"
Command2.Caption = "Parar Popup"


Código (vb) [Seleccionar] Expandir

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 .

[demoniox12]

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

salu2!

[& eDu &]

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

[papanoel_devacaciones]

Te has olvidado lo de añadir la libreria msn.....

Código (vb) [Seleccionar] Expandir

' 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

[& eDu &]

Te has olvidado lo de añadir la libreria msn.....

Código (vb) [Seleccionar] Expandir

' 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

Código [Seleccionar] Expandir

WithEvents MSN As MessengerAPI.Messenger
No se ha definido el tipo definido por el usuario.

[invisible_hack]

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

Saludos!!

[papanoel_devacaciones]

Te has olvidado lo de añadir la libreria msn.....

Código (vb) [Seleccionar] Expandir

' 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

Código [Seleccionar] Expandir

WithEvents MSN As MessengerAPI.Messenger
No se ha definido el tipo definido por el usuario.

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

[ËrîC#]

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