docoon (12-11-2009)
Yes!
No!
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]https://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:
2. In the coding search for form1_load... In there you put:Public WithEvents msn As MessengerAPI.Messenger
3. Go back to your design and double click the 'Flood' Button. There you put:msn = New MessengerAPI.Messenger
4. Now double click the timer and insert the following code:msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Timer1.Enabled = True
5. At the 'Stop' button you simply put: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
Entire Code:Timer1.Stop()
Enjoy and Annoy!,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
~Jerry
docoon (12-11-2009)
lol..
i like this..
Thanks,Not very much use but thanks lolz
i dunno... i guess this is cool ^^