#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
|
