Jump to content

MSN Status Changer question


Recommended Posts

Online

Appear offline

Busy

What I Want My Statue Msn changes each time when click on the buttons of the following script:

#include <GUIConstants.au3>
$Form1 = GUICreate("STATUE CHANGER IN AUTOIT", 160, 138, 193, 125, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Button1 = GUICtrlCreateButton("Online", 40, 16, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Appear offline", 40, 56, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Busy", 40, 96, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Is it possible that - and I want the answer please

and Thanks YOu All

Edited by NewForAutoit
Link to comment
Share on other sites

  • Developers

Can you post Normal posts using regular Fonts and write Titles that make sense and are not all CAPS.

EDIT: That was fast ..

Edited by Jos

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to comment
Share on other sites

Did you read what jos has mentioned? We are not going to give you an answer if you just ignore the mods/devs, and countinue to do what they ask you not to do. Wow! Great effort too! You made a GUI! Good job. Congrats.

Link to comment
Share on other sites

  • Developers

I want to help and answer not a chat

Please Help

Stop begging and try to explain what it is you want to accomplish.

It really help when you explain things properly. :)

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to comment
Share on other sites

This is something I found ages ago, it doesn't do what you want but maybe somebody else will be able to change it to work for what you want.

$Email = InputBox("Email:", "Email:", "", "", 100, 10)
If $Email = "" Then
    MsgBox(0, "Error:", "Input An Email Address")
    Exit
EndIf
$oMessenger = ObjCreate("Messenger.UIAutomation.1")
$Status = $oMessenger.GetContact($Email, $oMessenger.MyServiceId).Status
Switch $Status
    Case 1
        MsgBox(0, "", $Email & " Is Offline")
    Case 2
        MsgBox(0, "", $Email & " Is Online")
    Case 6
        MsgBox(0, "", $Email & " Is Offline")
    Case 10
        MsgBox(0, "", $Email & " Is Busy")
    Case 14
        MsgBox(0, "", $Email & " Will Be Right Back")
    Case 18
        MsgBox(0, "", $Email & " Is Idle")
    Case 34
        MsgBox(0, "", $Email & " Is Away")
    Case 50
        MsgBox(0, "", $Email & " Is On The Phone")
    Case 66
        MsgBox(0, "", $Email & " Is Eating Lunch")
    Case Else
        MsgBox(0, "", $Email & " Is Unknown")
EndSwitch
$oMessenger = ""
My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
Link to comment
Share on other sites

You want the answer...hmm...well...NO!

Do you know why your not getting the answer?

Maybe you should figure that out on your own, fix that, and maybe get some help.

Description... :)

Edited by R6V2
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...