Small Tool (For newbie)

[hieunova]

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
+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
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

Download: [Only registered and activated users can see links. ] (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\CentralProcessor\0", "ProcessorNameString")
$mem = MemGetStats()
 
;Doc va hien thi du dieu
GUICtrlCreateInput(@ComputerName, 170, 40, 320, 20)
GUICtrlSetColor(-1, 0x000ff0)
GUICtrlCreateInput(@OSServicePack, 170, 60, 320, 20)
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)
GUICtrlCreateInput(@IPAddress1, 170, 200, 320, 20)
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)
        WinSetState($win_title, "", @SW_UNLOCK)
        WinSetState($win_title, "", @SW_HIDE)
        WinSetState($win_title, "", @SW_LOCK)
Case $msg = $Button_3
        $win_title = GUICtrlRead($mylist, 1)
        WinSetState($win_title, "", @SW_UNLOCK)
        WinSetState($win_title, "", @SW_SHOW)
        WinSetState($win_title, "", @SW_LOCK)
Case $msg = $Button_4
        $win_title = GUICtrlRead($mylist, 1)
        WinSetState($win_title, "", @SW_UNLOCK)
        WinSetState($win_title, "", @SW_DISABLE)
        WinSetState($win_title, "", @SW_LOCK)
Case $msg = $Button_5
        $win_title = GUICtrlRead($mylist, 1)
        WinSetState($win_title, "", @SW_UNLOCK)
        WinSetState($win_title, "", @SW_ENABLE)
        WinSetState($win_title, "", @SW_LOCK)
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 ^^!

[cuocdoisp]

Cảm ơn - kick 12 lần vào còn rồng . :Hê Hê

[hieunova]

Thx so much, mà sao topic vắng quá vậy, các bạn ơi trả lời nhiệt tình lên chứ

[Cobelinh]

có phải bạn viết CT nova speed hem vậy

[hieunova]

có phải bạn viết CT nova speed hem vậy

Đúng đó nhưng hồi đó trình độ vẫn cùi mía nên update 2 lần liền vẫn bị lỗi
Mọi người chỉ cần vào ollydgb tìm offset rùi add nó vào antihack.dll <--Pro mới làm đc