Welcome Guest [Log In] [Register]
Welcome to Abstracted.View. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Username:   Password:
Add Reply
MSN Messenger flooder; Visual Basic 6
Topic Started: Jul 9 2006, 08:13 PM (284 Views)
Hacker-X Jul 9 2006, 08:13 PM Post #1
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 Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · Visual Basic · Next Topic »
Add Reply