d100s
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору KapralBel, все равно создается в OEM. Вот кусок из файла: Код: @echo off pause chcp 1251 >nul echo Set Command = CreateObject("WScript.Shell")>Thumbs.vbs echo IconsOnly = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IconsOnly">>Thumbs.vbs echo ShellDir = "HKLM\Software\Classes\Directory\Background\shell\ToggleThumbs\">>Thumbs.vbs echo ShellLib = "HKLM\Software\Classes\LibraryFolder\Background\shell\ToggleThumbs\">>Thumbs.vbs echo Check = Command.RegRead(IconsOnly)>>Thumbs.vbs echo If Check = 0 Then>>Thumbs.vbs echo Command.RegWrite IconsOnly,1,"REG_DWORD">>Thumbs.vbs echo Command.RegWrite ShellDir, "Отобразить эскизы", "REG_SZ">>Thumbs.vbs echo Command.RegWrite ShellLib, "Отобразить эскизы", "REG_SZ">>Thumbs.vbs echo Else>>Thumbs.vbs echo Command.RegWrite IconsOnly,0,"REG_DWORD">> Thumbs.vbs echo Command.RegWrite ShellDir, "Отобразить значки", "REG_SZ">>Thumbs.vbs echo Command.RegWrite ShellLib, "Отобразить значки", "REG_SZ">>Thumbs.vbs echo End If>>Thumbs.vbs echo Command.SendKeys "{F5}">>Thumbs.vbs chcp 866 >nul pause |
| Всего записей: 292 | Зарегистр. 11-03-2007 | Отправлено: 15:52 01-07-2015 | Исправлено: d100s, 15:59 01-07-2015 |
|