Jump to content
Sign in to follow this  
AzKay

MSN Status Checker.

Recommended Posts

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 by AzKay

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

lol doesn't work for me

says my e-mail status is unknown


"Its not about the 30 inch 1080p display, or the SLI 8800 ultras, or the DDR3 memory. It's about when you turn on your PC, does it return the favor?"Math is like sex. Sure, it may give some practical results, but that is not why we do it

Share this post


Link to post
Share on other sites

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 by AzKay

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

lol ya now it worked

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


"Its not about the 30 inch 1080p display, or the SLI 8800 ultras, or the DDR3 memory. It's about when you turn on your PC, does it return the favor?"Math is like sex. Sure, it may give some practical results, but that is not why we do it

Share this post


Link to post
Share on other sites

;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

Share this post


Link to post
Share on other sites

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)


[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...