#include <GUIConstants.au3> Global $Ini = "TweakerXP.ini" ; путь к TweakerXP.ini ;Проверка существования TweakerXP.ini $answer = "" If Not FileExists($Ini) Then $answer = MsgBox(4, "Выгодное предложение", "Хотите создать необходимый TweakerXP.ini для сохранения вводимых параметров?") If $answer = "6" Then IniWriteSection($Ini, "general", 'notepad=notepad.exe'&@LF&'url1=http://google.ru'&@LF&'url2=http://clubrus.kulichki.ru'&@LF&'url3=http://forum.ru-board.com'&@LF&'url4=http://xage.ru'&@LF&'url5=http://topdownloads.ru/search.php'&@LF&'Place0=C:\'&@LF&'Place1=D:\'&@LF&'Place2='&@MyDocumentsDir&@LF&'Place3='&@LF&'Place4='&@LF&'crtex=Readme') EndIf ;считываем TweakerXP.ini $notepad = IniRead ($Ini, "general", "notepad", "notepad.exe") $Inigurl1 = IniRead ($Ini, "general", "url1", "http://google.ru") $Inigurl2 = IniRead ($Ini, "general", "url2", "http://clubrus.kulichki.ru") $Inigurl3 = IniRead ($Ini, "general", "url3", "http://forum.ru-board.com") $Inigurl4 = IniRead ($Ini, "general", "url4", "http://xage.ru") $Inigurl5 = IniRead ($Ini, "general", "url5", "http://topdownloads.ru/search.php") $Inigpl0 = IniRead ($Ini, "general", "Place0", "C:\") $Inigpl1 = IniRead ($Ini, "general", "Place1", "D:\") $Inigpl2 = IniRead ($Ini, "general", "Place2", @MyDocumentsDir) $Inigpl3 = IniRead ($Ini, "general", "Place3", "") $Inigpl4 = IniRead ($Ini, "general", "Place4", "") $crtext = IniRead ($Ini, "general", "crtext", "Readme") GUICreate("TweakerXP v0.6",500,320) ; размер окна GUISetFont(9, 300) $tab=GUICtrlCreateTab (10,10, 480,300) ; размер вкладки ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% $tab0=GUICtrlCreateTabitem ("Общие") ; имя вкладки GUICtrlSetState(-1,$GUI_SHOW) ; вкладка по умолчанию GUICtrlCreateLabel ("Конфигурация в TweakerXP.ini.", 30,40,450,20) $checkCN01=GUICtrlCreateCheckbox ("Пункт ""Изменить"" ассоциировать с Notepad (txt, reg, htm, cmd, bat)", 20,60,450,20) GUICtrlSetTip(-1, "Путь к вашему блокноту указать в TweakerXP.ini") $checkCN02=GUICtrlCreateCheckbox ("Пункт в браузере ""Просмотр HTML-кода"" - открытие в Notepad", 20,80,450,20) GUICtrlSetTip(-1, "Путь к вашему блокноту указать в TweakerXP.ini") $checkCN03=GUICtrlCreateCheckbox ("При создании ярлыков убрать в имени ""Ярлык для""", 20,100,467,20) $checkCN04=GUICtrlCreateCheckbox ("Пункт в контекстном меню - ""Открыть в новом окне""", 20,120,370,20) GUICtrlSetTip(-1, "Тоже самое выполняется при Ctrl+Enter") $tabBut04=GUICtrlCreateButton ("< Восстан.", 400,120,80,20) GUICtrlSetTip(-1, "Удалить этот пункт из контекстного меню") $checkCN05=GUICtrlCreateCheckbox ("Удaлить пункт мeню Пуск ""Bыxoд из cиcтeмы""", 20,140,450,20) $checkCN06=GUICtrlCreateCheckbox ("Добавление ссылок в раскрывающуюся строку браузера IE", 20,160,450,20) $checkCN07=GUICtrlCreateCheckbox ("Диалоговое окно ""Сохранить как..."" - изменение папок справа", 20,180,370,20) GUICtrlSetTip(-1, "Проверить можно в стандартном блокноте"&@LF&"при открытии файла или сохранении.") $tabBut07=GUICtrlCreateButton ("< Восстан.", 400,180,80,20) GUICtrlSetTip(-1, "Восстановить по умолчанию") $checkCN08=GUICtrlCreateCheckbox ("Удалить в контекстном меню пункт ""Печать""", 20,200,450,20) GUICtrlSetTip(-1, "Часто ли вам приходилось их"&@LF&"использовать из контекстного меню?") $checkCN09=GUICtrlCreateCheckbox ("Отключить проверку HDD при старте WindowsXP", 20,220,370,20) GUICtrlSetTip(-1, "Если хард обьёмный проверка займёт"&@LF&"от сорока минут до нескольких часов") $tabBut09=GUICtrlCreateButton ("< Восстан.", 400,220,80,20) GUICtrlSetTip(-1, "Восстановить по умолчанию") $checkCN010=GUICtrlCreateCheckbox ("Создание текстового файла", 20,241,190,20) GUICtrlSetTip(-1, 'Пункт контекстного меню "Создать"'&@LF&'Пункт изменяется, если проверить'&@LF&'контекстное меню два раза.') $crtextfl=GUICtrlCreateCombo ("", 210,240,155,18) GUICtrlSetData(-1,$crtext&'|Readme|Прочитать|Прочти|Текстовый документ|Текст', $crtext) $tabBut01=GUICtrlCreateButton ("Выделить всё", 190,280,87,22) GUICtrlSetTip(-1, "Установить галочки на все пункты") $tabButCan01=GUICtrlCreateButton ("Отменить всё", 290,280,87,22) GUICtrlSetTip(-1, "Убрать галочки на всех пунктах") $vkladka01=GUICtrlCreateButton ("Применить", 390,280,87,22) ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% $tab5=GUICtrlCreateTabitem ("User") ; имя вкладки GUICtrlCreateLabel ("Изменение пути к папкам пользователя", 30,40,250,20) $UserButRm=GUICtrlCreateButton ("Readme (обязательно читать)", 280,40,190,20) $Label02=GUICtrlCreateLabel ("Буква HDD-диска:", 20,62,120,20) $bykva=GUICtrlCreateCombo ("", 140,60,65,18) GUICtrlSetData(-1,'C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z', 'D') $Label03=GUICtrlCreateLabel ("Имя пользователя:", 20,92,120,20) $usersprofiles=GUICtrlCreateCombo ("", 140,90,115,18) GUICtrlSetData(-1,'user1|user|usersprofiles1|usersprofiles', 'user1') $checkCN501=GUICtrlCreateCheckbox ("Создать стандартные папки и ярлыки к папкам в панели быстрого запуска", 20,120,460,20) GUICtrlSetTip(-1, "Создать папки Games, Рисунки,"&@CRLF&"Музыка, Фильмы на указанном диске") $vkladka011=GUICtrlCreateButton ("Применить", 390,280,87,22) ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% $tab6=GUICtrlCreateTabitem ("LNK") ; имя вкладки GUICtrlCreateLabel ("Создание ярлыков", 30,40,250,20) $checkCN601=GUICtrlCreateCheckbox ("Создать на рабочем столе ярлыки выключения и перезагрузки", 20,62,390,20) $vkladka601=GUICtrlCreateButton ("Применить", 390,280,87,22) ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% $tab1=GUICtrlCreateTabitem ( "*.*") ; имя вкладки GUICtrlCreateLabel ("Удалить пункты в контекстном меню ""Создать"" для указанных типов файлов.", 30,40,450,20) GUICtrlSetTip(-1, "Если нужен всего лишь ""текстовый документ"", то зачем его искать из списка с десятком файлов") $checkCN11=GUICtrlCreateCheckbox ("3dg", 20,60,70,20) $checkCN12=GUICtrlCreateCheckbox ("ais", 20,80,70,20) $checkCN13=GUICtrlCreateCheckbox ("au3", 20,100,70,20) GUICtrlSetTip(-1, "Скрипт AutoIt3") $checkCN14=GUICtrlCreateCheckbox ("bmp", 20,120,70,20) $checkCN15=GUICtrlCreateCheckbox ("doc", 20,140,70,20) GUICtrlSetTip(-1, "Документ office 2003") $checkCN16=GUICtrlCreateCheckbox ("docx", 20,160,70,20) GUICtrlSetTip(-1, "Документ office 2007") $checkCN17=GUICtrlCreateCheckbox ("dst", 20,180,70,20) $checkCN18=GUICtrlCreateCheckbox ("egc", 20,200,70,20) $checkCN19=GUICtrlCreateCheckbox ("fxp", 20,220,70,20) $checkCN20=GUICtrlCreateCheckbox ("ppt", 20,240,70,20) GUICtrlSetTip(-1, "Документ office 2003") $checkCN21=GUICtrlCreateCheckbox ("pptx", 100,60,70,20) GUICtrlSetTip(-1, "Документ office 2007") $checkCN22=GUICtrlCreateCheckbox ("psd", 100,80,70,20) GUICtrlSetTip(-1, "Photoshop") $checkCN23=GUICtrlCreateCheckbox ("rar", 100,100,70,20) GUICtrlSetTip(-1, "Архив WinRAR") $checkCN24=GUICtrlCreateCheckbox ("rsnp", 100,120,70,20) $checkCN25=GUICtrlCreateCheckbox ("rtf", 100,140,70,20) GUICtrlSetTip(-1, "Документ office 2003") $checkCN26=GUICtrlCreateCheckbox ("slg", 100,160,70,20) $checkCN27=GUICtrlCreateCheckbox ("tpp", 100,180,70,20) GUICtrlSetTip(-1, "Файл Teleport Pro") $checkCN28=GUICtrlCreateCheckbox ("wav", 100,200,70,20) GUICtrlSetTip(-1, "Не сжатый звуковой файл") $checkCN29=GUICtrlCreateCheckbox ("xls", 100,220,70,20) GUICtrlSetTip(-1, "Документ office 2003") $checkCN30=GUICtrlCreateCheckbox ("xlsx", 100,240,70,20) GUICtrlSetTip(-1, "Документ office 2007") $checkCN31=GUICtrlCreateCheckbox ("zip", 180,60,70,20) GUICtrlSetTip(-1, "Архив, сжатая папка.") $checkCN32=GUICtrlCreateCheckbox ("bfc", 180,80,70,20) GUICtrlSetTip(-1, "Портфель") $tabButCan11=GUICtrlCreateButton ("Отменить всё", 390,220,87,22) GUICtrlSetTip(-1, "Убрать галочки на всех пунктах") $tabBut11=GUICtrlCreateButton ("Выделить всё", 390,250,87,22) GUICtrlSetTip(-1, "Установить галочки на все пункты") $vkladka02=GUICtrlCreateButton ("Удалить", 390,280,87,22) GUICtrlSetTip(-1, "Удалить отмеченные") ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% $tab2=GUICtrlCreateTabitem ("Прочие") ; имя вкладки GUICtrlCreateLabel ("Прочие твики", 30,40,450,20) $checkCN101=GUICtrlCreateCheckbox ("Отключить автозапуск CD,DVD-дисков", 20,60,450,20) $checkCN102=GUICtrlCreateCheckbox ("Включить автозапуск CD,DVD-дисков", 20,80,450,20) $vkladka03=GUICtrlCreateButton ("Применить", 390,280,87,22) ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% $tab3=GUICtrlCreateTabitem ("Справка") ; имя вкладки GUICtrlCreateLabel ("В TweakerXP.ini можно указать параметры (url, сохранить как...)", 30,40,450,20) GUICtrlCreateLabel ("AZJIO 24.8.2009", 380,280,97,22) GUICtrlCreateTabitem ("") ; конец вкладок GUISetState () While 1 $msg = GUIGetMsg() Select Case $msg = $vkladka01 ;Проверка чекбоксов If GUICtrlRead ($checkCN01)=1 Then RegWrite("HKCR\batfile\shell\edit\command","","REG_SZ",$notepad&' %1') RegWrite("HKCR\cmdfile\shell\edit\command","","REG_SZ",$notepad&' %1') RegWrite("HKCR\htmlfile\shell\Edit\command","","REG_SZ",$notepad&' %1') RegWrite("HKCR\regfile\shell\edit\command","","REG_SZ",$notepad&' %1') RegWrite("HKCR\txtfile\shell\edit\command","","REG_SZ",$notepad&' %1') Else EndIf If GUICtrlRead ($checkCN02)=1 Then RegWrite("HKLM\SOFTWARE\Microsoft\Internet Explorer\View Source Editor\Editor Name","","REG_SZ",$notepad) Else EndIf If GUICtrlRead ($checkCN03)=1 Then RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer","link","REG_BINARY",'00000000') Else EndIf If GUICtrlRead ($checkCN04)=1 Then RegWrite("HKCR\Folder\shell\opennew","","REG_SZ",'Открыть в новом окне') RegWrite("HKCR\Folder\shell\opennew","BrowserFlags","REG_DWORD",'10') RegWrite("HKCR\Folder\shell\opennew","ExplorerFlags","REG_DWORD",'33') RegWrite("HKCR\Folder\shell\opennew\command","","REG_EXPAND_SZ",'%SystemRoot%\Explorer.exe /idlist,%I,%L" & @lf & "') RegWrite("HKCR\Folder\shell\opennew\ddeexec","","REG_SZ",'[ViewFolder("%l", %I, %S)]') RegWrite("HKCR\Folder\shell\opennew\ddeexec","NoActivateHandler","REG_SZ",'') RegWrite("HKCR\Folder\shell\opennew\ddeexec\application","","REG_SZ",'Folders') RegWrite("HKCR\Folder\shell\opennew\ddeexec\ifexec","","REG_SZ",'[]') RegWrite("HKCR\Folder\shell\opennew\ddeexec\topic","","REG_SZ",'AppProperties') Else EndIf If GUICtrlRead ($checkCN05)=1 Then RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","StartmenuLogoff","REG_DWORD",'1') Else EndIf If GUICtrlRead ($checkCN06)=1 Then RegWrite("HKCU\Software\Microsoft\Internet Explorer\TypedURLs","url1","REG_SZ",$Inigurl1) RegWrite("HKCU\Software\Microsoft\Internet Explorer\TypedURLs","url2","REG_SZ",$Inigurl2) RegWrite("HKCU\Software\Microsoft\Internet Explorer\TypedURLs","url3","REG_SZ",$Inigurl3) RegWrite("HKCU\Software\Microsoft\Internet Explorer\TypedURLs","url4","REG_SZ",$Inigurl4) RegWrite("HKCU\Software\Microsoft\Internet Explorer\TypedURLs","url5","REG_SZ",$Inigurl5) Else EndIf If GUICtrlRead ($checkCN07)=1 Then RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\PlacesBar","Place0","REG_SZ",$Inigpl0) RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\PlacesBar","Place1","REG_SZ",$Inigpl1) RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\PlacesBar","Place2","REG_SZ",$Inigpl2) RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\PlacesBar","Place3","REG_SZ",$Inigpl3) RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\PlacesBar","Place4","REG_SZ",$Inigpl4) Else EndIf If GUICtrlRead ($checkCN08)=1 Then RegDelete("HKCR\regfile\shell\print") RegDelete("HKCR\txtfile\shell\print") RegDelete("HKCR\logfile\shell\print") RegDelete("HKCR\cmdfile\shell\print") RegDelete("HKCR\batfile\shell\print") RegDelete("HKCR\fonfile\shell\print") RegDelete("HKCR\inffile\shell\print") RegDelete("HKCR\inifile\shell\print") Else EndIf If GUICtrlRead ($checkCN09)=1 Then RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager","BootExecute","REG_EXPAND_SZ",'autocheck autochk /K:CDEFGHIJKLMNOPQRSTUVWXYZ *') Else EndIf $crtextfl01=GUICtrlRead ($crtextfl) If GUICtrlRead ($checkCN010)=1 Then RegWrite("HKCU\Software\Microsoft\Windows\ShellNoRoam\MUICache","@C:\WINDOWS\system32\notepad.exe,-469","REG_SZ",$crtextfl01) Else EndIf ;Проверка чекбоксов End Case $msg = $tabButCan01 GuiCtrlSetState($checkCN01, 4) GuiCtrlSetState($checkCN02, 4) GuiCtrlSetState($checkCN03, 4) GuiCtrlSetState($checkCN04, 4) GuiCtrlSetState($checkCN05, 4) GuiCtrlSetState($checkCN06, 4) GuiCtrlSetState($checkCN07, 4) GuiCtrlSetState($checkCN08, 4) GuiCtrlSetState($checkCN09, 4) GuiCtrlSetState($checkCN010, 4) Case $msg = $tabBut01 GuiCtrlSetState($checkCN01, 1) GuiCtrlSetState($checkCN02, 1) GuiCtrlSetState($checkCN03, 1) GuiCtrlSetState($checkCN04, 1) GuiCtrlSetState($checkCN05, 1) GuiCtrlSetState($checkCN06, 1) GuiCtrlSetState($checkCN07, 1) GuiCtrlSetState($checkCN08, 1) GuiCtrlSetState($checkCN09, 1) GuiCtrlSetState($checkCN010, 1) Case $msg = $tabBut04 RegDelete("HKCR\Folder\shell\opennew") Case $msg = $tabBut07 RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\PlacesBar") Case $msg = $tabBut09 RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager","BootExecute","REG_EXPAND_SZ",'autocheck autochk *') Case $msg = $vkladka02 ;Проверка чекбоксов If GUICtrlRead ($checkCN11)=1 Then RegDelete("HKCR\.3dg\ShellNew") Else EndIf If GUICtrlRead ($checkCN12)=1 Then RegDelete("HKCR\.ais\ShellNew") Else EndIf If GUICtrlRead ($checkCN13)=1 Then RegDelete("HKCR\.au3\ShellNew") Else EndIf If GUICtrlRead ($checkCN14)=1 Then RegDelete("HKCR\.bmp\ShellNew") Else EndIf If GUICtrlRead ($checkCN15)=1 Then RegDelete("HKCR\.doc\Word.Document.6\ShellNew") RegDelete("HKCR\.doc\Word.Document.8\ShellNew") RegDelete("HKCR\.doc\WordDocument\ShellNew") RegDelete("HKCR\.doc\Word.Document.1\ShellNew") Else EndIf If GUICtrlRead ($checkCN16)=1 Then RegDelete("HKCR\.docx\Word.Document.12\ShellNew") Else EndIf If GUICtrlRead ($checkCN17)=1 Then RegDelete("HKCR\.dst\ShellNew") Else EndIf If GUICtrlRead ($checkCN18)=1 Then RegDelete("HKCR\.egc\ShellNew") Else EndIf |