Skype - Alert when somebody comes online!

[WannaBeGut]

Hey,

I want the program to make different Actions when some persons come online, depending on the priority you choose in the GUI (1-3). It does not seem to work:

expandcollapse popup

#include <Skype.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region --- GUI START ---
$mainwin = GUICreate("Skype Notifier", 290, 186, 899, 341)
$label_user1 = GUICtrlCreateLabel("User1:", 16, 16, 63, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$label_user2 = GUICtrlCreateLabel("User2:", 16, 48, 39, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$label_user3 = GUICtrlCreateLabel("User3:", 16, 112, 36, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$label_user4 = GUICtrlCreateLabel("User4:", 16, 80, 34, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$label_user5 = GUICtrlCreateLabel("User5:", 160, 80, 49, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$label_user6 = GUICtrlCreateLabel("User6:", 160, 48, 45, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$label_user7 = GUICtrlCreateLabel("User7:", 160, 16, 32, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$input_priority1 = GUICtrlCreateInput("0", 104, 16, 17, 21)
$input_priority2 = GUICtrlCreateInput("0", 104, 48, 17, 21)
$input_priority3 = GUICtrlCreateInput("0", 104, 80, 17, 21)
$input_priority4 = GUICtrlCreateInput("0", 104, 112, 17, 21)
$label_user8 = GUICtrlCreateLabel("User8:", 160, 112, 61, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$input_priority5 = GUICtrlCreateInput("0", 240, 16, 17, 21)
$input_priority6 = GUICtrlCreateInput("0", 240, 48, 17, 21)
$input_priority7 = GUICtrlCreateInput("0", 240, 80, 17, 21)
$input_priority8 = GUICtrlCreateInput("0", 240, 112, 17, 21)
$button_arrowleft1 = GUICtrlCreateButton("<", 86, 16, 16, 22, $WS_GROUP)
$button_arrowright1 = GUICtrlCreateButton(">", 123, 16, 16, 22, $WS_GROUP)
$button_arrowleft2 = GUICtrlCreateButton("<", 86, 48, 16, 22, $WS_GROUP)
$button_arrowright2 = GUICtrlCreateButton(">", 123, 48, 16, 22, $WS_GROUP)
$button_arrowleft3 = GUICtrlCreateButton("<", 86, 80, 16, 22, $WS_GROUP)
$button_arrowright3 = GUICtrlCreateButton(">", 123, 80, 16, 22, $WS_GROUP)
$button_arrowleft4 = GUICtrlCreateButton("<", 86, 112, 16, 22, $WS_GROUP)
$button_arrowright4 = GUICtrlCreateButton(">", 123, 112, 16, 22, $WS_GROUP)
$button_arrowleft5 = GUICtrlCreateButton("<", 222, 16, 16, 22, $WS_GROUP)
$button_arrowright5 = GUICtrlCreateButton(">", 259, 16, 16, 22, $WS_GROUP)
$button_arrowleft6 = GUICtrlCreateButton("<", 222, 48, 16, 22, $WS_GROUP)
$button_arrowright6 = GUICtrlCreateButton(">", 259, 48, 16, 22, $WS_GROUP)
$button_arrowleft7 = GUICtrlCreateButton("<", 222, 80, 16, 22, $WS_GROUP)
$button_arrowright7 = GUICtrlCreateButton(">", 259, 80, 16, 22, $WS_GROUP)
$button_arrowleft8 = GUICtrlCreateButton("<", 222, 112, 16, 22, $WS_GROUP)
$button_arrowright8 = GUICtrlCreateButton(">", 259, 112, 16, 22, $WS_GROUP)
$button_apply = GUICtrlCreateButton("Apply", 176, 144, 103, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$checkbox_busy = GUICtrlCreateCheckbox("Busy Mode", 16, 144, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$checkbox_logfile = GUICtrlCreateCheckbox("Log File", 112, 144, 65, 25)
GUISetState(@SW_SHOW)
#EndRegion --- GUI END ---
Global $oSkype = ObjCreate("Skype4COM.Skype")
Global $oUser1 = $oSkype.User("User1")
Global $oUser2 = $oSkype.User("User2")
Global $oUser3 = $oSkype.User("User3")
Global $oUser4 = $oSkype.User("User4")
Global $oUser5 = $oSkype.User("User5")
Global $oUser6 = $oSkype.User("User6")
Global $oUser7 = $oSkype.User("User7")
Global $oUser8 = $oSkype.User("User8")
Global $SkypeStatus_Offline = $oSkype.Convert.TextToUserStatus("OFFLINE")
Global $SkypeStatus_Online = $oSkype.Convert.TextToUserStatus("ONLINE")
Global $SkypeStatus_Ringing = $oSkype.Convert.TextToCallStatus("RINGING")
Global $SkypeStatus_Inprogress = $oSkype.Convert.TextToCallStatus("INPROGRESS")
Global $SkypeStatus_Failed = $oSkype.Convert.TextToCallStatus("FAILED")
Global $SkypeStatus_Refused = $oSkype.Convert.TextToCallStatus("REFUSED")
Global $SkypeStatus_Cancelled = $oSkype.Convert.TextToCallStatus("CANCELLED")
Global $SkypeStatus_Finished = $oSkype.Convert.TextToCallStatus("FINISHED")
Global $SkypeStatus_Busy = $oSkype.Convert.TextToCallStatus("BUSY")
Global $SkypeStatus_Available = $oSkype.Convert.TextToAttachmentStatus("AVAILABLE")
Global $SkypeStatus_Invisible = $oSkype.Convert.TextToAttachmentStatus("AVAILABLE")
Global $mutestatus = $oSkype.Mute
Global $inputnumber1 = 0
Global $inputnumber2 = 0
Global $inputnumber3 = 0
Global $inputnumber4 = 0
Global $inputnumber5 = 0
Global $inputnumber6 = 0
Global $inputnumber7 = 0
Global $inputnumber8 = 0
Global $readpriority1 = GUICtrlRead($input_priority1)
Global $readpriority2 = GUICtrlRead($input_priority2)
Global $readpriority3 = GUICtrlRead($input_priority3)
Global $readpriority4 = GUICtrlRead($input_priority4)
Global $readpriority5 = GUICtrlRead($input_priority5)
Global $readpriority6 = GUICtrlRead($input_priority6)
Global $readpriority7 = GUICtrlRead($input_priority7)
Global $readpriority8 = GUICtrlRead($input_priority8)
Global $readcheckboxbusy = GUICtrlRead($checkbox_busy)
Global $readcheckboxlogfile = GUICtrlRead($checkbox_logfile)
Global $checkboxbusy = 0
Global $applystart = 0
Global $checkdone1 = 0

If Not $oSkype.Client.IsRunning Then
    $oSkype.Client.Start()
 EndIf
$oSkype.Attach(5)
If $SkypeStatus_Offline = $oSkype.CurrentUserStatus Then
    $oSkype.ChangeUserStatus($SkypeStatus_Online)
EndIf

 While 1
    $nMsg = GUIGetMsg()
        CheckingProcess()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $button_apply
            Global $readpriority1 = GUICtrlRead($input_priority1)
            Global $readpriority2 = GUICtrlRead($input_priority2)
            Global $readpriority3 = GUICtrlRead($input_priority3)
            Global $readpriority4 = GUICtrlRead($input_priority4)
            Global $readpriority5 = GUICtrlRead($input_priority5)
            Global $readpriority6 = GUICtrlRead($input_priority6)
            Global $readpriority7 = GUICtrlRead($input_priority7)
            Global $readpriority8 = GUICtrlRead($input_priority8)
            Global $readcheckboxbusy = GUICtrlRead($checkbox_busy)
            Global $readcheckboxlogfile = GUICtrlRead($checkbox_logfile)
            Global $applystart = 1
         Case $button_arrowleft1
            $inputnumber1 = $inputnumber1 - 1
            If $inputnumber1 < 0 then $inputnumber1 = 0
            GUICtrlSetData($input_priority1, $inputnumber1)
         Case $button_arrowright1
            $inputnumber1 = $inputnumber1 + 1
            If $inputnumber1 > 3 then $inputnumber1 = 3
            GUICtrlSetData($input_priority1, $inputnumber1)
         Case $button_arrowleft2
            $inputnumber2 = $inputnumber2 - 1
            If $inputnumber2 < 0 then $inputnumber2 = 0
            GUICtrlSetData($input_priority2, $inputnumber2)
         Case $button_arrowright2
            $inputnumber2 = $inputnumber2 + 1
            If $inputnumber2 > 3 then $inputnumber2 = 3
            GUICtrlSetData($input_priority2, $inputnumber2)
         Case $button_arrowleft3
            $inputnumber3 = $inputnumber3 - 1
            If $inputnumber3 < 0 then $inputnumber3 = 0
            GUICtrlSetData($input_priority3, $inputnumber3)
         Case $button_arrowright3
            $inputnumber3 = $inputnumber3 + 1
            If $inputnumber3 > 3 then $inputnumber3 = 3
            GUICtrlSetData($input_priority3, $inputnumber3)
         Case $button_arrowleft4
            $inputnumber4 = $inputnumber4 - 1
            If $inputnumber4 < 0 then $inputnumber4 = 0
            GUICtrlSetData($input_priority4, $inputnumber4)
         Case $button_arrowright4
            $inputnumber4 = $inputnumber4 + 1
            If $inputnumber4 > 3 then $inputnumber4 = 3
            GUICtrlSetData($input_priority4, $inputnumber4)
         Case $button_arrowleft5
            $inputnumber5 = $inputnumber5 - 1
            If $inputnumber5 < 0 then $inputnumber5 = 0
            GUICtrlSetData($input_priority5, $inputnumber5)
         Case $button_arrowright5
            $inputnumber5 = $inputnumber5 + 1
            If $inputnumber5 > 3 then $inputnumber5 = 3
            GUICtrlSetData($input_priority5, $inputnumber5)
         Case $button_arrowleft6
            $inputnumber6 = $inputnumber6 - 1
            If $inputnumber6 < 0 then $inputnumber6 = 0
            GUICtrlSetData($input_priority6, $inputnumber6)
         Case $button_arrowright6
            $inputnumber6 = $inputnumber6 + 1
            If $inputnumber6 > 3 then $inputnumber6 = 3
            GUICtrlSetData($input_priority6, $inputnumber6)
         Case $button_arrowleft7
            $inputnumber7 = $inputnumber7 - 1
            If $inputnumber7 < 0 then $inputnumber7 = 0
            GUICtrlSetData($input_priority7, $inputnumber7)
         Case $button_arrowright7
            $inputnumber7 = $inputnumber7 + 1
            If $inputnumber7 > 3 then $inputnumber7 = 3
            GUICtrlSetData($input_priority7, $inputnumber7)
         Case $button_arrowleft8
            $inputnumber8 = $inputnumber8 - 1
            If $inputnumber8 < 0 then $inputnumber8 = 0
            GUICtrlSetData($input_priority8, $inputnumber8)
         Case $button_arrowright8
            $inputnumber8 = $inputnumber8 + 1
            If $inputnumber8 > 3 then $inputnumber8 = 3
            GUICtrlSetData($input_priority8, $inputnumber8)
    EndSwitch
 WEnd
 Func CheckingProcess()
            If $applystart = 0 then return
            Global $userstatus1 = $oSkype.Convert.OnlineStatusToText($oUser1.OnlineStatus)
            If $readpriority1 = 1 and $userstatus1 = "Online" or "Busy" then GUICtrlSetData($input_priority1, "!")
            If $readpriority1 = 2 and $userstatus1 = "Online" or "Busy" then  ChatAlert()
            If $readpriority1 = 3 and $checkboxbusy = 0 and $userstatus1 = "Online" or "Busy" then  MsgBox(0, "User Online!", "User1 ist Online!"&Chr(10))
            If $readpriority1 = 3 and $checkboxbusy = 1 and $userstatus1 = "Online" or "Busy" then  ChatAlert2()
            If $userstatus1 = "Do not Disturb" then $userstatus1 = "Busy"
            If $readcheckboxlogfile = 1 and $userstatus1 = "Online" or "Busy" then FileWrite("SkypeLog.txt", @MDAY&"/"&@MON&"/"&@YEAR&"/"&@HOUR&":"&@MIN&":"&@SEC&": "&"User1"&" is "&$userstatus1)

            Global $userstatus2 = $oSkype.Convert.OnlineStatusToText($oUser2.OnlineStatus)
            If $readpriority2 = 1 and $userstatus2 = "Online" or "Busy" then GUICtrlSetData($input_priority1, "!")
            If $readpriority2 = 2 and $userstatus2 = "Online" or "Busy" then ChatAlert()
            If $readpriority2 = 3 and $checkboxbusy = 0 and $userstatus2 = "Online" or "Busy" then MsgBox(0, "User Online!", "User2 ist Online!")
            If $readpriority2 = 3 and $checkboxbusy = 1 and $userstatus2 = "Online" or "Busy" then ChatAlert2()
            If $readcheckboxlogfile = 1 and $userstatus2 = "Online" or "Busy" then FileWrite("SkypeLog.txt", @MDAY&"/"&@MON&"/"&@YEAR&"/"&@HOUR&":"&@MIN&":"&@SEC&": "&"User2"&" is "&$userstatus2)
 EndFunc
 Func ChatAlert()
 EndFunc

 Func ChatAlert2()
 EndFunc

I hope you can help me! =)

Edit: I will make it a bit more neat when I get it to work ^^

Edited October 25, 2015 by WannaBeGut

[BrewManNH]

What does not seem to work? What is the issue you're seeing?

[WannaBeGut]

What does not seem to work? What is the issue you're seeing?

It will always think the Users are online, at least the MsgBox always pops up, the interesting thing is: If I display the $userstatus variable in a MsgBox, I can see it always shows the right state of the User (Online, Offline, Busy, Away)

If $readpriority2 = 1 and $userstatus2 = "Online" or "Busy" then GUICtrlSetData($input_priority1, "!")

Edited October 25, 2015 by WannaBeGut
Correction

[BrewManNH]

Try this change:

If $readpriority1 = 1 and ($userstatus1 = "Online" or $userstatus1 = "Busy") then GUICtrlSetData($input_priority1, "!")

 

[WannaBeGut]

Try this change:

If $readpriority1 = 1 and ($userstatus1 = "Online" or $userstatus1 = "Busy") then GUICtrlSetData($input_priority1, "!")

 

Just fixed it! That's what I did: (Thx anyways :D)

Local $userstatus1 = $oSkype.Convert.OnlineStatusToText($oUser1.OnlineStatus)
        If $userstatus1 = "Do Not Disturb" then $userstatus1 = "Busy"
        If $userstatus1 = "Online" then $uservalue1 = "Online"
        If $userstatus1 = "Offline" then $uservalue1 = "Offline"
        If $userstatus1 = "Busy" then $uservalue1 = "Online"
        If $userstatus1 = "Away" then $uservalue1 = "Offline"
        If $readpriority1 = 1 and $uservalue1 = "Online" then GUICtrlSetData($input_priority1, "!")
        If $readpriority1 = 2 and $uservalue1 = "Online" then Msg()
        If $readpriority1 = 3 and $busymode = 0 and $uservalue1 = "Online" then MsgBox(0, "User Online!", "User st Online!")
        If $readpriority1 = 3 and $busymode = 1 and $uservalue1 = "Online" then MsgImportant()

 

Edited October 26, 2015 by WannaBeGut