Серый форум — Помогите со скриптом, скрипт поисковик

Re: Помогите со скриптом, скрипт поисковик

2022-09-02T16:06:46Z

teadrinker
Спасибо большое. Всё работает.

Re: Помогите со скриптом, скрипт поисковик

2022-09-02T15:55:43Z

andypetr, вот видите, к чему приводит подобная «доброта». Человек даже и не подумал отреагировать, хотя прочитал сообщение.

Re: Помогите со скриптом, скрипт поисковик

2022-09-02T13:38:09Z

kalop, добро пожаловать на форум! Ознакомьтесь, пожалуйста, с Правилами, отредактируйте свой пост. Обратите внимание на составление заголовков и оформление кода.

andypetr, я, кажется, уже ведь обращал ваше внимание?

Правила пишет:

Крайне нежелательно отвечать в темах, оформленных неправильно!

Не думал, что вы из тех, кому нужно объяснять одно и то же несколько раз подряд.

Re: Помогите со скриптом, скрипт поисковик

2022-09-02T10:26:33Z

andypetr
О, вот так ищет нормально. Спасибо большое. Супер.:)

Re: Помогите со скриптом, скрипт поисковик

2022-09-02T09:56:02Z

kalop, нужно добавить одну строку в этот скрипт:

Dim objWshShell
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")

clipboard = Replace(clipboard, " ", "%20") '<=== вот эту строку

Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "https://yandex.ru/search/?text=" & clipboard & "&clid=1836588&lr=959", 1, False
Set objWshShell = Nothing
WScript.Quit 0

Re: Помогите со скриптом, скрипт поисковик

2022-09-02T09:36:35Z

andypetr
Ничего не понял. В адресной строке браузера ничего делать не надо. Скрипт вроде как рабочий на половину. Нажал и перепрыгнул в поисковик. Где в нём эти строки надо заменить?

Re: Помогите со скриптом, скрипт поисковик

2022-09-02T08:42:56Z

kalop, приветствую.
В адресной строке браузера некоторые символы положено заменять на их коды в 16-ричном виде (пробел = "%20").
После чтения буфера обмена нужно заменить пробелы:

clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
clipboard = Replace(clipboard, " ", "%20")

См. https://ru.wikipedia.org/wiki/URL#:~:te … 90encoding

Помогите со скриптом, скрипт поисковик

2022-09-02T07:39:25Z

Есть такой скрипт, копируешь текст, нажимаешь и тебя перебрасывает в поисковик с уже вбитым туда этим текстом, который в буфере обмена. Но проблема, в поисковик вставляется только одно первое слово из всей фразы. Чтоб была вся фраза, то текст изначально надо копировать слитный без пробелов. Что подправить в скрипте чтоб искал всю фразу из буфера с раздельными словами?
Dim objWshShell
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "https://yandex.ru/search/?text=" & clipboard & "&clid=1836588&lr=959", 1, False
Set objWshShell = Nothing
WScript.Quit 0