[Soft] PC-WH 1.1 - Tiệc ích máy tính

by **Admin** Mon Dec 17, 2012 3:18 am

Code:: #NoTrayIcon #include <GUIConstantsEx.au3> Local $tab1, $tab2, $tab3, $dong, $ghikey, $TB, $tat,$lenh GUICreate("PC-WH 1.1",430, 250, 192, 124) GUISetBkColor(0x6666FF) GUISetFont(10, 300) Global $Button1 = GUICtrlCreateButton("Thuc Hien", 340, 70, 85, 25) Global $Button2 = GUICtrlCreateButton("Thoat", 340, 100, 85, 25) Global $tab = GUICtrlCreateTab(10, 10, 327, 230) Global $tab0 = GUICtrlCreateTabItem("Shutdown") $ghikey = GUICtrlCreateGroup("Giup May Tinh Tat, Khoi Dong Nhanh Hon", 13, 40, 320, 190) $in1 = GUICtrlCreateInput("4000", 200, 68, 57, 21) $label5 = GUICtrlCreateLabel("WaitToKillServiceTimeout", 18, 68, 170, 17) $in2= GUICtrlCreateInput("5000", 200, 95, 57, 21) $in3 = GUICtrlCreateInput("00000000", 200, 122, 57, 21) $in4 = GUICtrlCreateInput("40", 200, 149, 57, 21) $in5 = GUICtrlCreateInput("1", 200, 175, 57, 21) $in7 = GUICtrlCreateInput("N", 200, 201, 57, 21) $label1 = GUICtrlCreateLabel("HungAppTimeout", 18, 95, 170, 17) $label2 = GUICtrlCreateLabel("MenuShowDelay", 18, 122, 170, 17) $label3 = GUICtrlCreateLabel("WaitToKillAppTimeout", 18, 149, 170, 17) $label4 = GUICtrlCreateLabel("AutoEndTasks", 18, 175, 170, 17) $label5 = GUICtrlCreateLabel("Enable", 18, 201, 170, 17) $but1 = GUICtrlCreateButton("Undo",270,68,50,17) $but2 = GUICtrlCreateButton("Undo",270,95,50,17) $but3 = GUICtrlCreateButton("Undo",270,122,50,17) $but4 = GUICtrlCreateButton("Undo",270,149,50,17) $but5 = GUICtrlCreateButton("Undo",270,175,50,17) $but7 = GUICtrlCreateButton("Undo",270,201,50,17) $tab1 = GUICtrlCreateTabItem("Cong Cu") $ghikey = GUICtrlCreateGroup("Cong Cu Ho Tro ", 13, 40, 320, 190) $in6 = GUICtrlCreateInput("4", 200, 68, 57, 21) $label6 = GUICtrlCreateLabel("An Cac O Dia ", 18, 68, 170, 17) $Chec7= GUICtrlCreateCheckbox("", 200, 95, 57, 21) $chec8 = GUICtrlCreateCheckbox("", 200, 122, 57, 21) $chec9 = GUICtrlCreateCheckbox("", 200, 149, 57, 21) $chec10 = GUICtrlCreateCheckbox("", 200, 175, 57, 21) $chec11 = GUICtrlCreateCheckbox("", 200, 201, 57, 21) $label7 = GUICtrlCreateLabel("Xoa Dia Chi Khi Luot Web", 18, 95, 170, 17) $label8 = GUICtrlCreateLabel("Mo Folder Option", 18, 122, 170, 17) $label9 = GUICtrlCreateLabel("Mo Khóa Taskmanager ", 18, 149, 170, 17) $label10 = GUICtrlCreateLabel("Mo Khóa Regedit ", 18, 175, 170, 17) $label11 = GUICtrlCreateLabel("Mo Khóa Hidden ", 18, 201, 170, 17) $but6 = GUICtrlCreateButton("Add",270,68,50,17) $tab2 = GUICtrlCreateTabItem("Gioi Thieu") GUICtrlCreateGroup("Cong Cu Ho Tro ", 13, 40, 320, 190) GUICtrlCreateLabel("Phan mem nay giup cai thien may tinh cua ban hon trong qua trinh khoi dong cung nhu dang lam viec boi tac dung cua no la ghi key thich hop vao Regedit. Giup may ban duoc khoi dong va tat may nhanh hon 5-7 giay, chuong trinh dua tren su hoat dong cua (XP Tweaker 1.68). Va hung thu hon khi qua lop cong cu, lop nay se ho tro ban trong viec su dung may trinh va phuc hoi duoc mot so chuc nang do virus gay ra.......",18,60,320,130) $tab3 = GUICtrlCreateTabItem("Huong Dan") GUISetFont(12, 300) $tab3 = GUICtrlCreateEdit("--------------Huong Dan Su Dung--------------"&@CRLF&"I/ Shutdown:"&@CRLF&" - Day la nhung key minh da thay doi"&@CRLF&"thich hop dung trong win XP. Neu cac"&@CRLF&"ban muon chinh sua cho phu hop"&@CRLF&"voi PC cua ban thi cac ban nhap"&@CRLF&"cac gia tri vao nhung o tuong ung. "&@CRLF&"Voi nhung chuc nang tren se giup"&@CRLF&"cho PC cua ban khoi dong va tat may"&@CRLF&"nhanh hon 5->7s"&@CRLF&"II/ Cong Cu:"&@CRLF&" - Day la nhung cong cu giup may tinh"&@CRLF&"ban an cac o dia bang cach ban nhap"&@CRLF&"cac gia tri tuong ung voi o dia cua ban "&@CRLF&"(A:1, B:2, C:4, D:8,E:16,F: 32,G:64,"&@CRLF&"H:128, I:256, J:512, K:1024, L:2048)."&@CRLF&"Va mot so chuc nang khac thi ban chi "&@CRLF&"can danh dau vao nhung chuc"&@CRLF&"nang can thi hanh va sau do la bam vao "&@CRLF&"thuc hien de ket thuc chuong trinh."&@CRLF&"----------------------------------------------------------"&@CRLF&" MINH CHI LA NEWBIE "&@CRLF&"Nen rat can su dong gop nhiet tinh cua "&@CRLF&"cac ban de minh lam tot hon",13, 40, 320, 195) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE $tat=MsgBox(4,"Thông Báo","Bạn Có Muốn Đóng Chương Trình Không?") if $tat = 6 Then Exit EndIf Case $but1 GUICtrlSetData($in1,"4000") Case $but2 GUICtrlSetData($in2,"5000") Case $but3 GUICtrlSetData($in3,"400") Case $but4 GUICtrlSetData($in4,"20000") Case $but5 GUICtrlSetData($in5,"0") Case $but7 GUICtrlSetData($in7,"Y") case $but6 RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoDrives","REG_DWORD",GUICtrlRead($in6)) MsgBox(0,"Thông Báo","Khởi Động Máy Để Lệnh Thi Hành") Case $Button1 RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","WaitToKillServiceTimeout","REG_SZ",GUICtrlRead($in1)) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","HungAppTimeout","REG_SZ",GUICtrlRead($in2)) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","MenuShowDelay","REG_SZ",GUICtrlRead($in3)) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","WaitToKillAppTimeout","REG_SZ",GUICtrlRead($in4)) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","AutoEndTasks","REG_SZ",GUICtrlRead($in5)) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction","Enable","REG_SZ",GUICtrlRead($in7)) $lenh = 0 $lenh = 1 if GUICtrlRead($Chec7) = 1 Then RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url1") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url2") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url3") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url4") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url5") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url6") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url7") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url8") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url9") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url10") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url11") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url12") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url13") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url14") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url15") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url16") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url17") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url18") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url19") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url20") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url21") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url22") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url23") RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs","url24") EndIf If GUICtrlRead($Chec8) = 1 Then RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoFolderOptions") $lenh = 1 EndIf If GUICtrlRead($Chec9) = 1 Then RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr") $lenh = 1 EndIf If GUICtrlRead($Chec10) = 1 Then RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableRegistryTools") EndIf If GUICtrlRead($Chec11) = 1 Then RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\ShowAll","CheckedValue","REG_DWORD",0) $lenh = 1 EndIf $TB=MsgBox(4,"Thông Báo","Đã Thực Hiện Xong"&@CRLF&"Bạn Muốn Khởi Động Máy Tính Không") if $TB = 7 Then Exit EndIf ;Shutdown(2) Case $Button2 ExitLoop EndSwitch WEnd