Welcome Guest [Log In] [Register]
Viewing Single Post From: MSN Messenger flooder
Hacker-X Jul 9 2006, 08:13 PM
Dedicated Member
[ * * * * ]
 First of all start a standard exe. Go to Project--> References and put a tick in the Messenger API Type Library.

You'll need these controls:
3 labels..............................
caption: Victim's email, name: Label1
caption: Message, name: (default name)
caption: Victim's Email Address, name: (default name)
caption: Flooder interval in miliseconds, name: (default name)

2 command buttons.............
caption: Start, name: cmd1
caption: Stop, name: cmd2

1 timer.............................
interval: (blank), name: Timer1

3 text boxes......................
name: Text2
name: Text1
name: Text3



So now we've got all that out of the way, we should start the code...

Code:
 

Public WithEvents msn As MessengerAPI.Messenger

Since we referenced the MessengerAPI Type Library the above code needs to come first!

Code:
 

Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub

The above code will allow the application to communicate with MSN Messenger when the form loads.

Code:
 

Private Sub Timer1_Timer()
SendKeys (Text3.Text & "{ENTER}")
msn.InstantMessage (Text1.Text)
End Sub

Just a simple code to make the timer fire the contents of the message text box to MSN Messenger and send the message. As you can see I've used SendKeys to send the keystrokes of the message box to an MSN Messenger window, which will automatically send itself. This code is the heart of the flooder.

Code:
 

Private Sub cmd1_Click()
Timer1.Interval = Text2.Text
Timer1.Enabled = True
End Sub

The above will start the timer which will perform the flooding.

Code:
 

Private Sub cmd2_Click()
Timer1.Enabled = False
End Sub

The above will stop the flooder by disabling the timer and thus stopping the flooder!



Full code:
Code:
 

Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
Private Sub Timer1_Timer()
SendKeys (Text3.Text & "{ENTER}")
msn.InstantMessage (Text1.Text)
End Sub
Private Sub cmd1_Click()
Timer1.Interval = Text2.Text
Timer1.Enabled = True
End Sub
Private Sub cmd2_Click()
Timer1.Enabled = False
End Sub




Notes: Obiously setting the interval too low puts quite a huge strain on your computer, doing this will cause your computer to freeze or hang. When you signed up for MSN Messenger you agreed to their terms of use which generally states not to use any bot, and it directly says not to use a flooder... however, this tutorial is not mean't to show malicious code practices but rather to learn the SendKeys function in coordination with timers and MSN Messenger.

Bugs, comments, or suggestions are always welcomed!

PS. Thanks to Rob Car for saying it was okay to post this!
Offline Profile Quote Post
MSN Messenger flooder · Visual Basic