Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include "GUIConstantsEx.au3"
- #include "StaticConstants.au3"
- #include "WindowsConstants.au3"
- Opt("GUIOnEventMode", 1)
- Global $Form1 = GUICreate("Form có label nhấp nháy", 565, 288, 192, 124)
- GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
- Global $Label1 = GUICtrlCreateLabel("Nhấp nháy", 56, 72, 447, 107)
- GUICtrlSetFont(-1, 69, 400, 0, "Arial")
- GUISetState(@SW_SHOW)
- AdlibRegister("NhapNhay", 1000)
- While 1
- Sleep(100)
- WEnd
- Func NhapNhay()
- Local $MaMau = [0x00FF00, 0xFF00FF, 0x0000FF, 0xFF0000]
- GUICtrlSetColor($Label1, $MaMau[Random(0, 3, 1)])
- EndFunc
- Func Form1Close()
- Exit
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment