Even when "Paused" hot key is still overtaken

[inm101]

I have a program that runs in the system tray and acts as a hot key assistant for the F11 key. When I "Pause" the script I expect that the F11 key control will get turned back over to the computer. But, it seems as though the F11 key is disabled for all programs when the script is paused. What can I do to turn over F11 functionality back to the computer when the script is paused?

Here's my code:

expandcollapse popup

Global $Paused
Global $Location

AutoItSetOption("TrayAutoPause",0)
Hotkeyset("{F11}","MainFunction")

While 1
    Sleep(100)
WEnd


Func MainFunction()
if @DesktopWidth=1024 and @DesktopHeight=768 then
blockinput(1)
$sleeptime="250"
;===========================
;Determine Location Based on Open windows.
;===========================
$var = WinList()
$location=""

For $i = 1 to $var[0][0]
  If BitAnd( WinGetState($var[$i][1]), 2 ) Then 
    $t=true
  Else
    $t=false
  EndIf
  ; Only display visble windows that have a title
  If $var[$i][0] <> "" AND $t Then
      Consolewrite($var[$i][0]&@CRLF)
        ;consolewrite("Title=" & $var[$i][0])
            if StringInStr($var[$i][0],"Hospital_1") Then
                $location="Hospital_1"
            ElseIf StringInStr($var[$i][0],"Hospital_2") Then
                $location="Hospital_2"
            Else 
                if StringInStr($var[$i][0],"Hospital_3") Then
                    $location = "Hospital_3"
                EndIf
            EndIf
    EndIf
Next

;===========================
;End determining Location Based on Open windows.
;===========================

    if WinExists(""&$location&"","") then
        WinActivate(""&$location&"","")
        WinMove(""&$location&"", "", 0, 0)
        MouseClick("left",391,212,1,0)
        WinWaitActive("Coder Desktop -", "", 10)
        WinMove("Coder Desktop -", "", 0, 0)
        Send("{space}")
        Send("{enter}")
        Send("{tab}")
        $counter=0
        do
            Sleep($sleeptime)
            MouseClick("left",537,687,1,0)
            $counter=$counter+1
            if $counter=5 Then
                if WinExists("Enterprise Medical Record","") then
                    ExitLoop
                EndIf
            EndIf
        Until $counter > 20
        if not WinExists("Enterprise Medical Record","") then
            blockinput(0)
            MsgBox(0,"Warning","Operation may not have successfully complete because the selected record took too long to appear")
        EndIf
    Else
        blockinput(0)
        Msgbox(0,"Warning","Can not start hotkey sequence because Meditech "&$location&" screen is not open")
    EndIf
    
    Else
        MsgBox(0,"Error","Your resolution is not set to 1024x768.  Please set your resolution to 1024x768 before continuing.")
    EndIf
    
    blockinput(0)
EndFunc

Func Terminate()
    Exit 0
EndFunc

[Melba23]

inm101,

How are you pausing your script? You have a $Paused variable declared, but it is never used.

If you were to use a second HotKey to pause/unpause the script, you could then unset/reset the existing HotKey within the same function. her is an example of how to do it:

expandcollapse popup

#include <GUIConstantsEx.au3>

HotKeySet("{F1}", "Run_Function")
HotKeySet("{F2}", "Pause_Function")

$fPaused = False

$hGUI = GUICreate("Test", 500, 500)

$hLabel_1 = GUICtrlCreateLabel("", 10, 10, 300, 20)
$hLabel_2 = GUICtrlCreateLabel("", 10, 50, 300, 20)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

Func Run_Function()

    GUICtrlSetData($hLabel_1, "The F1 Hotkey is working")
    Sleep(1000)
    GUICtrlSetData($hLabel_1, "")

EndFunc

Func Pause_Function()

    $fPaused = Not $fPaused
    If $fPaused = True Then
        HotKeySet("{F1}")
        GUICtrlSetData($hLabel_2, "Paused!")
    Else
        HotKeySet("{F1}", "Run_Function")
        GUICtrlSetData($hLabel_2, "")
    EndIf

EndFunc

Please ask if anything is unclear.

M23

[inm101]

inm101,

How are you pausing your script? You have a $Paused variable declared, but it is never used.

If you were to use a second HotKey to pause/unpause the script, you could then unset/reset the existing HotKey within the same function. her is an example of how to do it:

expandcollapse popup

#include <GUIConstantsEx.au3>

HotKeySet("{F1}", "Run_Function")
HotKeySet("{F2}", "Pause_Function")

$fPaused = False

$hGUI = GUICreate("Test", 500, 500)

$hLabel_1 = GUICtrlCreateLabel("", 10, 10, 300, 20)
$hLabel_2 = GUICtrlCreateLabel("", 10, 50, 300, 20)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

Func Run_Function()

    GUICtrlSetData($hLabel_1, "The F1 Hotkey is working")
    Sleep(1000)
    GUICtrlSetData($hLabel_1, "")

EndFunc

Func Pause_Function()

    $fPaused = Not $fPaused
    If $fPaused = True Then
        HotKeySet("{F1}")
        GUICtrlSetData($hLabel_2, "Paused!")
    Else
        HotKeySet("{F1}", "Run_Function")
        GUICtrlSetData($hLabel_2, "")
    EndIf

EndFunc

Please ask if anything is unclear.

M23

I don't want to create another hot key to pause/unpause. I just don't want "Pause" to disable the F11 key all together. And, let me be more specific. The F11 key only seems to be disabled for one program. It's a Medicare Telnet-driven program.

I'm not sure what to do at this point other than creating two scripts...One to run as the actual F11 function and one to run as a system tray Opener and Exiter.

Edited March 22, 2010 by inm101

[Melba23]

inm101,

When you reply please use the "Add Reply" button at the top and bottom of the page rather then the "Reply" button in the post itself. That way you do not get the contents of the previous post quoted in your reply and the whole thread becomes easier to read.

creating two scripts...One to run as the actual F11 function and one to run as a system tray Opener and Exiter

You can still do it in one script. How about using the tray icon menu to enable/disable your F11 HotKey? This shows how it could be done:

expandcollapse popup

#include <GUIConstantsEx.au3>

HotKeySet("{F11}", "Run_Function")

$fDisable = False

Opt("TrayOnEventMode", 1) ; Use event trapping for tray menu
Opt("TrayMenuMode", 3) ; Default tray menu items will not be shown.

Global $hPause_Item = TrayCreateItem("Disable F11")
TrayItemSetOnEvent(-1, "On_Option")
TrayCreateItem("")
Global $hExit_Item = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "On_Exit")
TrayCreateItem("")

$hGUI = GUICreate("Test", 500, 500)

$hLabel_1 = GUICtrlCreateLabel("", 10, 10, 300, 20)
$hLabel_2 = GUICtrlCreateLabel("", 10, 50, 300, 20)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

Func Run_Function()

    GUICtrlSetData($hLabel_1, "The F11 Hotkey is working")
    Sleep(1000)
    GUICtrlSetData($hLabel_1, "")

EndFunc

Func On_Option()

    $fDisable = Not $fDisable
    If $fDisable = True Then
        HotKeySet("{F11}")
        GUICtrlSetData($hLabel_2, "F11 Disabled!")
        TrayItemSetText($hPause_Item, "Enable")
    Else
        HotKeySet("{F11}", "Run_Function")
        GUICtrlSetData($hLabel_2, "")
        TrayItemSetText($hPause_Item, "Disable")
    EndIf

EndFunc

Func On_Exit()
    Exit
EndFunc

Is that more what you want?

M23