Поиск в Google & Yandex по имени объекта из контексного меню проводника 0.3

[Dragokas]

Ложишь sigcheck.exe рядом с батником.
Перетягиваешь проверяемый объект на батник.
Батник с исправлением ошибок в путях.

 

[Кирилл]

Так может скрестим и выведем новый вид?

 

[Dragokas]

Смотри, чтобы новый вид не съел разработчика
Как ты себе это представляешь (результат)?

 

[Кирилл]

В смысле как?
В меню поиск в яндекс/гугле и отчет на вт.
Хотя наверное это будет лишним.
Надо подумать.

 

[vavun]

Уж сколько времени пользуюсь, а впервые выбрал для поиска файл с русскими буквами в названии

В данном случае демонстрация попытки поискать Пакетный файл Windows.bat

Гугл



Яндекс


DuckDuckGo


В оригинале кодировка получается 866, пробовал менять не 1251 - безрезультатно

Как быть ? )

 

[Кирилл]

Не понял,не ищет вообще ничего на русском?

Не могу воспроизвести проблему,можешь подробнее рассказать?

 

[vavun]

Не ищет конкретно гугл и конкретно на русском. Firefox 25-ый

CreateObject("WScript.Shell").Run "explorer ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"

После изьятия из строки ie=UTF-8&hl=ru& стало искать нормально.

Теперь воюю только с DuckDuckGo )

 

[Кирилл]

А в браузере кодировка какая стоит?

 

[vavun]

utf-8
хм ..

DuckDuckGo портит поиск только если кирилический символ в верхнем регистре и не важно в каком месте

 

[Кирилл]

Очень странно.
На выходных попробую воспроизвести с указанным ПО и разобраться.

 

[vavun]

Закон подлости: по факту нужен только DuckDuckGo, и именно он не работает, как нужно )

Еще хотел спросить: а для чего

"explorer ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"

А не просто

"https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & ""

?

Так оно даже отзывается немного шустрее
Вопрос с duckduckgo решил при помощи LCase

On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = LCase(Arg)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
set ShellApp = CreateObject("Shell.Application")'*/
CreateObject("WScript.Shell").Run "https://duckduckgo.com/?q=" & Arg & ""

 

[Кирилл]

vavun, так получается сейчас и там и там нормально?

 

[vavun]

Koza Nozdri, вроде да )

На данный момент у меня два поисковика.
Основной duckduckgo и google "спрятан под shift"
Скрипты почти без изменений

On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = LCase(Arg)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
set ShellApp = CreateObject("Shell.Application")'*/
CreateObject("WScript.Shell").Run "https://duckduckgo.com/?q=" & 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")
set ShellApp = CreateObject("Shell.Application")'*/
CreateObject("WScript.Shell").Run "https://encrypted.google.com/search?&q=" & Arg & ""

Больше проблем не было.

 

[vavun]

Koza Nozdri, и вообще, фанаты жаждут обновления
Учитывая, что "уточка" набирает популярность вероятно это имеет смысл.
+ имело бы смысл добавить везде https.
У кого то на гуглах и яндексах еще почты водятся (например у меня), так что перестраховаться не помешает )

В общем, было бы здорово

Еще я тут новые иконки принес ))

 

[regist]

С https могут быть у некоторых проблемы так что не стоит. Да и смысл использовать для поиска нет. А те кто используют там почту врядли пишут письмо и отправляют туда через это контекстное меню.
P.S. если будет обновление, то and надо писать через "a".

 

[vavun]

С https могут быть у некоторых проблемы так что не стоит

хм ... например ?

Я сейчас глянул, и гугл и яндекс и утка сами перенаправляют на https. Так что да. Смысла и правда нет.

 

[rtrtrt]

Kиpилл, Здравствуйте. Подскажите, пожалуйста, по этой программе "Поиск в Google и Yandex из контекстного меню проводника". Помогите, пожалуйста, как сделать чтобы новый пункт в меню добавлялся не в само контекстное меню, а в пункт "Отправить" SendTo. То есть всё тоже поиск в гугл и яндекс.

К сожалению, я вообще не понимаю, как код адаптировать под SendTo. Мне не понятно, что нужно написать, какой нужно написать код, чтобы данный поиск заработал через SendTo.
Кирилл, помогите, пожалуйста.

 

[Кирилл]

rtrtrt, доброе утро.
С работы приеду и сделаю как вам надо,сегодня.
Может ребята меня опередят с ответом)
Система у вас какая только сообщите.

 

[rtrtrt]

rtrtrt, доброе утро.
С работы приеду и сделаю как вам надо,сегодня.
Может ребята меня опередят с ответом)
Система у вас какая только сообщите.

отлично! вин 10.

 

[Кирилл]

rtrtrt, держите - как обещал.

Сохраните файл KozaN.vbs в паку %userprofile%
Затем откройте эту папку и нажмите правой кнопкой мыши на файле KozaN.vbs и выберите в контексном меню пункт "Создать ярлык".
Затем открываете папку shell:sendto (Правой кнопкой мыши на меню Пуск - Выполнить - shell:sendto - клавиша Enter) и копируете в эту папку ярлык KozaN.lnk (который вы только что создали)
Затем нажимаете на этом ярлыке правой кнопкой мыши - переименовать - и задаете удобное наименование,например "Поиск в Google".
Затем еще раз правой кнопкой мыши на ярлыке - сменить значок - выбираете в папке %userprofile% файлик ico, например google.ico
Файлы ico прикрепил к сообщению,на ваш выбор.

Как настроить поиск?
Если вам нужен поиск в Яндекс - то больше ничего не делайте.
Если в Google - то откройте с помощью блокнота файл KozaN.vbs и замените строку:

CreateObject("WScript.Shell").Run "explorer ""http://yandex.ru/yandsearch?text=" & Arg & """"

На строку

CreateObject("WScript.Shell").Run "explorer ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"

А если поиск в DuckDuckGo,то на строку:

CreateObject("WScript.Shell").Run "explorer ""https://duckduckgo.com/?q=" & Arg & """"

Все,пользуйтесь.
Что не получится - пишите.
Я вам готовый ярлык специально создавать пока не стал - что бы сами руками пощупали что где лежать будет.
На всякий случай.

Скачать ico.zip
http://www.fayloobmennik.net/6825791
p.s. а у меня еще просьба к другим пользователям - по просьбе трудящихся решил сделать апгрейд небольшой,и у меня че то иконка DuckDuckGo не показывается.
Просьба проверьте кто может как у вас,скрипт в архиве по ссылке

Скачать Google end Yandex search.rar