[TUT] How to make a annoying msn program!

Hello everyone! Jerry here.

Today I am going to show you how to make an annoying msn pgrm.

What this program will do:
~It will quickly logg you off and back in.
~Your online contacts will get pissed off

~Because on the right side, your name will keep popping up

!

I used Visual Basic 2008 express edition!

OK, let's get started!

1.) Start off by making a new Windows form project. Now add the following things:

~2 Buttons
~1 Timer

Call the first button 'Flood' and the other one 'Stop'.

2.) Now we need to add something that your program reconizes msn.

1. Go to your menu and click on 'Project' than search and click on 'Add reference'

EX: [IMG]http://i655.photobucke*****m/albums/uu276/j3r0x_2009/tut3.jpg[/IMG]

2. Now click on the tab 'COM'
3. Now search for 'Messenger API Type Library'
4. Select and hit ok.
5. Repeat step 1~4, but instead you search for 'Messenger Private Type Library'.

3.) Now that you have those 2 items, we can get to the coding

1. Double click your form, and in the code search for 'Public Class Form1'
under that put:

Public WithEvents msn As MessengerAPI.Messenger

2. In the coding search for form1_load... In there you put:

msn = New MessengerAPI.Messenger

3. Go back to your design and double click the 'Flood' Button. There you put:

msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Timer1.Enabled = True

4. Now double click the timer and insert the following code:

If Timer1.Enabled = True Then
Timer1.Interval = 1000
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End If

5. At the 'Stop' button you simply put:

Timer1.Stop()

Entire Code:

Public Class Form1
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Timer1.Enabled = True
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
msn = New MessengerAPI.Messenger
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Timer1.Enabled = True Then
Timer1.Interval = 1000
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub

End Class

Enjoy and Annoy!,
~Jerry

[TUT] How to make a annoying msn program!

Post a Reply

Similar Threads

Tags for this Thread