Иконка ресурса

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

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

Вложения

  • Check VirusTotal And HerdProtect.zip
    167.6 KB · Просмотры: 7
Смотри, чтобы новый вид не съел разработчика :Biggrin:
Как ты себе это представляешь (результат)?
 
В смысле как?
В меню поиск в яндекс/гугле и отчет на вт.
Хотя наверное это будет лишним.
Надо подумать.
 
Уж сколько времени пользуюсь, а впервые выбрал для поиска файл с русскими буквами в названии

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

Гугл
Снимок.PNG


Яндекс
Снимок3.PNG

DuckDuckGo
Снимок2.PNG

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

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

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

upload_2015-12-22_21-56-40.png
 
Не ищет конкретно гугл и конкретно на русском. Firefox 25-ый

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

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

Теперь воюю только с DuckDuckGo )
 
Последнее редактирование:
utf-8
хм ..

DuckDuckGo портит поиск только если кирилический символ в верхнем регистре и не важно в каком месте
 
Закон подлости: по факту нужен только 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

VB.NET / VBA:
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 & ""
 
Koza Nozdri, вроде да )

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

VB.NET / VBA:
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 & ""

VB.NET / VBA:
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 & ""

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

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

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

Вложения

  • ICONS.zip
    20 KB · Просмотры: 4
С https могут быть у некоторых проблемы так что не стоит. Да и смысл использовать для поиска нет. А те кто используют там почту врядли пишут письмо и отправляют туда через это контекстное меню.
P.S. если будет обновление, то and надо писать через "a".
 
С https могут быть у некоторых проблемы так что не стоит
хм ... например ?

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

К сожалению, я вообще не понимаю, как код адаптировать под SendTo. Мне не понятно, что нужно написать, какой нужно написать код, чтобы данный поиск заработал через SendTo.
Кирилл, помогите, пожалуйста.
 
rtrtrt, доброе утро.
С работы приеду и сделаю как вам надо,сегодня.
Может ребята меня опередят с ответом)
Система у вас какая только сообщите.
 
Последнее редактирование:
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
 
Назад
Сверху Снизу