Search the Community

Hi guys Not sure if my request here is too complicated, but here goes: I have created a script for the company, with big success. What it does, is to forward our duty calls to a specific cellphone number, via Lync. Below is the script. Don't get confused about all the send commands. Those are just the process to make lync turn on the forward. There are 4 buttons. 1. Lync 2010 - Transfer call (Opens a dialog box, where you can specify a telephone number, which later refers to the Send($sInput) command. 2. Lync 2010 - Turn off forward of calls (Nevermind this button) 3. Lync 2013 - Transfer call (Opens a dialog box, where you can specify a telephone number, which later refers to the Send($sInput) command. 4. Lync 2013 - Turn off forward of calls (Nevermind this button) Ok so what would be even more nice than a dialog box to enter phone number in (button 1 and 3)? --> A Dialogbox with names to chose from! Then maybe I could add all the names of the employers in some sort of list, and define what their cellphone numbers are. So instead of now where people manually type in a phone number in a dialog box, they could chose a name from the dropdown menu, and the script would know what number to use af the Send($sInput) line! #include <GUIConstantsEx.au3> Example() Func Example() Local $Button_1, $Button_2, $Button_3, $Button_4, $msg GUICreate("David Linder script®", 380, 130) ; will create a dialog box that when displayed is centered Opt("GUICoordMode", 4) $Button_1 = GUICtrlCreateButton("Stille vagten over - Lync 2010", 23, 30, 150) $Button_2 = GUICtrlCreateButton("Slå vagten fra - Lync 2010", 203, 30, 150) $Button_3 = GUICtrlCreateButton("Stille vagten over - Lync 2013", 23, 80, 150) $Button_4 = GUICtrlCreateButton("Slå vagten fra Lync 2013", 203, 80, 150) GUISetState() ; will display a dialog box with 2 button ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 ;_______________________Stille vagten over - Lync 2010 UNDER HER_______________________; If WinExists("Microsoft Lync") Then While 1 $sInput = InputBox("David Linder script®", "Indtast mobilnummeret du vil stille over til:", "", "", 250, 125) If @error <> 0 Then Exit If StringStripWS($sInput, 3) <> "" Then ;Nedenstående slår vagten fra, så den er klar til at blive viderestillet til et mobilnr. BlockInput(1) ;blocker mus/tastatur WinActivate("Microsoft Lync") WinWaitActive("Microsoft Lync") Send("64215455") Sleep(1000) Send("{ENTER}") Sleep(3000) Send("5401") Sleep(3000) Send("{#}") Send("511") Sleep(500) Send("91") Sleep(500) Send("480") Sleep(4000) Send("{ESC}") Sleep(1000) Send("{ALTDOWN}") Sleep(100) Send("q") Sleep(100) Send("{ALTUP}") BlockInput(0) ;fjerner block igen ;Nedenstående slår vagten over til det indtastede mobilnr. BlockInput(1) ;blocker mus/tastatur Sleep(1000) WinActivate("Microsoft Lync") WinWaitActive("Microsoft Lync") Send("64215455") Sleep(1000) Send("{ENTER}") Sleep(3000) Send("5401") Sleep(3000) Send("{*}") Send("511") Sleep(500) Send("91") Sleep(500) Send("480") Sleep(4000) Send("808") Sleep(1000) Send($sInput) ;phone number Sleep(1000) Send("{#}") Sleep(4000) Send("{ESC}") Sleep(1000) Send("{ALTDOWN}") Sleep(100) Send("q") Sleep(100) Send("{ALTUP}") BlockInput(0) ;fjerner block igen Exit EndIf WEnd Else MsgBox(4096, "Fejl", "Du har umiddelbart ikke en Lync 2010 kørende") Endif ;_______________________Stille vagten over - Lync 2010 OVER HER_______________________; Case $msg = $Button_2 ;_______________________Slå vagten fra - Lync 2010 UNDER HER_______________________; If WinExists("Microsoft Lync") Then BlockInput(1) ;blocker mus/tastatur WinActivate("Microsoft Lync") WinWaitActive("Microsoft Lync") Send("64215455") Sleep(1000) Send("{ENTER}") Sleep(3000) Send("5401") Sleep(3000) Send("{#}") Send("511") Sleep(500) Send("91") Sleep(500) Send("480") Sleep(4000) Send("{ESC}") Sleep(1000) Send("{ALTDOWN}") Sleep(100) Send("q") Sleep(100) Send("{ALTUP}") BlockInput(0) ;fjerner block igen Exit Else MsgBox(4096, "Fejl", "Du har umiddelbart ikke en Lync 2010 kørende") Endif ;_______________________Slå vagten fra - Lync 2010 OVER HER_______________________; Case $msg = $Button_3 ;_______________________Stille vagten over - Lync 2013 UNDER HER_______________________; If WinExists("Lync") Then While 1 $sInput = InputBox("David Linder script®", "Indtast mobilnummeret du vil stille over til:", "", "", 250, 125) If @error <> 0 Then Exit If StringStripWS($sInput, 3) <> "" Then ;Nedenstående slår vagten fra, så den er klar til at blive viderestillet til et mobilnr. BlockInput(1) ;blocker mus/tastatur WinActivate("Lync") WinWaitActive("Lync") Send("64215455") Sleep(1000) Send("{ENTER}") Sleep(3000) Send("5401") Sleep(3000) Send("{#}") Send("511") Sleep(500) Send("91") Sleep(500) Send("480") Sleep(4000) Send("{ESC}") Sleep(1000) Send("{CTRLDOWN}") Sleep(100) Send("{ENTER}") Sleep(100) Send("{CTRLUP}") Sleep(1000) Send("{ENTER}") BlockInput(0) ;fjerner block igen ;Nedenstående slår vagten over til det indtastede mobilnr. BlockInput(1) ;blocker mus/tastatur Sleep(1000) WinActivate("Lync") WinWaitActive("Lync") Send("64215455") Sleep(1000) Send("{ENTER}") Sleep(3000) Send("5401") Sleep(3000) Send("{*}") Send("511") Sleep(500) Send("91") Sleep(500) Send("480") Sleep(4000) Send("808") Sleep(1000) Send($sInput) ;phone number Sleep(1000) Send("{#}") Sleep(4000) Send("{ESC}") Sleep(1000) Send("{CTRLDOWN}") Sleep(100) Send("{ENTER}") Sleep(100) Send("{CTRLUP}") Sleep(1000) Send("{ENTER}") BlockInput(0) ;fjerner block igen Exit EndIf WEnd Else MsgBox(4096, "Fejl", "Du har umiddelbart ikke en Lync 2013 kørende") Endif ;_______________________Stille vagten over - Lync 2013 OVER HER_______________________; Case $msg = $Button_4 ;_______________________Slå vagten fra Lync 2013 UNDER HER_______________________; If WinExists("Lync") Then BlockInput(1) ;blocker mus/tastatur WinActivate("Lync") WinWaitActive("Lync") Send("64215455") Sleep(1000) Send("{ENTER}") Sleep(3000) Send("5401") Sleep(3000) Send("{#}") Send("511") Sleep(500) Send("91") Sleep(500) Send("480") Sleep(4000) Send("{ESC}") Sleep(1000) Send("{CTRLDOWN}") Sleep(100) Send("{ENTER}") Sleep(100) Send("{CTRLUP}") Sleep(1000) Send("{ENTER}") BlockInput(0) ;fjerner block igen Exit Else MsgBox(4096, "Fejl", "Du har umiddelbart ikke en Lync 2013 kørende") Endif ;_______________________Slå vagten fra Lync 2013 OVER HER_______________________; EndSelect WEnd EndFunc ;==>Example