Tutorials Vbook v0.1-Thủ Thuật UDS part 157 ppsx

Giờ xin viết một bài giống như thế, nhưng là dạy code một chương trình thực sự, trong đúng 15 phút, chứ ko hơn. Mục tiêu Chương trình sẽ rất đơn giản: Có 3 cái check box, cho phép tick và apply on-the- fly 3 tính năng sau: - KHóa/mở khóa registry editor - Khóa/mở khóa command prompt (cmd) - Khóa/mở khóa task manager Xét một cách toàn diện, cả 3 tính năng này đều rất hữu ích, đặc biệt khi các bác ngồi máy công cộng. Nguyên tắc cũng rất rất đơn giản, chỉ cần sửa vài giá trị trong registry là xong. Đồ dùng bếp núc Để bắt đầu code 1 chương trình, người ta có thể dùng 1 ngôn ngữ lập trình phổ biến nào đó, ví dụ VB. Nhưng chẳng may các bác lại ko có, mà lại phải chạy ra mua đĩa, mất toi 15 phút, nên tớ xin giới thiệu ngôn ngữ này: AutoIt. Nghe tên có quen ko ạ? Một số người sẽ nhớ ra: Sâu XRobot lừng danh một thời đã được viết bằng ngôn ngữ này. Có tiền án tiền sự ra phết Giờ các bác vào đây down về bản mới nhất của AutoIt, version 3. http://anonym.to/?http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3- setup.exe Sau khi down về, các bác cài đặt vào máy mình. Mất 3 phút Bắt đầu! 1. Các bác mở Notepad để code 1 file mang tên cái_gì_đó.au3. Ví dụ tên soft của các bác là ABC thì tên file nên đặt là ABC.au3. File đó đặt trong thư mục của AutoIt là hay nhất. 2. Để tạo giao diện cho ABC, các bác paste đoạn code sau: Code: #include <GUIConstants.au3> $gui = GUICreate("Quick Lock", 176, 152, -1, -1, $WS_CAPTION + $WS_POPUP + $WS_SYSMENU) $group = GUICtrlCreateGroup("Settings", 8, 8, 161, 105) $reg = GUICtrlCreateCheckbox("Disable Registry Editor", 16, 32, 137, 17) $task = GUICtrlCreateCheckbox("Disable Task Manager", 16, 56, 129, 17) $cmd = GUICtrlCreateCheckbox("Disable Command Prompt", 16, 80, 145, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $go = GUICtrlCreateButton("Apply", 8, 120, 123, 25) $what = GUICtrlCreateButton("?", 146, 120, 25, 25) GUISetState(@SW_SHOW) Giao diện tạo ra sẽ trông như hình sau: Cực kỳ dễ hiểu và đơn giản phải ko ạ? 3. Các bác tạo một vòng lặp để xử lý các sự kiện: Code: While 1 $msg = GuiGetMsg() Select Case ($msg = $reg) or ($msg = $task) or ($msg = $cmd) GuiCtrlSetState($go, $GUI_ENABLE) Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $go GoClicked() Case $msg = $what Intro() EndSelect WEnd Exit Đoạn code trên nghĩa là nếu bấm vào nút Close thì sẽ exit, bấm vào ? thì sẽ hiện cửa sổ about, bấm vào 3 check box thì sẽ làm nút Apply hoạt động. Bấm vào Apply sẽ chạy GoClick() 4. Đoạn code sau xử lý hàm GoClick() Code: Func GOClicked() $state = GuiCtrlRead($reg) If $state = $GUI_CHECKED Then RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\ CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", 1) Else RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Current Version\Policies\System", "DisableRegistryTools", "REG_DWORD", 0) EndIf $state = GuiCtrlRead($task) If $state = $GUI_CHECKED Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi on\Policies\System", "DisableTaskMgr", "REG_DWORD", 1) Else RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi on\Policies\System", "DisableTaskMgr", "REG_DWORD", 0) EndIf $state = GuiCtrlRead($cmd) If $state = $GUI_CHECKED Then RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Syst em", "DisableCMD", "REG_DWORD", 2) Else RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Syst em", "DisableCMD", "REG_DWORD", 0) EndIf GuiCtrlSetState($go, $GUI_DISABLE) EndFunc Soft sẽ đọc trạng thái hiện thời của các check box, đồng thời chỉnh sửa giá trị tương ứng trong registry. Sau khi sửa xong, nút Apply sẽ MỜ đi cho tới khi 1 check box được thay đổi trạng thái. 5. Thêm phần about vào bằng đoạn code: Code: Func Intro()