MSN Status Checker.

[AzKay 0]

CREDITS//

Me - For putting it together.

w0uter - For making the thread that;

zeroZshadow - Posted the $oMessenger = ObjCreate("Messenger.UIAutomation.1") Stuff.

WHAT I NEED//

Well, Im pretty sure I dont have all the different status's there, So, If you know of one that I dont have up there, Post it Thanks.

msnchecker.au3

Edited September 24, 2006 by AzKay

[Dethredic 0]

lol doesn't work for me

says my e-mail status is unknown

[AzKay 0]

lol doesn't work for me

says my e-mail status is unknown

Because your not meant to check your status, its to check other peoples status.

EDIT::

Damn, It doesnt tell you if the person blocked you or not though.

Edited September 24, 2006 by AzKay

[Dethredic 0]

lol ya now it worked

just wondering can it check people not on ur contact list?

[Koerveter 0]

Doesn't work for me, sorry for asking, do I need anything else then the newest version of autoit, like an addon or something?

[Dethredic 0]

most likely beta

[user52 0]

works for me, thanks!

[user52 0]

;object
$oMessenger = ObjCreate("Messenger.UIAutomation.1")

;get current user's status
$mystatus = $oMessenger.MyStatus()

;get current user's signin name
$myname = $oMessenger.MySigninName()

;get status of user
$useremail = InputBox("", "Enter email address of a messenger user:", "", "", 100, 10)
$userstatus = $oMessenger.GetContact($useremail, $oMessenger.MyServiceId).Status

;display status of current user and chosen user
MsgBox(0,"",$myname & "'s current status is: " & GetStatus($mystatus) & @CRLF & $useremail & "'s status is: " & GetStatus($userstatus))

Func GetStatus($status)
    If $status = 2 Then
        Return "Online"
    ElseIf $status = 10 Then
        Return "Busy"
    ElseIf $status = 14 Then
        Return "Be Right Back"
    ElseIf $status = 34 Then
        Return "Away"
    ElseIf $status = 50 Then
        Return "Phone"
    ElseIf $status = 66 Then
        Return "Lunch"
    ElseIf $status = 6 Then
        Return "Offline"
    Else
        Return "Unknown State"
    EndIf
EndFunc

[Skrip 1]

C:\AutoIt3\msnchecker.au3 (7) : ==> Variable must be of type "Object".:

$Status = $oMessenger.GetContact($Email, $oMessenger.MyServiceId).Status

$Status = $oMessenger^ ERROR

What's up 'ere? My versions are up to date. (including beta)

[Impulse08 0]

Anyway to get this to display for users that are not on your buddy list? I could only get this to work for users I already have on my contact list, users other than that just came up as Unknown. It'd be much more useful if you could use this for non-contacts.