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

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

denis19

Пользователь

Сообщения: 79
Благодарности: 0

Всем привет. Для примера, есть поисковики для 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

Отправлено: 02:01, 05-09-2024

denis19

Пользователь

Сообщения: 79
Благодарности: 0

Профиль | Отправить PM | Цитировать

Ещё вначале не получалось поиск и для этого сайта, раздел форума, но вот сделал, но только для 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 из буфера обмена.

Отправлено: 18:18, 12-09-2024 | #2