Поиск по сайту, слово вбить в определённый раздел сайта

[denis19]

Всем привет. Для примера, есть поисковики для AkelPad, ищет выделенный текст
-"Искать ВК" Call("Scripts::Main", 1, "InternetRequest.js", `"https://vk.com/search/video?q=\s"`)

И поисковик через скрипт vbs, ищет из буфера обмена. Этот можно хоть где делать кнопку в меню через реестр

Set oDoc = CreateObject("HTMLFile")
oDoc.write "<meta http-equiv=""X-UA-Compatible"" content=""IE=edge"">"
Dim objWshShell
set oScrShell = WScript.CreateObject("WScript.Shell")
oScrShell.SendKeys "^C"
clipboard = oDoc.parentWindow.clipboardData.getData("text")
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "https://vk.com/search/video?q=" & oDoc.parentWindow.encodeURIComponent(clipboard) & "&clid=1836588&lr=959", 1, False
Set objWshShell = Nothing
WScript.Quit 0

А проблема, не могу похоже сделать, но чтоб слово вбивалось не в главный поисковик сайта, а в определённый раздел, там помощник поэта, получается только в другой там поисковик.
Вот этот не нужный.
-"Искать в stihi.ru" Call("Scripts::Main", 1, "InternetRequest.js", `"https://stihi.ru/cgi-bin/search.pl?searchid=2309642&text=\s"`)

Как сделать чтоб вбивалось в помощник поэта? https://stihi.ru/cgi-bin/assist.pl

[denis19]

Ещё вначале не получалось поиск и для этого сайта, раздел форума, но вот сделал, но только для AkelPad.
-"Искать в Oszone.net" Call("Scripts::Main", 1, "InternetRequest.js", `"http://forum.oszone.net/searchresults.php?q=\s&cx=018124589797586243949:nz2qphbxnpq&cof=FORID:9&ie=UTF-8&sa=\s"`)
А вот команду для скрипта никак не могу, запускать с Desktop из буфера обмена.

[denis19]

Вроде сделал и для скрипта, поисковик тут по форуму. Но осталась проблемка, он не признаёт символы % =, из за них поле поиска будет пустым. Можно ли это исправить?

Set oDoc = CreateObject("HTMLFile")
oDoc.write "<meta http-equiv=""X-UA-Compatible"" content=""IE=edge"">"
Dim objWshShell
set oScrShell = WScript.CreateObject("WScript.Shell")
clipboard = oDoc.parentWindow.clipboardData.getData("text")
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "http://forum.oszone.net/searchresults.php?cx=018124589797586243949%3Anz2qphbxnpq&cof=FORID%3A9&ie=UTF-8&q=" & oDoc.parentWindow.encodeURIComponent(clipboard) & "&lr=959", 1, False
Set objWshShell = Nothing
WScript.Quit 0

[AglaeHes]

Вроде сделал и для скрипта, поисковик тут по форуму. Но осталась проблемка, он не признаёт символы % =, из за них поле поиска будет пустым. Можно ли это исправить? Пока отвлекусь и проведу время на https://mostbet.net.ua/ за моей любимой игрой.
Set oDoc = CreateObject("HTMLFile")
oDoc.write "<meta http-equiv=""X-UA-Compatible"" content=""IE=edge"">"
Dim objWshShell
set oScrShell = WScript.CreateObject("WScript.Shell")
clipboard = oDoc.parentWindow.clipboardData.getData("text")
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "http://forum.oszone.net/searchresults.php?cx=018124589797586243949%3Anz2qphbxnpq&cof=FORID%3A9&ie=UTF-8&q=" & oDoc.parentWindow.encodeURIComponent(clipboard) & "&lr=959", 1, False
Set objWshShell = Nothing
WScript.Quit 0 »
Привет, если ты еще не решил проблему, то я могу поделиться своим опытом. Мы в прошлом году на работе делали автоматизацию внутреннего поиска по шаблонам текстов и тоже сталкивались с тем, что некоторые символы типа процентов и знаков равенства ломают запросы. Тогда помогло правильное использование encodeURIComponent без двойного кодирования. В твоем случае для помощника поэта нужно отправлять запрос не через параметр text, а через w. То есть ссылка будет выглядеть как https://DOMEN/cgi-bin/assist.pl?w= и дальше уже закодированный текст из буфера. В VBS это работает, если использовать HTMLFile и получать буфер через oDoc.parentWindow.clipboardData.getData("text"), а потом один раз через oDoc.parentWindow.encodeURIComponent. Тогда даже % и = нормально вставляются, и поле поиска не пустое. Я пробовал это решение в тестовом проекте и оно стабильно отрабатывает.