Thời Gian
- Home>
- Code Autoit Nghịch >
- nghịch và test nào
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")
MsgBox(0,'thông báo',"Vui Lòng Đăng Nhập Để Sử Dụng Tool")
#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("Đăng 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","Đăng Nhập Thành Công")
GUIDelete($Form1)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 615, 438, 191, 165)
GUISetFont(8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Button1", 24, 88, 75, 25)
$Button2 = GUICtrlCreateButton("Button2", 24, 32, 73, 49)
$Button3 = GUICtrlCreateButton("Button3", 24, 120, 75, 25)
$Button4 = GUICtrlCreateButton("Button4", 120, 40, 75, 25)
$Button5 = GUICtrlCreateButton("Button5", 120, 80, 75, 25)
$Button6 = GUICtrlCreateButton("Button6", 128, 112, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Else
MsgBox(0,'Thông Báo',"Sai Tên Đăng Nhập Hoặc Mật Khẩu")
EndIf
EndSwitch
WEnd