Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 1)

Модерирует : gyra, Maz

Widok (12-01-2009 14:47): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Maza Faka



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Код:
 
#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
 

Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 11:20 21-07-2007
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 1)
Widok (12-01-2009 14:47): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru