Minimized to Tray Doesn Not Work

[Kyou]

I have a working code here which Im having a problem:

expandcollapse popup

#include <GUIConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode",1)

$title = "Untitled - Notepad"
$text=""
$fullTest = WinExistsExact($title, $text)
$PASSWORD = "password"
$retryCount = 0
$stop = 1

; Prevent standard Windows events
;Opt("GUIEventOptions", 1)

; Remove standard tray menu items
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 3)

; Create tray menu
Global $cTray_Show = TrayCreateItem("Show")
TrayItemSetOnEvent($cTray_Show, "_Show_GUI")
$About = TrayCreateItem("Help")
TrayItemSetOnEvent($About, "_About")
TrayCreateItem("")
Global $cTray_Exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_Exit")

$iParent_Win = WinGetHandle(AutoItWinGetTitle())

GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND")

While 1
    if $retryCount > 0 then Exit
    $input = InputBox("Password Protected", "Enter the password to continue", "", "*")
    If @error Or $input <> $PASSWORD Then
        MsgBox(4096,"Error", "Incorrect Password")
        $retryCount = $retryCount + 1
    Else
        ;MsgBox(4096,"Success", "Password Accepted")
        ExitLoop
    EndIf
 Wend

If $fullTest = 1 Then
    ;MsgBox(0, "WINDOW", "Press Ok to continue")
    $hWnd = GUICreate("WINDOWS", 241, 78)
    ;$label = GUICtrlCreateInput ("test", 10, 10, 50, 20)
    GuiSetOnEvent($GUI_EVENT_CLOSE,"Quit")
    $button = GUICtrlCreateButton ("Start",  18, 31, 100, 25)
    $button1 = GUICtrlCreateButton ("Hide",  128, 31, 91, 25)
    GuiCtrlSetOnEvent($button,"DoScript")
    GuiCtrlSetOnEvent($button1,"DoScript1")
    GUISetState (@SW_SHOW)
    GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
Else
    MsgBox(0, "WINDOWS", "You need to run WINDOW first.")
 EndIf

While 1
   Sleep(10)
Wend

Func WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
    If BitAND($wParam, 0xFFF0) = 0xF060 Then Exit   ;$SC_CLOSE = 0xF060
    Return $GUI_RUNDEFMSG
EndFunc

Func DoScript1()
    WinSetState($hWnd, "", @SW_HIDE)
EndFunc

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
     If BitAND($wParam, 0x0000FFFF) =  $button Then
          $stop = not $stop
          If $stop = 0 Then GUICtrlSetData($button, "Stop")
          If $stop = 1 Then GUICtrlSetData($button, "Start")
     EndIf
     Return $GUI_RUNDEFMSG
EndFunc

Func WinExistsExact($title, $text)
    AutoItSetOption( "WinTitleMatchMode", $OPT_MATCHEXACT )
    $res = WinExists($title, $text)
    AutoItSetOption( "WinTitleMatchMode", $OPT_MATCHSTART )
    Return $res
EndFunc

Func DoScript()
   While 1
    For $i = 1 to 300
        Sleep (10)
        If $stop = 1 Then Return
       ; GuiCtrlSetData($label, $i)
    Next
    ControlSend ( $title, "", 0, "{Right}")
    $a = Random(300, 900, 1)
    For $i = 1 to $a
        Sleep (10)
        If $stop = 1 Then Return
    Next
    ControlSend ( $title, "", 0, "{Left}")
    $a = Random(100, 500, 1)
    For $i = 1 to $a
        Sleep (10)
        If $stop = 1 Then Return
        Next
   WEnd
EndFunc

Func _Show_GUI()
   WinSetState($hWnd, "", @SW_SHOW)
 EndFunc

Func _About()
    MsgBox(4096,"Test", "Test")
EndFunc

 Func _Exit()
    Exit
EndFunc

Func Quit()
    Exit
 EndFunc

The "Hide" button which I created does not minimized the window to tray when the program has started. What should I do to enable the button? In this code, the button only works if the start DoScript() is not working. What I wanted to do is to hide the window even if the DoScript() is running.

Thank!

[Melba23]

Kyou,

Read the Interrupting a running function tutorial in the Wiki - that will explain what you need to do. If you still have questions, come back and I will try and help you get it working.

M23