Một số Code AutoIT tạo các Tool đơn giản:
Code Tool tính điểm WP siêu cấp:
#cs ==========================================================
== Code tính điểm WP kênh siêu cấp đơn giản ==
- Author: AutoBnb™
- Y!M: killertime9x
- Website: http://autobnb.tk
#ce ==========================================================
;Khai báo thư viện liên quan
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon ;tắt icon dưới taskbar
;Tạo gui bằng koda
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AutoBnb™", 250, 205, 750, 400)
$thoat = GUICtrlCreateButton("THOÁT", 8, 160, 233, 40)
$bangdiem = GUICtrlCreateButton("Xem bảng điểm", 8, 140, 115, 20)
$delete = GUICtrlCreateButton("Refresh", 123, 140, 117, 20)
GUICtrlCreateGroup("Điểm WP hiện tại", 8, 32, 233, 49)
GUICtrlSetState(-1, $GUI_DISABLE)
$cap1 = GUICtrlCreateInput("0", 44, 52, 25, 21, 0x2000)
$va1 = GUICtrlCreateLabel("và", 86, 55, 20, 20)
GUICtrlSetFont(-1, 10, 800, 0, "tahoma")
$diem1 = GUICtrlCreateInput("0", 112, 53, 73, 21, 0x2000)
$lcap1 = GUICtrlCreateLabel("Cấp", 12, 52, 32, 20)
GUICtrlSetFont(-1, 10, 800, 0, "tahoma")
$ldiem1 = GUICtrlCreateLabel("Điểm", 192, 53, 40, 20)
GUICtrlSetFont(-1, 10, 800, 0, "tahoma")
$diem2 = GUICtrlCreateInput("", 112, 109, 73, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$va2 = GUICtrlCreateLabel("và", 86, 109, 20, 20)
GUICtrlSetFont(-1, 10, 800, 0, "tahoma")
$cap2 = GUICtrlCreateInput("", 45, 108, 25, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$lcap2 = GUICtrlCreateLabel("Cấp", 13, 109, 32, 20)
GUICtrlSetFont(-1, 10, 800, 0, "tahoma")
$ldiem2 = GUICtrlCreateLabel("Điểm", 193, 110, 40, 20)
GUICtrlSetFont(-1, 10, 800, 0, "tahoma")
$Group2 = GUICtrlCreateGroup("Điểm WP cần đạt được (+1999)", 8, 88, 233, 49)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Tính điểm WP kênh siêu cấp", 40, 8, 181, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x008000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;thông số các biến cần thiết
Local $doccap1 = 0, $hide=0
Local $text = 'Cấp Điểm WP'&@CRLF&'1 <---> 173'&@CRLF&'2 <---> 345' _
&@CRLF&'3 <---> 690'&@CRLF&'4 <---> 1155'&@CRLF&'5 <---> 2145'&@CRLF&'6 <---> 4950' _
&@CRLF&'7 <---> 9405'&@CRLF&'8 <---> 18810'&@CRLF&'9 <---> 42000'&@CRLF&'10 <---> 77910'
; vòng lặp chính
While 1
$docdiem1=GUICtrlRead($diem1)
$doccap1=GUICtrlRead($cap1)
If $doccap1 > 10 Then GUICtrlSetData($cap1, '10')
If $doccap1 = 0 And $docdiem1 > 172 Then GUICtrlSetData($diem1,'172')
If $doccap1 = 1 And $docdiem1 > 344 Then GUICtrlSetData($diem1,'344')
If $doccap1 = 2 And $docdiem1 > 689 Then GUICtrlSetData($diem1,'689')
If $doccap1 = 3 And $docdiem1 > 1154 Then GUICtrlSetData($diem1,'1154')
If $doccap1 = 4 And $docdiem1 > 2144 Then GUICtrlSetData($diem1,'2144')
If $doccap1 = 5 And $docdiem1 > 4949 Then GUICtrlSetData($diem1,'4949')
If $doccap1 = 6 And $docdiem1 > 9404 Then GUICtrlSetData($diem1,'9404')
If $doccap1 = 7 And $docdiem1 > 18809 Then GUICtrlSetData($diem1,'18809')
If $doccap1 = 8 And $docdiem1 > 41999 Then GUICtrlSetData($diem1,'41999')
If $doccap1 = 9 And $docdiem1 > 77909 Then GUICtrlSetData($diem1,'77909')
If $doccap1 = 10 And $docdiem1 > 999999 Then GUICtrlSetData($diem1,'999999')
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $bangdiem
$hide= Not $hide
If $hide = 1 Then
ToolTip($text,'','','Bảng điểm WP tăng cấp',1)
GUICtrlSetData($bangdiem,'Tắt bảng điểm')
Else
ToolTip("")
GUICtrlSetData($bangdiem,'Xem bảng điểm')
EndIf
Case $delete
GUICtrlSetData($cap1, 0)
GUICtrlSetData($diem1, 0)
Case $thoat
Exit
Case Else
$docdiem1=GUICtrlRead($diem1)
$doccap1=GUICtrlRead($cap1)
If $docdiem1 = '' Then GUICtrlSetData($diem1, 0)
Switch $doccap1
Case ''
GUICtrlSetData($cap1, 0)
Case 0
GUICtrlSetData($cap2,"3")
GUICtrlSetData($diem2, 791+$docdiem1)
Case 1
If $docdiem1 >= 191 Then
GUICtrlSetData($cap2, "4")
GUICtrlSetData($diem2, $docdiem1-191)
Else
GUICtrlSetData($cap2, "3")
GUICtrlSetData($diem2, 964-$docdiem1)
EndIf
Case 2
GUICtrlSetData($cap2, "4")
GUICtrlSetData($diem2, 154+$docdiem1)
Case 3
GUICtrlSetData($cap2, "4")
GUICtrlSetData($diem2, 844+$docdiem1)
Case 4
If $docdiem1 < 146 Then
GUICtrlSetData($cap2, "4")
GUICtrlSetData($diem2, 1999+$docdiem1)
Else
GUICtrlSetData($cap2, "5")
GUICtrlSetData($diem2, $docdiem1-146)
EndIf
Case 5
If $docdiem1 < 2951 Then
GUICtrlSetData($cap2, "5")
GUICtrlSetData($diem2, 1999+$docdiem1)
Else
GUICtrlSetData($cap2, "6")
GUICtrlSetData($diem2, $docdiem1-2951)
EndIf
Case 6
If $docdiem1 < 7406 Then
GUICtrlSetData($cap2, "6")
GUICtrlSetData($diem2, 1999+$docdiem1)
Else
GUICtrlSetData($cap2, "7")
GUICtrlSetData($diem2, $docdiem1-7406)
EndIf
Case 7
If $docdiem1 < 16811 Then
GUICtrlSetData($cap2, "7")
GUICtrlSetData($diem2, 1999+$docdiem1)
Else
GUICtrlSetData($cap2, "8")
GUICtrlSetData($diem2, $docdiem1-16811)
EndIf
Case 8
If $docdiem1 < 40001 Then
GUICtrlSetData($cap2, "8")
GUICtrlSetData($diem2, 1999+$docdiem1)
Else
GUICtrlSetData($cap2, "9")
GUICtrlSetData($diem2, $docdiem1-40001)
EndIf
Case 9
If $docdiem1 < 75911 Then
GUICtrlSetData($cap2, "9")
GUICtrlSetData($diem2, 1999+$docdiem1)
Else
GUICtrlSetData($cap2, "9")
GUICtrlSetData($diem2, $docdiem1-75911)
EndIf
Case 10
GUICtrlSetData($cap2, "10")
GUICtrlSetData($diem2, 1999+$docdiem1)
EndSwitch
EndSwitch
WEnd
;kết thúc
Code Tool đổi tên cửa sổ Boom đơn giản:
#cs ==========================================================
== Code đổi tên cửa sổ Boom đơn giản ==
- Author: AutoBnb™
- Y!M: killertime9x
- Website: http://autobnb.tk
#ce ==========================================================
;Khai báo các thư viện liên quan:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;Tạo Gui:
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AutoBnb™", 252, 142, 558, 313) ;Tạo Gui
$Group1 = GUICtrlCreateGroup("", 8, 32, 233, 97) ;Tạo Group
$Label2 = GUICtrlCreateLabel("Đổi", 32, 50, 25, 20) ;Tạo Label hiển thị chữ "Đổi"
GUICtrlSetFont(-1, 10, 400, 0, "tahoma") ;Thiết lập Font
$Input1 = GUICtrlCreateInput("", 80, 50, 73, 21) ;Tạo Input1 cho người dùng nhập vào
$Label3 = GUICtrlCreateLabel("Thành", 24, 88, 42, 20) ;Tạo Label
GUICtrlSetFont(-1, 10, 400, 0, "tahoma") ;Thiết lập Font
$Input2 = GUICtrlCreateInput("", 80, 88, 73, 21) ;Tạo Input2
$Button1 = GUICtrlCreateButton("OKE", 160, 48, 73, 65) ;Tạo Button OKE
GUICtrlCreateGroup("", -99, -99, 1, 1) ;Tạo Group
$Label1 = GUICtrlCreateLabel("AutoBnb™ - Đổi tên cửa sổ Boom", 15, 8, 240, 20) ;Label
GUICtrlSetFont(-1, 10, 800, 0, "tahoma") ;Thiết lập font cho Label trên
GUISetState(@SW_SHOW) ;Hiện Gui
#EndRegion ### END Koda GUI section ###
;Chương trình chính
While 1
Sleep(20)
$nMsg = GUIGetMsg()
$pos=WinGetPos($Form1)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$title=GUICtrlRead($Input1) ;đọc chuỗi được nhập vào ở $Input1
$newtitle=GUICtrlRead($Input2) ;tương tự ở $Input2
WinSetTitle("[Title:"&$title&";class:Crazy Arcade]",'',$newtitle) ;hàm đổi tên
GUICtrlSetData($Input1,"") ;xóa chuỗi đã nhập vào ở $input1
GUICtrlSetData($Input2,"") ;tương tự ở $input2
ToolTip("Đã đổi '"&$title&"' thành: '"&$newtitle&"'" ,$pos[0]+10, $pos[1]+140) ;thông báo
Sleep(500)
EndSwitch
ToolTip("Nhập tên cửa sổ cần đổi sau đó Bấm OKE", $pos[0]+10, $pos[1]+140)
WEnd
;kết thúc
Share code hoac huong dan cach lam auto Zombie di Admin ^^
Trả lờiXóacai nay de lam j
Trả lờiXóa