用戶抽獎源代碼

#包含？& ltButtonConstants.au3 & gt

#包含？& ltEditConstants.au3 & gt

#包含？& ltGUIConstantsEx.au3 & gt

#包含？& ltWindowsConstants.au3 & gt

Opt("GUIOnEventMode "，1)

全球？$flag？=?錯誤的

#地區？###?開始？柯達？GUI？節？###?表單=

全球？$Form1？=?GUICreate("抽彩？抽號？1~100",?623,?449,?192,?114)

GUISetOnEvent($GUI_EVENT_CLOSE，？" Form1Close ")

全球？$Input1？=?GUICtrlCreateInput("，？56,?72,?161,?25,?$ES_READONLY)

全球？$Button1？=?GUICtrlCreateButton ("start "，264,?72,?65,?25)

GUICtrlSetOnEvent(-1，？" Button1Click ")

GUISetState(@SW_SHOW)

#EndRegion？###?結束？柯達？GUI？節？###

什麽時候？1

睡眠(100)

如果？$flag？然後

GUICtrlSetData($Input1，？Random(1，100，1))

EndIf

行

Func？Button1Click()

如果？不是嗎？$flag？然後

GUICtrlSetData($Button1，？“停止”)

$flag？=?真實的

其他

GUICtrlSetData($Button1，？“開始”)

$flag？=?錯誤的

EndIf

EndFunc

Func？表單1關閉()

出口

EndFunc

翻譯