MSN – Annoyer [Status Changer] [VB]

This topic contains 0 replies, has 1 voice, and was last updated by  ChiNa 6 years, 8 months ago.

  • Author
    Posts
    1 Star2 Stars3 Stars4 Stars5 Stars Rate it First!
  • #15236
    Administrator
    Posts: 442

    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: http://www.mediafire.com/download.php?sesr2tbcpgjy4nw

    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

You must be logged in to reply to this topic.