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
Cita de: smokehack™ en 7 Diciembre 2007, 18:31 PM
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
WithEvents MSN As MessengerAPI.Messenger
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!!
Cita de: Mojambalupe en 7 Diciembre 2007, 18:35 PM
Cita de: smokehack™ en 7 Diciembre 2007, 18:31 PM
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
WithEvents MSN As MessengerAPI.Messenger
No se ha definido el tipo definido por el usuario.
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... ;).