Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <GuiStatusBar.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- Opt("GUIOnEventMode", 1)
- Global $Form1 = GUICreate("From 1 to 999999", 323, 288, 214, 125)
- GUISetFont(15, 400, 0, "Arial")
- GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
- Global $Button1 = GUICtrlCreateButton("Send", 96, 168, 131, 65)
- GUICtrlSetOnEvent(-1, "Button1Click")
- Global $Label1 = GUICtrlCreateLabel("Number: ", 64, 56, 84, 27)
- Global $Number = GUICtrlCreateLabel("0", 160, 56, 70, 27)
- GUICtrlSetColor(-1, 0x648BCB)
- Global $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
- _GUICtrlStatusBar_SetText($StatusBar1, "A demo made by MrTheDzam - TCTTeaM®")
- GUISetState(@SW_SHOW)
- While 1
- Sleep(69)
- Global $GlobalNumber = GUICtrlRead($Number)
- WEnd
- Func Button1Click()
- $NewNumber = $GlobalNumber + 1
- If $NewNumber <= 999999 then
- GUICtrlSetData($Number, $NewNumber)
- Else
- MsgBox(16 + 262144, "Message", "Max value!")
- Return False
- EndIf
- EndFunc
- Func Form1Close()
- Exit
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment