Sign in to follow this  
Followers 0
WannaBeGut

Skype - Alert when somebody comes online!

5 posts in this topic

#1 ·  Posted (edited)

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:

#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 by WannaBeGut

Share this post


Link to post
Share on other sites



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


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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 by WannaBeGut
Correction

Share this post


Link to post
Share on other sites

Try this change:

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

 


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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

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  
Followers 0

  • Similar Content

    • badcoder123
      By badcoder123
      Anyone know how to access the information circled in the photo?
       

    • AndreyS
      By AndreyS
      Dear developers and creators of the language, please explain to me why when pressing the combination Crtl + Shift + C from the 5th or the 10th time "sticks / sinks" Ctrl or Shift? And then you need to press Ctrl or Shift again to reset their triggering. I only need to use hot keys like in the example!
      The code is a small example. Its essence is that when a user in the editor selects any number and presses a combination, then it increases by 1. 
      Dim $x HotKeySet("+^c","Calc") While 1 Sleep(10000) WEnd Func Calc() Send("^c") Sleep(50) $x=ClipGet()+1 ClipPut($x) Send("^v") EndFunc I thought that in my program some kind of glitch was searching for a reason for a long time. And it turned out that apparently somehow the work of some functions used in the example is not compatible. 
      Tell me, please, what is the problem?
    • sree161
      By sree161
      Hi,
      i have a code which generates two numeric outputs.i have to save them in excel.
      Is there any way to export them to specific cells in excel???
    • TotalAuto
      By TotalAuto
      Howdy All
      I've gone around and around in circles wasting hours trying to fix this problem to no avail so I thought I would try posting for help given there are some real smart people in this forum.
      Background
      I have 5 separate .au3 scripts that all do different basic tasks. For example:
      1.au3 = opens Chrome browser to obtain information from a specific website then closes
      2.au3 = opens an Excel workbook to run a macro then saves and closes
      3.au3 = Open two seperate workbooks and transfers data from one to the other then saves and closes
      4.au3 = .......etc
      5.au3 = .......etc
      These 5 separate scripts, doing completely different tasks, need to each run once per day at 5 different designated times within a day and then close. For example:
      1.au3 = 10am
      2.au3 = 12pm
      3.au3 = 2pm
      4.au3 = 4pm
      5.au3 = 5pm
      Problem
      I can not get these different scripts to reliably run at their designated times. When I manually run these scripts individually by using 'Go F5' they work perfectly. If I convert these scripts to an .exe and manually run each one they work about 98% of time.
      How can I schedule these different .au3 files or associated .exe files to reliably run each day at different times?
      Attempts To Fix The Issue
      1. I have tried converting each .au3 script into their own .exe file and use Window's Task Scheduler to run these .exe files at their designated time but the success rate  of running each .exe in full, to completion, without error is very low at about 30%. Things that commonly go wrong include a browser not opening but movement still continues on the desk top. Other times things just do not happen at all.
      2. I have Windows 7 64 bit and have tried creating and running both (x86) and (x64) .exe files but again reliability problems exist;
      3. I have also tried moving each .exe file to the My Documents folder as I read someone that keeping your files on your desktop ties your files to individual Windows user profiles which can cause AutoIt operating errors. Not sure if this is correct but thought I would try it anyway. It did not fix my issue.
      4. I installed a program called AlwaysUp which supposedly always reliably runs in the background and will reliably execute your AutoIt script or .exe files. Still have significant reliability issues.
      Therefore, can someone please provide advice on how I can get my 5 different .au3 files to run at 5 designated times through the day, every day, without fail? Overtime I will be creating more and more different .au3 files to run certain tasks throughout the day and do not want to create one large AutoIt file that continually runs and attempts to do all the different tasks itself.
      Any help is very appreciated.
      Thanks
      Dan
       
       
    • hugomito
      By hugomito
      Hi all,
      I built an AutoIt application that interacts with several other applications/software. Now, it's turn to interfact with Visual Studio Team Services (VSTS).
      Does anyone has a blog, demo, script to share?
      Thanks!