Small Tool (For newbie) [Lưu trữ] - CLBGAMESVN MMORPG DEVELOPMENT

hieunova

06-04-09, 10:24 PM

Ngồi rảnh nên viết cái tool này, mình viết bằng Autoit 3.3, không pack nên khi scan không bị nghi là virus, chức năng của nó là xem thông tin hệ thống (những thông tin mà Hiếu cho là rất cần thiết để làm 1 server MU), sửa file hosts và ẩn/hiện/khóa/mở khóa cửa sổ. Những thông tin có màu đen là bình thường, màu xanh là cần thiết, màu đỏ là tối cần thiết, giao diện cực dễ xài, nhìn zdô là hiểu liền. Sau đây là thông tin nó có thể hiện thị:

_Tab "Cấu Hình"
+ Tên máy (mức độ bình thường, nếu chơi trong LAN, bạn có thể vào web bằng cách gõ tên máy lên I.E)
+ Windows (mức độ cần thiết, hiển thị Service Pack)
+Tên ổ C: (không cần bận tâm làm gì, để dễ phân biệt ổ C/D)
+Tên ổ D: (không cần bận tâm làm gì, để dễ phân biệt ổ C/D)
+Tổng dung lượng (GB): tổng dung lượng có thể lưu trữ của ổ tính theo GB
+Còn trống (GB): dung lượng còn có thể lưu trữ tính theo GB
+Địa chỉ LAN IP: khỏi nói cũng biết, để config server...
+Địa chỉ WAN IP: bạn có thể zdô modem bằng cách gõ địa chỉ này lên I.E, khỏi cần tìm gateway :byebye:
+CPU : Thông tin CPU (chỉ hiện thị tên, nếu mún chi tiết hơn thì download CPU-Z về coi)
+RAM (MB): RAM tính theo MB

_Tab "Hosts"
+Edit file hosts trên hệ thống và tạo lại file host trong trường hợp lỡ tay del hoặc bị virus xóa

_Tab "Cửa Sổ"
+Gồm 2 chức năng:
Ẩn/Hiện của sổ: Rất hữu ích cho những mem chạy MU = Shortcut, Những cửa sổ DataServer1, ..2, CS, JointServer chiếm hết diện tích taskball, nhìn rất chật chội đúng không, bạn chỉ cần ẩn nó đi :D
Khóa/Mở khóa cửa sổ: Cực kì hữu ích cho những ai hay treo máy, khi bạn khóa của sổ, thằng em trai hay mấy đứa bạn của bạn chỉ có thể nhìn mà không thể làm gì đc :D

Download: [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>] ([Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]) (793 KB, chỉ nặng hơn phiên bản đầu 1KB)

Thay đổi so với phiên bản trước:
+Thêm Tab "Cửa Sổ"

Còn đây là mã nguồn, những cao thủ rành về Autoit có thể bổ xung chức năng hoặc tự tạo lại file nếu sợ virus:

;Chen Script
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>

;Tao GUI
GUICreate("Small Tool by Hieu Nova", 510, 320)

;Tao TAB va Bien' lay' WAN IP
$tab = GUICtrlCreateTab(10, 10, 490, 300)
$tab0 = GUICtrlCreateTabItem("Cấu hình")
$PublicIP = _GetIP()

;Set font
GUISetFont(9, 400, 0, "Arial")

;___________________Tab Cau' hinh`________________________
;Tao Label va Set mau` chu~
GUICtrlCreateLabel("Tên của máy", 20, 40, 150, 20)
GUICtrlSetColor(-1, 0x000ff0)
GUICtrlCreateLabel("Windows", 20, 60, 150, 20)
GUICtrlSetColor(-1, 0x000ff0)
GUICtrlCreateLabel("Tên ổ C:", 20, 80, 150, 20)
GUICtrlCreateLabel("Tổng dung lượng (GB) :", 20, 100, 150, 20)
GUICtrlCreateLabel("Còn trống (GB) :", 20, 120, 150, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Tên ổ D:", 20, 140, 150, 20)
GUICtrlCreateLabel("Tổng dung lượng (GB) :", 20, 160, 150, 20)
GUICtrlCreateLabel("Còn trống (GB) :", 20, 180, 150, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Địa chỉ LAN IP", 20, 200, 150, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("Địa chỉ WAN IP", 20, 220, 150, 20)
GUICtrlSetColor(-1, 0x000ff0)
GUICtrlCreateLabel("CPU :", 20, 240, 150, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("RAM (MB) :", 20, 260, 150, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("RAM ảo (MB) :", 20, 280, 150, 20)
GUICtrlSetColor(-1, 0x000ff0)

;Tao bien'
$var = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0", "ProcessorNameString")
$mem = MemGetStats()

;Doc va hien thi du dieu
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
GUICtrlSetColor(-1, 0x000ff0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
GUICtrlSetColor(-1, 0x000ff0)
GUICtrlCreateInput(DriveGetLabel("C:\"), 170, 80, 320, 20)
GUICtrlCreateInput(DriveSpaceTotal("C:\") / 1024, 200, 100, 290, 20)
GUICtrlCreateInput(DriveSpaceFree("C:\") / 1024, 200, 120, 290, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateInput(DriveGetLabel("d:\"), 170, 140, 320, 20)
GUICtrlCreateInput(DriveSpaceTotal("d:\") / 1024, 200, 160, 290, 20)
GUICtrlCreateInput(DriveSpaceFree("d:\") / 1024, 200, 180, 290, 20)
GUICtrlSetColor(-1, 0xff0000)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
GUICtrlSetColor(-1, 0x000ff0)
GUICtrlCreateInput($PublicIP, 170, 220, 320, 20)
GUICtrlSetColor(-1, 0x000ff0)
GUICtrlCreateInput($var, 170, 240, 320, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateInput($mem[1] / 1024, 170, 260, 320, 20)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateInput($mem[3] / 1024, 170, 280, 320, 20)
GUICtrlSetColor(-1, 0x000ff0)

;__________________________Tab Hosts_____________________
;tao. tab và mo? file hosts
$tab1 = GUICtrlCreateTabItem("Hosts")
$file = FileOpen("C:\WINDOWS\system32\drivers\etc\hosts", 0)

;Kiem tra loi~
If $file = -1 Then
MsgBox(0, "Có lỗi", "Không tìm thấy file hosts.")
EndIf

;Doc file Hosts
$chars = FileRead($file, 9999)

;Dong file
FileClose($file)

;Tao Control Edit GUI va Button
$myedit = GUICtrlCreateEdit($chars, 20, 40, 470, 230)
$Button_1 = GUICtrlCreateButton("Lưu lại", 190, 275, 100)
;____________________________Tab Cua So____________________
;Tao Tab, Set bien' va` tim cua so
$tab2 = GUICtrlCreateTabItem("Cửa Sổ")
$win_list = WinList()
$so_processes = $win_list[0][0]
$i = 2
$mylist = GUICtrlCreateList("", 20, 40, 470, 250)

;Hien thi cac cua so tim duoc
While $i <= $so_processes
If IsVisible($win_list[$i][1]) Then
GUICtrlSetData($mylist, $win_list[$i][0] & " ", 1)
EndIf
$i = $i + 1
WEnd

;Loc cac cua so khong the hien thi ra
Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf
EndFunc

;Tao button
$Button_2 = GUICtrlCreateButton("Ẩn", 30, 275, 100)
$Button_3 = GUICtrlCreateButton("Hiện", 140, 275, 100)
$Button_4 = GUICtrlCreateButton("Khóa", 250, 275, 100)
$Button_5 = GUICtrlCreateButton("Mở Khóa", 360, 275, 100)
;thoat khoi chuong trinh va lenh cho button
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
$file = FileOpen("C:\WINDOWS\system32\drivers\etc\hosts", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, _GUICtrlEdit_GetText($myedit))
FileClose($file)
Case $msg = $Button_2
$win_title = GUICtrlRead($mylist, 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Case $msg = $Button_3
$win_title = GUICtrlRead($mylist, 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Case $msg = $Button_4
$win_title = GUICtrlRead($mylist, 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Case $msg = $Button_5
$win_title = GUICtrlRead($mylist, 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Case Else
;;;
EndSelect
WEnd
Exit
Nếu mún cảm ơn thì click zdô hình con rồng nhá, ai có ý tưởng thêm chức năng gì thì cứ post lên đây, nếu làm được thì Hiếu sẽ update liền ^^!