Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GuiListBox.au3>
- #include <Date.au3>
- #Region ### START Koda GUI section ### Form=
- ;~ bla bala
- $TextLog = GUICtrlCreateGroup("Log", 242, 8, 273, 314)
- $List1 = GUICtrlCreateList("", 242, 23, 265, 292, $LBS_DISABLENOSCROLL)
- GUICtrlSetData(-1, "")
- GUICtrlSetBkColor(-1, 0xE3E3E3)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- ;~ bla bala
- #EndRegion ### END Koda GUI section ###
- $TimeStart = GUICtrlCreateInput("0", 40, 272, 73, 21)
- $TimeEnd = GUICtrlCreateInput("10000", 152, 272, 81, 21)
- $random = Random(GUICtrlRead($TimeStart),GUICtrlRead($TimeEnd))
- AddString("Vui Lòng Chờ "&$random)
- msgbox(4096, "", $random)
- $IRandom = BinaryToString($random )
- Sleep($random)
- Local $stt = 1
- Func AddString($String)
- ; Add strings
- _GUICtrlListBox_BeginUpdate($List1)
- _GUICtrlListBox_AddString($List1,$stt & ". "& _NowTime(5) & ":"& $String)
- _GUICtrlListBox_UpdateHScroll($List1)
- _GUICtrlListBox_EndUpdate($List1)
- _AutoScroll()
- $stt +=1
- EndFunc ;==>AddString
- Func _AutoScroll()
- _GUICtrlListBox_SetAnchorIndex($List1 , _GUICtrlListBox_GetListBoxInfo($List1)-1)
- EndFunc ;==>_AutoScroll
Advertisement
Add Comment
Please, Sign In to add comment