Добавляет в Контекстное меню файлов и папок пункты Поиск в Яндексе и Поиск в Google. При клике автоматически отправляет название файла или папки в окно ввода Яндекса или Гугла, и запускает поиск.
On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
CreateObject("WScript.Shell").Run "firefox ""http://yandex.ru/yandsearch?text=" & Arg & """"
On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
CreateObject("WScript.Shell").Run "firefox ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"
Предполагается что скриптовые файлы FindYandex.vbs и FindGoogle.vbs будут находится в папке WINDOWS\Scripts. Прописываем:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\Shell\FindYandex]
@="Поиск в Яндексе"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\Shell\FindYandex\command]
@="wscript.exe //nologo \"C:\\WINDOWS\\Scripts\\FindYandex.vbs\" \"%1\""
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\Shell\FindGoogle]
@="Поиск в Google"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AllFilesystemObjects\Shell\FindGoogle\command]
@="wscript.exe //nologo \"C:\\WINDOWS\\Scripts\\FindGoogle.vbs\" \"%1\""
Указанный подход требует установленного браузера, который будет "виден" в системе. В примере указанном выше - это браузер Mozilla Firefox, который системой воспринимается как firefox. Чтобы проверить так ли это делаем следующее:
Пуск - Выполнить - firefox (должен запуститься).
Если установленного браузера нет - его можно "прописать" в систему следующим образом:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Chrome123.exe]
@="D:\\PORTABLE\\Google Chrome Portable\\сhrome.exe"
"Path"="D:\\PORTABLE\\Google Chrome Portable"
Теперь последние строчки в скриптах будут выглядеть так (не забываем о пробеле после указания "рабочего" названия браузера):
CreateObject("WScript.Shell").Run "Chrome123 ""http://yandex.ru/yandsearch?text=" & Arg & """"
CreateObject("WScript.Shell").Run "Chrome123 ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"
Эти две строчки можно прописать одну за другой, тогда поиск будет производиться и в Яндексе и в Google. В Мозилле, если она запущена эти два поиска открываются в разных вкладках, если не запущена - в разных окнах. Как по мне - это неудобно.
Источник (http://www.cyberforum.ru/cmd-bat/thread995530.html)