Open Visual Basic 2008/1010 and then
Make A Windows Form Application
add 4 button
name the buttons (online,busy,away,offline)
then go to references in the properties tab and click add reference then go to the COM section Then Look for Messenger.API Library Click It And Hit Ok
Now The Coding Part, Public Class Form1
Dim msn As New MessengerAPI.Messenger
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
That What It Should Look Then Press f5 And Test It . P.s My First Written Tutorial So Please Be Nice.
For The Video Tutorial Go Here And Subscribe ! Link - http://www.youtube.com/watch?v=Pg7CeU1-agQ
