Полезные скрипты, сценарии, батники

Полезные скрипты, сценарии, бантики
Скрипт .js, для окртытия скопироаанной ссылки.Можно скрипт на рабочий стол, а можно кнопочку в контекстном меню. Скрипт поместить в папку C:\Windows, оттуда копировать полный путь и вставить в команду реестра. В команде вначале скопированного полного пути ставить wscript.exe, пример
wscript.exe C:\Windows\Scripts\ФайлJScript.js

http://ФайлJScript.js

СОДЕРЖИМОЕ
var prt_idx = 0, cb_dat = WSH.CreateObject('htmlfile').parentWindow.clipboardData.getData('text');//to extend allowed protocols add whatever you need to end of string, each protocol must ends with colon symbol//"whatever you need" can be found on https://en.wikipedia.org/wiki/List_of_URI_schemesif

https://en.wikipedia.org/wiki/List_of_URI_schemesif

(cb_dat != null && (prt_idx = cb_dat.indexOf(':')) > 0 && 'http:https:ftp:udp:magnet:ssh:'.indexOf(cb_dat.substr(0, prt_idx + 1)) > 0) WSH.CreateObject("WScript.Shell").Run(cb_dat, 0, false)
———
Создать URL ярлык из буфера обмена. Эта создание гиперссылки на рабочем столе из буфера обмена. Адрес в реестре будет немного отличаться, кавычки, линия под наклоном и слово nologo, пример
wscript.exe //nologo // "C:\Windows\Вставитьссылку.vbs"

СОДЕРЖИМОЕ
Dim WSH : Set WSH = CreateObject("WScript.Shell")R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"On Error Resume NextA = WSH.RegRead(R): If A > 0 Or Err.Number <> 0 Then WSH.RegWrite R, 0, "REG_DWORD"URL = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))If A > 0 Then WSH.RegWrite R, A, "REG_DWORD"On Error Goto 0 : Test = Left(URL, 4)If Test = "" Or (Test <> "www." And Test <> "http") Then MsgBox "Буфер " &_"обмена не содержит гиперссылки!", 4144, " Создание URL-ярлыка" : WScript.QuitR = Array("''","-"," -",",","_","_","_")S = Array("""","|", ":",";","\","/","?")With WScript.CreateObject("InternetExplorer.Application", "IE_").Visible = 0 : .Silent = 1 : .AddressBar = 0.MenuBar = 0 : .ToolBar = 0 : .StatusBar = 0 : .Navigate(URL)While IsEmpty(Title) Or Left(Title, 4) = "http" WScript.Sleep 20 :Wend.Stop : .ExecWB 45, 2 : FN = Title & ".url"End With : For i = 0 To 6 : FN = Replace(FN, S(i), R(i)) : NextWith WSH.CreateShortcut(FN) .TargetPath = URL : .Save :End WithWSH.SendKeys "^r": Sub IE_TitleChange(T) Title = Trim(T) :End Sub
———
Открыть созданный URL ярлык кнопкой в контекстном меню. Ярлык в папке Windows. В команде реестра полный путь к ярлыку ставится после "C:\Windows\System32\rundll32.exe".
Пример
"C:\Windows\System32\rundll32.exe" "C:\Windows\System32\ieframe.dll",OpenURL C:\Windows\.url
———
Этот для кнопки в контекстном меню на файле, при нажатии на файл будет искать в инете имя этого файла. В самом низу скрипта можно менять адрес-поисковик, или сделать несколько разных. Можно ставить Яндекс-переводчик, перекидывает туда переводить не русское имя файла.

СОДЕРЖИМОЕ
On Error Resume Nextif WScript.Arguments.Count = 0 then WScript.QuitArg = WScript.Arguments(0)Arg = Mid(Arg, InStrRev(Arg, "\") + 1)Arg = Replace(Arg, " ", "%20")CreateObject("WScript.Shell").Run "firefox ""http://yandex.ru/yandsearch?text="

http://yandex.ru/yandsearch?text="

& Arg & """"
———
Создать папку и открыть
wscript.exe C:\Windows\FolderN.vbs

СОДЕРЖИМОЕ
Option Explicit
Dim objFSO, objFolder, objShell, strDirectory
strDirectory = InputBox("Ввести название папки:", "Создание папки.")
'Для кнопки Отмена или для пустого поля ввода
If strDirectory=Empty Then
WScript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
'Проверка на существование папки и создание.
'Добавил открытие папки
If objFSO.FolderExists(strDirectory) Then
Set objFolder = objFSO.GetFolder(strDirectory)
WScript.Echo "Папка ''"& strDirectory &"'' уже создана "
Else
Set objFolder = objFSO.CreateFolder(strDirectory)
'WScript.Echo "Вновь созданная папка ''"& strDirectory &"''."
End If
———
Копировать из скрипта вставленный в него ранее текст, например слово ”Копировать“. см ниже в скрипте куда слово писать-заменять.

СОДЕРЖИМОЕ
option explicit
Dim WSHShell, objFSO, str
str = "Копировать"
Set WSHShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Копируем в буфер обмена Windows
WSHShell.Run "cmd.exe /C <nul set /p ""=" & str & """ | CLIP", 0, Falseoff FOR /L %i IN (1,1,10) DO md %i
off FOR /L %i IN (1,1,10) DO md %i
———
Создать блокнот. Дальнейшее нажатие — очищает созданный

СОДЕРЖИМОЕ
Set TSWrite =Set TSWrite = CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Users\Windows 7\Desktop\source.txt", True)
TSWrite.WriteLine
stop
TSWrite.Close
stop
———
Блокнот очистить

СОДЕРЖИМОЕ
Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
path = "C:\Users\Windows 7\Desktop\БУФЕР.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(path, 2, true)
objFile.WriteLine ClipboardTextAddfile
objFile.Close
———
Скрыть – показать файлы. Для кнопки в контекстном меню для реестра скрипт делать в папке C:\Windows\System32
Файл C:\Windows\System32\СКРЫТЬ.vbs

СОДЕРЖИМОЕ
' Скрипт для переключения отображения скрытых и системных файлов
' в проводнике, а также расширений файлов
' Подробнее /12452

Option Explicit
Dim dblHiddenData, strHiddenKey, strSuperHiddenKey, strFileExtKey
Dim strKey, WshShell
On Error Resume Next

strKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
strHiddenKey = strKey & "\Hidden"
strSuperHiddenKey = strKey & "\ShowSuperHidden"
'strFileExtKey = strKey & "\HideFileExt"

Set WshShell = WScript.CreateObject("WScript.Shell")
dblHiddenData = WshShell.RegRead(strHiddenKey)

If dblHiddenData = 2 Then
'Скрытые файлы
WshShell.RegWrite strHiddenKey, 1, "REG_DWORD"
'Системные файлы
WshShell.RegWrite strSuperHiddenKey, 1, "REG_DWORD"
'Расширения
'WshShell.RegWrite strFileExtKey, 0, "REG_DWORD"
WSHShell.SendKeys "{F5}"

Else
WshShell.RegWrite strHiddenKey, 2, "REG_DWORD"
WshShell.RegWrite strSuperHiddenKey, 0, "REG_DWORD"
'WshShell.RegWrite strFileExtKey, 1, "REG_DWORD"
WSHShell.SendKeys "{F5}"

End If
———
Для бантиков, или кнопки в контекстном меню.Перезапустить проводник

СОДЕРЖИМОЕ
@ECHO OFF
taskkill /f /IM explorer.exe > NUL
StarCraft.exe
choice /N /T 2 /C 7 /D 7 > NUL
start %windir%\explorer.exe
———
Создать пустой блокнот. В конце менять нужное расширение на разные версии блокнотов, например классический это .txt а Notepad++, это .h

СОДЕРЖИМОЕ Для .cmd и .bat
@echo off
set mytime=%time%
set mytime=%mytime:~0,2%.%mytime:~3,2%.%mytime:~6,2%
copy nul "%mytime%".txt.
———
Создать пустой блокнот
cmd.exe /s /c pushd "%V" @echo >> БЛОКНОТ.txt
———
Сосздать список файлов папки в блокнот. Создаётся список файлов той папки где выполняется команда. Внутри путь к бантику C:\Windows\spisok.bat

СОДЕРЖИМОЕ
chcp 1251
echo %date% %time% >spisok.txt
dir /b /d >>spisok.txt
© Public-pc.com

http://Public-pc.com

Источник: https://public-pc.com/how-to-get-a-list-of-files-in-a-folder-in-a-text-file/

https://public-pc.com/how-to-get-a-list-of-files-in-a-folder-in-a-text-file/

———
Для этих в реестре пуит к бантику не нужен, в реестр просто вставляется команда

Скрыть рабочий стол
Содержимое
nircmd.exe win hide class progman

Вернуть рабочий стол (После того, как оно было скрыто в предыдущем примере)
Содержимое
nircmd.exe win show class progman

Скрыть часы на системном трее
nircmd.exe win child class "Shell_TrayWnd" hide class "TrayClockWClass"

Показать часы на системном трее nircmd.exe win child class "Shell_TrayWnd" show class "TrayClockWClass"

Скрыть панель задач
Содержимое
nircmd.exe win hide class "Shell_TrayWnd"

Вернуть панель задач
Содержимое
nircmd.exe win show class "Shell_TrayWnd"

Скрыть кнопку пуск на панели задач
Содержимое
nircmd.exe win child class "Shell_TrayWnd" hide class "button"

Показать кнопку Пуск на панели задач
Содержимое
nircmd.exe win child class "Shell_TrayWnd" show class "button"

Скрыть — вернуть окно браузера
Содержимое
nircmd.exe win togglehide class MozillaWindowClass

Вставить текст из буфера в новый блокнот
nircmd.exe clipboard addfile "C:\Users\Windows 7\Desktop\НОВЫЙ.txt"

Как и первый, только текст заменяется на новый
nircmd.exe clipboard writefile "C:\Users\Windows 7\Desktop\НОВЫЙ.txt"

Вставить текст в блокнот неоткрывая блокнот кнопкой в контекстном меню. Кнопка на бокноте через реестр. Ветка реестра блокнота
HKEY_CLASSES_ROOT\SystemFileAssociations\.txt\shell

Пример команды и адрес сохранения блокнота.
nircmd.exe clipboard addfile "C:\Users\Windows 7\Desktop\НОВЫЙ.txt"

Сделать и сохранить скриншот
nircmd.exe savescreenshot "C:\Users\Windows 7\Desktop\shot.png"

Открыть второе окно реестра
regedit.exe -m

Перейти ключу реестра который сейчас в буфере обмена
nircmd regedit "~$clipboard$"

Копировать меню «Пуск» Start Menu
nircmd.exe clipboard set ~$folder.start_menu$

Копировать путь Desktop
nircmd.exe clipboard set ~$folder.desktop$

Копировать путь файла, проги и т.д. Делать бантик или в реестр просто вставляется команда
Для кнопки в контекстном меню на файле
Содержимоое
cmd /c "echo %1 | clip
———
Зажать клавиши
Shift
Содержимое
nircmd.exe sendkey shift down

Ctrl
Содержимое
nircmd.exe sendkey ctrl down

CapsLock
Содержимое
nircmd.exe sendkeypress capslock down

Enter
Содержимое
nircmd.exe sendkeypress enter

Enter тройное нажатие
Содержимое
nircmd.exe sendkeypress enter enter enter

Enter с задержкой в 100 мс
Содержимое
nircmd.exe loop 3 100 sendkeypress enter

Полезные скрипты, сценарии, батники - 921341829894

Нет комментариев

Новые комментарии

Для того чтобы оставить комментарий, войдите или зарегистрируйтесь

Следующая публикация