[Problem] Problem z tray'em.

[Andre13]

Cześć mam problem z Tray,em, a mianowicie nie reaguje na polecenia :unsure:.

Kod:

 

#include <Misc.au3>
#include <Constants.au3>
Opt("TrayMenuMode",1)
Local $hDLL = DllOpen("user32.dll")
HotKeySet("{home}","Start")
HotKeySet("{end}","Stop")
Global $dzialaj = False
Local $skrypt = TrayCreateItem("Pracuj", -1, -1, 1)
TrayItemSetState(-1, $TRAY_CHECKED)
$skrypt1 = TrayCreateItem("Przerwij", -1, -1, 1)
$exit = TrayCreateMenu ("Wyjdź")

While 1
Local $msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $skrypt
Start()
Case $msg = $skrypt1
Stop()
Case $msg = $exit
ExitLoop
EndSelect
While $dzialaj
If _IsPressed("01", $hDLL) Then
MouseMove (640,512)
While _IsPressed("01", $hDLL)
MouseMove (640,512)
Sleep(250)
WEnd
EndIf
WEnd
WEnd
Func Start()
$dzialaj = True
EndFunc
Func Stop()
$dzialaj = False
EndFunc

 

 

Z góry dziękuje za pomoc

P.S. Robiłem to na podstawie Helpa i skryptu w helpie.

[jackraymund]

While 1
    Local $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $skrypt
            Start()
        Case $msg = $skrypt1
            Stop()
        Case $msg = $exit
            ExitLoop
    EndSelect
 

powinno być

While 1
    Local $msg = TrayGetMsg()
    Select $msg
        Case 0
            ContinueLoop
        Case $skrypt
            Start()
        Case $skrypt1
            Stop()
        Case $exit
            ExitLoop
    EndSelect

[Andre13]

dzięki, można zamknąć.

P.S. Zabrakło WEnd na końcu.