*Working - BleepyEvans
First Go to Project -> Add Reference -> Click COM -> Click Messenger API Type Libary -> OK
\\Code//
[vb]
Public Class Form1
Dim CtF As New MessengerAPI.Messenger
Private Sub Online_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Online.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End Sub
Private Sub AppearOffline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AppearOffline.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End Sub
Private Sub Away_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Away.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
End Sub
Private Sub Busy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Busy.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
End Sub
End Class[/vb]
SignOut From MSN messenger Code:
[vb]CtF.signout[/vb]
Got Any Error! or you need help ?
PM me
Thanks For Visiting My Thread
First Go to Project -> Add Reference -> Click COM -> Click Messenger API Type Libary -> OK
\\Code//
[vb]
Public Class Form1
Dim CtF As New MessengerAPI.Messenger
Private Sub Online_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Online.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End Sub
Private Sub AppearOffline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AppearOffline.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End Sub
Private Sub Away_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Away.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
End Sub
Private Sub Busy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Busy.Click
CtF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
End Sub
End Class[/vb]
SignOut From MSN messenger Code:
[vb]CtF.signout[/vb]
Got Any Error! or you need help ?
PM me
Thanks For Visiting My Thread