Windows management

[marf]

Hi,

I have a small problem with one script

Here you are :

HotKeySet("^{SPACE}","SendKeys")

While 1
    Sleep(10000)
WEnd

Func SendKeys()
    $ok = MsgBox(64 + 0, "Computer Name", @COMPUTERNAME)
      Switch $ok
        Case 1; OK
      EndSwitch
EndFunc

 

When you press the keys (shortcut), a windows appears with an OK button. If you press another time the shortcut when the windows is on screen, and then you clic on OK, a second same window show on screen.

Is there a solution to  block that second windows ?

 

[Trong]

Try:
 

HotKeySet("^{SPACE}", "SendKeys")
Global $Check = False

While 1
    Sleep(10000)
WEnd

Func SendKeys()
    If $Check Then Return
    $Check = True
    $ok = MsgBox(64 + 0, "Computer Name", @ComputerName)
    Switch $ok
        Case 1 ; OK
    EndSwitch
    $Check = False
EndFunc   ;==>SendKeys

 

[marf]

It work well !

Thank you for your fast answer.

 

[AutoBert]

i prefer this solution:

HotKeySet("^{SPACE}", "SendKeys")

While 1
    Sleep(10000)
WEnd

Func SendKeys()
    HotKeySet("^{SPACE}")
    $ok = MsgBox(64 + 0, "Computer Name", @ComputerName)
    Switch $ok
        Case 1 ; OK
    EndSwitch
    HotKeySet("^{SPACE}", "SendKeys")
EndFunc   ;==>SendKeys