Thời Gian
- Home>
- Code Autoit Nghịch >
- Code của tao nghiên cứu và test
ProgressOn("Ðang Kh?i Ð?ng Tool Vui Lòng Ch?", "Ðang Kh?i Ð?ng", "0%"); Just to let more beautiful
For $i = 1 To 100 Step 1
Sleep(100)
ProgressSet($i, $i & "%")
Next
ProgressSet(100, "Full Load", "Complete")
Sleep(500)
ProgressOff()
MsgBox(0,'thông báo',"ch?y tool thành công")
2 fulll
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 190, 149, 192, 164)
$Label1 = GUICtrlCreateLabel("Login", 64, 0, 88, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FFFF)
$Label2 = GUICtrlCreateLabel("Tài Kho?n", 8, 56, 74, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Label3 = GUICtrlCreateLabel("M?t Kh?u", 8, 88, 67, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Input1 = GUICtrlCreateInput("", 80, 56, 105, 21)
$Input2 = GUICtrlCreateInput("", 80, 88, 105, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Button1 = GUICtrlCreateButton("Ðang Nh?p", 80, 112, 99, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
If GUICtrlRead($Input1)='admin' And GUICtrlRead($Input2)='loveanime123'Then
MsgBox(0,'thông báo',"Ðang Nh?p Thành Công")
Else
MsgBox(0,'Thông Báo',"Sai Tên Ðang Nh?p Ho?c M?t Kh?u")
EndSwitch
WEnd