Автор Тема: Поиск в Яндекс и Google из контекстного меню  (Прочитано 4689 раз)

0 Пользователей и 1 Гость смотрят эту тему.

Оффлайн KREKER12345

  • Ветеран
  • *****
  • Сообщений: 763
  • Пол: Мужской
    • Просмотр профиля
Добавляет в Контекстное меню файлов и папок пункты  Поиск в Яндексе  и  Поиск в 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.  Прописываем:

 *.reg:
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  (должен запуститься).

Если установленного браузера нет - его можно "прописать" в систему следующим образом:

 *.reg:
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. В Мозилле, если она запущена эти два поиска открываются в разных вкладках, если не запущена - в разных окнах. Как по мне - это неудобно.

Источник
« Последнее редактирование: 22 Сентября 2016, 20:11:53 от KREKER12345 »

Оффлайн KREKER12345

  • Ветеран
  • *****
  • Сообщений: 763
  • Пол: Мужской
    • Просмотр профиля
Автоустановщик для ленивых. Добавляет в Контекстное меню файлов пункт  Поиск в Яндекс и Google.  При запуске отсылает название файла в две разные вкладки браузера по умолчанию и открывает в них результаты поиска в Яндексе и Google.

Применение  - скачать и запустить. Для удаления из КМ - запустить файл реестра из архива. При необходимости в архиве альтернативная иконка, её нужно будет закинуть в папку  Windows\Scripts.



* SearchYandexGoogle.rar (109.98 кБ - загружено 232 раз.)

Сообщение добавлено спустя 15 ч. 34 мин. 13 сек.
Для поиска в  Bing  в конец скриптового файла нужно добавить строку:

  CreateObject("WScript.Shell").Run "https://bing.com/search?ie=UTF-8&hl=ru&q=" & Arg & """"
« Последнее редактирование: 02 Мая 2020, 14:19:21 от KREKER12345 »