| CodeBreaker | 07-31-2010 09:49 PM |
VB.NET MSN Status Changer
أولا اذهب إلى
Project -> Add Reference -> Click COM -> Click Messenger API Type Libary -> OK
\\Code// كود:
Public Class Form1
Dim hackcommunity As New MessengerAPI.Messenger
Private Sub Online_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Online.Click
hackcommunity.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End Sub
Private Sub AppearOffline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AppearOffline.Click
hackcommunity.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End Sub
Private Sub Away_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Away.Click
hackcommunity.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
End Sub
Private Sub Busy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Busy.Click
hackcommunity.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
End Sub
End Class
SignOut From MSN messenger كود:
hackcommunity.signout
CodeBreaker(Lebanese Hacker)
Thanks You :boss: | 