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