MSN – Annoyer [Status Changer] [VB]

MSN – Annoyer & Status Changer

Made by ChiNa-Man

You need Visual Basic 2010 from Visual Studio

Watch Video Tutorial (Very Clear)
[youtubevideo:zarprwe3]v7HURvVfGOM[/youtubevideo:zarprwe3]

Download MSN – Annoyer & Status Changer

Example Made In The Video: Download Link Below
Download:

Tutorial & Source Code

1: First of all you have to add a Reference

Click on the the Project Menu on top and choose “ADD REFERENCE” Now hit the

“COM” Tab and scroll till you find “Messenger API Type Library” and Hit OK!

2: Add 4 Buttons and give a name for your buttons:

Button 1: Online
Button 2: Away
Button 3: Busy
Button 4: Appear Offline

2: Now go to your Form Design, and DOUBLE CLICK on the “online” button!
You will now come to the page were you should add your code!

Put 3 buttons below and 1 on top!
There should be a space between the 3 buttons and the one on top

Now in between them click on CHECKBOX and add the check box in the MIDDLE

between Button 1 [Online] and Button 2 [Away],

3: Change the name of CheckBox1 to “ANNOY”

4: I suggest you delete all, and replace everything with our code below!
Or simply add the SOURCE CODE and done.

Now Start your messenger first and choose a STATUS, and go back to your Visual

Basic Project and click on the PLAY button or Debug to start your Program! THATS IT, It should now work for you!
SOURCE CODE:

Imports System.Threading.Thread
Public Class Form1
Dim CTF As New MessengerAPI.Messenger

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
If CheckBox1.Checked = False Then
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Else
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.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
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End Sub
End Class

By China-Man