[VB.NET] MSN Status Changer

[CodeBreaker]

*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

 

[OliverE]

Im guessing you add buttons with the names "<staus>_click"?

And also get this error with the appear offline

Error	1	Handles clause requires a WithEvents variable defined in the containing type or one of its base types.	C:\Users\Ollie\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb	10	105	WindowsApplication1

Its around the "Offline.Click" part of the code

 

[CodeBreaker]

if u add a button it will be button1_click
but i changed the name of the button to online
so its became Online_Click

anw can u post a ScreenShot Of The Error ?
Thanks

 

[OliverE]

Yer thats what I ment, its just u didnt say that in your tut

Spoiler: larger pic

 

[CodeBreaker]

Soo Problem Solved ??

 

[OliverE]

No,,,,,,, ?

 

[CodeBreaker]

ohhh, as i saw on the pic!
at the end of the button code(appearoffline)
there is an error at "offline" (without quotes)
change it to "appearoffline" (without quotes)

 

[OliverE]

kk ty vm can you change that in your source on the main post please

 

[CodeBreaker]

Done!
I Changed it xD

 

[OliverE]

TYVM