#include <GUIConstants.au3> Dim $print1, $sched1, $chkdsk1, $update1, $clean1, $secur1, $remote1, $share1, $bug1, $tmp, $proksi GUICreate("Easy Tweaker for client workstation v1.0", 350, 325, -1, -1, $WS_SizeBox+$WS_MaximizeBox+$WS_MinimizeBox) GuiSetIcon("regedit.exe", 0) ;Menu $menu = GUICtrlCreateMenu("F&ile") $about = GUICtrlCreateMenuItem("О программе", $menu) GUICtrlCreateMenuItem("", $menu) $quit = GUICtrlCreateMenuItem("Выход", $menu) ;Label GUICtrlCreateLabel("Каталог для временных (temp) файлов", 10, 185, 200, 15) GUICtrlCreateLabel("Настройка прокси", 10, 235, 100, 15) ;Buttons $ok = GuiCtrlCreateButton("Ok", 200, 250, 60, -1, $BS_FLAT) $cancel = GUICtrlCreateButton("Cancel", 285, 250, 60, -1, $BS_FLAT) ;Input $tmp = GUICtrlCreateInput(@HomeDrive & "\Temp", 10, 200, 100, 17, -1) GUICtrlSetTip(-1, "Введите путь для папки с временными файлами") $proksi = GUICtrlCreateInput("192.168.0.11:8080", 10, 250, 100, 17, -1) GUICtrlSetTip(-1, "Укажите IP-адрес сервера и порт") ;Checkbox $print = GUICtrlCreateCheckbox("Отменить поиск сетевых принтеров", 10, 10, 200, 15) GUICtrlSetTip(-1, "Ускоряет отображение сетевых подключений") $sched = GUICtrlCreateCheckbox("Отменить поиск назначенных заданий", 10, 25, 215, 15) GUICtrlSetTip(-1, "Ускоряет отображение сетевых подключений") $chkdsk = GUICtrlCreateCheckbox("Сократить время ожидания перед проверкой диска", 10, 40, 280, 15) GUICtrlSetTip(-1, "Сокращает время ожидания с 10 до 3 секунд") $update = GUICtrlCreateCheckbox("Отключить автоматическое обновление Windows", 10, 55, 270, 15) GUICtrlSetTip(-1, "Полностью отключить обновление Windows из интернета") $clean = GUICtrlCreateCheckbox("Отключить мастер очистки рабочего стола", 10, 70, 235, 15) GUICtrlSetTip(-1, "Отключает очистку рабочего стола от неиспользуемых ярлыков") $secur = GUICtrlCreateCheckbox("Отключить все предупреждения центра безопасности", 10, 85, 300, 15) GUICtrlSetTip(-1, "Отключает значок предупреждения системы безопасности в трее") $remote = GUICtrlCreateCheckbox("Отключить отправку приглашения удалённому помощнику", 10, 100, 340, 15) GUICtrlSetTip(-1, "Отключает возможность удалённого подключения к рабочему столу компьютера") $share = GUICtrlCreateCheckbox("Отключить простой общий доступ к файлам", 10, 115, 250, 15) GUICtrlSetTip(-1, "Устанавливает классический диалог назначения прав и доступа") $bug = GUICtrlCreateCheckbox("Отключить отчёт об ошибках", 10, 130, 200, 15) GUICtrlSetTip(-1, "Отключает возможность отправки отчёта об ошибке в Microsoft") GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $print $print1 = GUICtrlRead($print, 0) Case $msg = $sched $sched1 = GUICtrlRead($sched, 0) Case $msg = $chkdsk $chkdsk1 = GUICtrlRead($chkdsk, 0) Case $msg = $update $update1 = GUICtrlRead($update, 0) Case $msg = $clean $clean1 = GUICtrlRead($clean, 0) Case $msg = $secur $secur1 = GUICtrlRead($secur, 0) Case $msg = $remote $remote1 = GUICtrlRead($remote, 0) Case $msg = $share $share1 = GUICtrlRead($share, 0) Case $msg = $bug $bug1 = GUICtrlRead($bug, 0) Case $msg = $ok If $print1 = $GUI_CHECKED Then RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}") If $sched1 = $GUI_CHECKED Then RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}") If $chkdsk1 = $GUI_CHECKED Then RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager", "AutoChkTimeOut", "REG_DWORD", "3") If $update1 = $GUI_CHECKED Then RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "AUOptions", "REG_DWORD", "1") RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "NextDetectionTime") RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "ScheduledInstallDate") RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "UnableToDetectTime") EndIf If $clean1 = $GUI_CHECKED Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", "REG_DWORD", "1") If $secur1 = $GUI_CHECKED Then $secur_key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center" Local $security[3] = ["AntiVirusDisableNotify", "FirewallDisableNotify", "UpdatesDisableNotify"] For $i = 0 To Ubound($security)-1 RegWrite($secur_key, $security[$i], "REG_DWORD", "1") Next EndIf If $remote1 = $GUI_CHECKED Then RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server", "fAllowToGetHelp", "REG_DWORD", "1") If $share1 = $GUI_CHECKED Then RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa", "forceguest", "REG_DWORD", "0") If $bug1 = $GUI_CHECKED Then RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "DoReport", "REG_DWORD", "0") If GUICtrlRead($proksi, 0) > 0 Then $proksi_value = GUICtrlRead($proksi, 0) $proksi_key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" RegWrite($proksi_key, "ProxyEnable", "REG_DWORD", "1") RegWrite($proksi_key, "ProxyServer", "REG_SZ", $proksi_value) RegWrite($proksi_key, "ProxyOverride", "REG_SZ", "") EndIf If GUICtrlRead($tmp, 0) > 0 Then $tmp_value = GUICtrlRead($tmp, 0) $tmp_key = "HKEY_CURRENT_USER\Environment" RegWrite($tmp_key, "TEMP", "REG_SZ", $tmp_value) RegWrite($tmp_key, "TMP", "REG_SZ", $tmp_value) EndIf ExitLoop Case $msg = $cancel ExitLoop Case $msg = $Gui_Event_Close ExitLoop Case $msg = $quit Exit Case $msg = $about About() EndSelect WEnd Func About() MsgBox(64, "О программе", "Easy tweaker v1.0" & @CRLF & @CRLF & "Программа для тонкой настройки клубных машин" & @CRLF & @CRLF & "CopyRight: Cyber Soft") EndFunc |