#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=teste.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_UseUpx=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;~ #AutoIt3Wrapper_AU3Check_Parameters= -q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7 ;~ #Tidy_Parameters=/sf #include-once #include #include OnAutoItExitRegister("OnExit") Opt("GUIOnEventMode", 1) Opt("GUIEventOptions", 1) Opt("MustDeclareVars", 1) Global $aGuiSize[2] = [800, 600] Global $sGuiTitle = "GuiTitle" Global $hGui Global $iButton Global $hLabel Global $WIN $hGui = GUICreate($sGuiTitle, $aGuiSize[0], $aGuiSize[1]) GUISetFont(12, 400, 0, "Courier New", $hGui) GUISetOnEvent($GUI_EVENT_CLOSE, "Quit") WinSetTitle($hGui, "", "hGui[" & $hGui & "]" & @LF) $WIN = WinGetPos($hGui) $iButton = GUICtrlCreateButton(1, 10, 10, 160, 30) GUICtrlSetOnEvent($iButton, "Button") Global $label = "hGui[" & $hGui & "]" & @LF $label &= "WIN[" & _ArrayToString($WIN, ",") & "]" $hLabel = GUICtrlCreateLabel($label, 10, 100, 780, 400) GUISetState(@SW_SHOW, $hGui) While Sleep(25) WEnd Func OnExit() GUISetState(@SW_HIDE, $hGui) GUIDelete($hGui) EndFunc ;==>OnExit Func Quit() Exit EndFunc ;==>Quit Func Button() GUICtrlSetData($iButton, Number(GUICtrlRead($iButton)) + 1) EndFunc ;==>Button