YuS_2
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору d100s Цитата: Цитата: Можно так: Код: cmd /u /c echo текст>script.vbs akelpad /OpenFile("script.vbs",1200) /SaveFile("script.vbs",1251) /Command(4109) | Добавлено: а здесь, так: Код: 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 akelpad /OpenFile("Thumbs.vbs",866) /SaveFile("Thumbs.vbs",1251) /Command(4109) |
|