Добавляет в Контекстное меню файлов и папок пункты
Поиск в Яндексе и
Поиск в Google. При клике автоматически отправляет название файла или папки в окно ввода Яндекса или Гугла, и запускает поиск.
FindYandex.vbs:
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 & """"
FindGoogle.vbs:
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. Прописываем:
Указанный подход требует установленного браузера, который будет "виден" в системе. В примере указанном выше - это браузер
Mozilla Firefox, который системой воспринимается как
firefox. Чтобы проверить так ли это делаем следующее:
Пуск - Выполнить - firefox (должен запуститься).
Если установленного браузера нет - его можно "прописать" в систему следующим образом:
Теперь последние строчки в скриптах будут выглядеть так (не забываем о пробеле после указания "рабочего" названия браузера):
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. В Мозилле, если она запущена эти два поиска открываются в разных вкладках, если не запущена - в разных окнах. Как по мне - это неудобно.
Источник
