#include <GUIConstants.au3>
Opt("GuiOnEventMode", 1)
GUICreate("Easy Tweaker for client workstation", 350, 280, -1, -1, -1, $WS_EX_CLIENTEDGE)
GuiSetIcon("regedit.exe", 0)
GUISetBkColor(0xE0FFFF)
;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()
GUISetOnEvent($Gui_Event_Close, "Close")
GUICtrlSetOnEvent($ok, "Ok")
GUICtrlSetOnEvent($cancel, "Close")
While 1
Sleep(1000)
WEnd
Func Close()
Exit
EndFunc
Func Ok()
$Readprint = GUICtrlRead($print)
$Readsched = GUICtrlRead($sched)
If $Readprint = $Gui_Checked Then RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}")
If $Readsched = $Gui_Checked Then RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
Exit
EndFunc
|
