1 Тема от kalop

  • kalop
  • Заблокирован
  • Неактивен

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

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

2 Ответ от andypetr (изменено: andypetr, 2022-09-02 12:49:06)

  • andypetr
  • Разработчик
  • Неактивен

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

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

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

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

3 Ответ от kalop (изменено: kalop, 2022-09-02 13:36:52)

  • kalop
  • Заблокирован
  • Неактивен

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

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

4 Ответ от andypetr

  • andypetr
  • Разработчик
  • Неактивен

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

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

5 Ответ от kalop (изменено: kalop, 2022-09-02 18:08:51)

  • kalop
  • Заблокирован
  • Неактивен

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

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

6 Ответ от teadrinker

  • teadrinker
  • Администратор
  • Неактивен

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

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

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

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

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

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

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

7 Ответ от teadrinker

  • teadrinker
  • Администратор
  • Неактивен

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

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

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

8 Ответ от kalop

  • kalop
  • Заблокирован
  • Неактивен

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

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