2 scripts with hotkeys can't work at the same time(?)

[sandin]

I have this simple script:

#include <GUIConstants.au3>
HotKeySet("{NUMPAD1}", "_OK_label")
HotKeySet("{NUMPAD0}", "_NOT_OK_label")
$Form1 = GUICreate("Form1", 150, 100, 193, 125)
$Label1 = GUICtrlCreateLabel("Press Num1", 24, 24, 100, 17)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
func _OK_label()
    GUICtrlSetData($Label1, "OK!")
EndFunc
func _NOT_OK_label()
    GUICtrlSetData($Label1, "not ok...")
EndFunc

when I compile it, and start the exe file twice, only one will work and the other won't. Even if I close the working one, the other still won't work, why's that?

[Monamo]

I have this simple script:

#include <GUIConstants.au3>
HotKeySet("{NUMPAD1}", "_OK_label")
HotKeySet("{NUMPAD0}", "_NOT_OK_label")
$Form1 = GUICreate("Form1", 150, 100, 193, 125)
$Label1 = GUICtrlCreateLabel("Press Num1", 24, 24, 100, 17)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
func _OK_label()
    GUICtrlSetData($Label1, "OK!")
EndFunc
func _NOT_OK_label()
    GUICtrlSetData($Label1, "not ok...")
EndFunc

when I compile it, and start the exe file twice, only one will work and the other won't. Even if I close the working one, the other still won't work, why's that?

Give this a shot - It will set enable the hotkeys only for the "active" window:

CODE

#include <GUIConstants.au3>

$Form1 = GUICreate("Form1", 150, 100, 193, 125)

$Label1 = GUICtrlCreateLabel("Press Num1", 24, 24, 100, 17)

Dim $iHotKeysActive = 0

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

_SetHotKeys()

WEnd

Func _OK_label()

GUICtrlSetData($Label1, "OK!")

EndFunc

Func _NOT_OK_label()

GUICtrlSetData($Label1, "not ok...")

EndFunc

Func _SetHotKeys()

If WinActive($Form1) Then

If Not $iHotKeysActive Then

HotKeySet("{NUMPAD1}", "_OK_label")

HotKeySet("{NUMPAD0}", "_NOT_OK_label")

$iHotKeysActive = 1

EndIf

Else

If $iHotKeysActive Then

HotKeySet("{NUMPAD1}")

HotKeySet("{NUMPAD0}")

$iHotKeysActive = 0

EndIf

EndIf

EndFunc

[sandin]

tnx it fixed the 2nd problem, but my first still remains, I want both scripts to act on Num1, not only 1 script ;/

It's possible with different hotkeys, but is it possible with the same hotkey in both scripts?

[someone]

Just use _IsPressed()

#include <GUIConstants.au3>
#Include <Misc.au3>

;~ HotKeySet("{NUMPAD1}", "_OK_label")
;~ HotKeySet("{NUMPAD0}", "_NOT_OK_label")

$Form1 = GUICreate("Form1", 150, 100, 193, 125)
$Label1 = GUICtrlCreateLabel("Press Num1", 24, 24, 100, 17)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    If _IsPressed(61) Then _OK_label()
    If _IsPressed(60) Then _NOT_OK_label()
WEnd
func _OK_label()
    GUICtrlSetData($Label1, "OK!")
EndFunc
func _NOT_OK_label()
    GUICtrlSetData($Label1, "not ok...")
EndFunc

Whoops forgot the #Include <Misc.au3>

Edited May 22, 2008 by someone

[sandin]

tnx!!! it worked ^^