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

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

null@example.com (kalop) — Fri, 02 Sep 2022 16:06:46 +0000

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

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

null@example.com (teadrinker) — Fri, 02 Sep 2022 15:55:43 +0000

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

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

null@example.com (teadrinker) — Fri, 02 Sep 2022 13:38:09 +0000

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

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

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

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

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

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

null@example.com (kalop) — Fri, 02 Sep 2022 10:26:33 +0000

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

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

null@example.com (andypetr) — Fri, 02 Sep 2022 09:56:02 +0000

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: Помогите со скриптом, скрипт поисковик

null@example.com (kalop) — Fri, 02 Sep 2022 09:36:35 +0000

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

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

null@example.com (andypetr) — Fri, 02 Sep 2022 08:42:56 +0000

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

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

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

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

null@example.com (kalop) — Fri, 02 Sep 2022 07:39:25 +0000

Есть такой скрипт, копируешь текст, нажимаешь и тебя перебрасывает в поисковик с уже вбитым туда этим текстом, который в буфере обмена. Но проблема, в поисковик вставляется только одно первое слово из всей фразы. Чтоб была вся фраза, то текст изначально надо копировать слитный без пробелов. Что подправить в скрипте чтоб искал всю фразу из буфера с раздельными словами?
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