Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру » Поиск по сайту, слово вбить в определённый раздел сайта

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

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


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

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

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

 

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


Сообщения: 81
Благодарности: 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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


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


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

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

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

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

Отправлено: 19:03, 19-09-2024 | #3



Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру » Поиск по сайту, слово вбить в определённый раздел сайта

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
поиск по сайту на PHP Vlad Drakula Вебмастеру 5 02-04-2008 11:30
поиск по сайту (статические страницы) mar Вебмастеру 28 17-11-2005 01:49
Как организовать поиск по сайту Vampire Вебмастеру 4 30-01-2004 01:52
Скрипт php - поиск по сайту tradeukraine Вебмастеру 10 19-07-2003 08:50
Поиск по сайту lehha Вебмастеру 10 25-12-2002 07:13


« Предыдущая тема | Следующая тема »


 
Переход