VB.NET MSN Status Changer

[CodeBreaker]

أولا اذهب إلى

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:

[إمام المنتدى]

شكرا

[CodeBreaker]

Welcome (:

[PASSEWORD]

nice work brother
you are vb.net coder ??

[CodeBreaker]

Yeah :D

[PASSEWORD]

اقتباس المشاركة الأصلية كتبت بواسطة CodeBreaker Yeah :D

what about working in team
if you are interessted in that i am invinting you

[CodeBreaker]

اقتباس المشاركة الأصلية كتبت بواسطة PASSEWORD what about working in team if you are interessted in that i am invinting you

mmm okay!
yup i am interested :D

[D-GhosT s3cur!Ty-Z]

great work

thnx a lot keep dude

[CodeBreaker]

اقتباس المشاركة الأصلية كتبت بواسطة I PROMISE HACKER great work thnx a lot keep dude

No Problem :D

[KaLa$nikoV]

ثانكس يا غلا

موضوع جميل مثل صاحبو

[CodeBreaker]

Not A Problem Dude ;)

[align=center]شـكــ وبارك الله فيك ـــرا لك[/align]

[_Mr]

تسلم على مرورك ياغالى وان شاء الله التوفيق للجميـع