Подправить скрипт, поиск выделенного текста в интернете

@kopirss · Регистрация: 12.10.2021

Студворк — интернет-сервис помощи студентам

Он вроде рабочий, но ищет только одно слово, хотя выделял несколько слов. Может и больше слов, но только если они будут слитно. Ещё непонятная вторая вкладка появляется.

Поиск выделенного текста

Visual Basic
1
2
3
4
5
6
7
8
9
set oScrShell = WScript.CreateObject("WScript.Shell")
oScrShell.SendKeys "^C"
Dim clipbrd 
clipbrd = WScript.CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Dim iURL
Dim objShell
Set objShell = CreateObject("Shell.Application")
iURL = "https://yandex.ru/search/?text="+clipbrd
Call objShell.ShellExecute("C:\Program Files\Mozilla Firefox\firefox.exe", iURL, "", "", 1)

И вот рабочий аналог, только этот ищет текст из буфера обмена.

Visual Basic
1
2
3
4
5
6
7
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

Как можно подправить первый?
Заранее спасибо

FlasherX · 21.05.2024, 14:23

Я же показывал, как это правильно делается. Тут то же самое:

mshta "javascript(new ActiveXObject('Wscript.Shell').sendkeys('^c');new ActiveXObject('Shell.Application').open('http://yandex.ru/search/?text='+encodeURIComponent(clipboardData.getData('text')));close()"

@kopirss · 21.05.2024, 14:40 **[ТС]**

Сообщение от FlasherX

Я же показывал, как это правильно делается.

Но там javascript и там связано с ярлыком. А тут vbs. Как сделать как в тутошнем рабочем аналоге, где через буфер?

FlasherX · 21.05.2024, 15:26

Сообщение от kopirss

Но там javascript и там связано с ярлыком. А тут vbs.

Там тоже изначально запрошен vbs (в т. ч. в заголовке), на что я дал более верное решение из-за ограничений vbs, которых нет у javascript.

@kopirss · 21.05.2024, 16:58 **[ТС]**

Сообщение от FlasherX

на что я дал более верное решение из-за ограничений vbs, которых нет у javascript.

Значит именно этот никак не подправить?

Добавлено через 1 час 19 минут

Сообщение от FlasherX

более верное решение из-за ограничений vbs

Всё, доделал.

Dim objWshShell
set oScrShell = WScript.CreateObject("WScript.Shell")
oScrShell.SendKeys "^C"
clipboard = CreateObject("HTMLFile").parentWindow.cl ipboardData.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

FlasherX · 21.05.2024, 17:05

Сообщение от kopirss

Всё, доделал.

Это никуда не годится. Помимо %20 много чего может быть. Ну и зависимость от настроек зон интернета никуда не делась.
Чем mshta не устроил? Зачем обязетельно wscript?

@kopirss · 21.05.2024, 17:13 **[ТС]**

Сообщение от FlasherX

Помимо %20 много чего может быть

Я там oScrShell.SendKeys "^C" добавил во второй скрипт, который с буфером работает.

FlasherX · 21.05.2024, 17:41

Сообщение от kopirss

Я там

Я в курсе, про "там" и пишу.

@nekit270 · 25.05.2024, 18:43

kopirss, учитывая совет FlasherX про encodeURIComponent:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
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://yandex.ru/search/?text=" & oDoc.parentWindow.encodeURIComponent(clipboard) & "&clid=1836588&lr=959", 1, False
Set objWshShell = Nothing
WScript.Quit 0

@kopirss · 25.05.2024, 20:32 **[ТС]**

Сообщение от nekit270

учитывая совет FlasherX про encodeURIComponent:

Во, этот лучше моего. Есть коды для смайликов, мой их не вставляет в поисковик, там пусто. А этот вставил. Спасибо.

FlasherX · 25.05.2024, 22:25

Сообщение от nekit270

content=""IE=edge"">"

Подразумевается, что не заведётся на старой винде.
А так заведётся (в том числе, если отрублен буфер обмена в зонах):

Visual Basic
1
2
3
4
5
6
7
8
9
10
K = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
On Error Resume Next
With CreateObject("WScript.Shell")
   V = .RegRead(K): If V > 0 Or Err.Number <> 0 Then .RegWrite K, 0, "REG_DWORD"
   On Error Goto 0
   .SendKeys "^c"
   Clip = CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
   If Clip <> "" Then .Run "https://yandex.ru/search/?text=" & Escape(Clip)
   If V > 0 Then .RegWrite K, V, "REG_DWORD"
End With

@nekit270 · 25.05.2024, 22:59

Сообщение от FlasherX

Подразумевается, что не заведётся на старой винде.

поддержка старой винды и не требовалась вроде, но вот про Escape() не знал, спасибо

FlasherX · 26.05.2024, 00:30

nekit270, адаптация под разные версии всегда актуальна. Escape вы, по идее, должны знать из js, она там такая же.

@nekit270 · 26.05.2024, 12:27

Сообщение от FlasherX

Escape вы, по идее, должны знать из js, она там такая же

в JS я ее знаю, а про ее существование в VBS - нет

Сообщение от FlasherX

адаптация под разные версии всегда актуальна

на каких виндах не работает ie=edge?

FlasherX · 26.05.2024, 14:19

Сообщение от nekit270

на каких виндах не работает ie=edge?

Win 98-7. Дело не конкретно в строке с ie=edge, а в parentWindow.encodeURIComponent.

Новые блоги и статьи Все статьи Все блоги /
Сравнение GCC 14 и Clang 18 компиляторов C для HPC bytestream 08.06.2025 В высокопроизводительных вычислениях (HPC) выбор компилятора - это ход, способный радикально изменить производительность всей системы. Работая последние 15 лет с критическими HPC-системами, я видел. . .	Всё о конфигурации ASP.NET Core stackOverflow 08.06.2025 Старый добрый web. config, похоже, отправился на пенсию вместе с классическим ASP. NET. За годы работы с различными проектами я убедился, что хорошо организованная конфигурация – это половина успеха. . .	dev-c++5.11 Продолжаю движение. russiannick 08.06.2025 Казалось, день прошел впустую. Просмотрел кучу видео и только потом заметил заголовок - уроки си. Искусители сбивали новичка с пути с++. Так легко ошибиться когда вокруг столько яп содержащих в. . .	Квантовые алгоритмы и обработка строк в Q# EggHead 07.06.2025 Квантовые вычисления перевернули наше представление о том, как работать с данными, а Q# стал одним из ключевых языков для разработки квантовых алгоритмов. В традиционых системах мы оперируем битами —. . .	NUnit и C# UnmanagedCoder 07.06.2025 В . NET существует несколько фреймворков для тестирования: MSTest (встроенный в Visual Studio), xUnit. net (более новый фреймворк) и, собственно, NUnit. Каждый имеет свои преимущества, но NUnit. . .
с++ Что нового? russiannick 06.06.2025 Продолжаю обзор dev-cpp5. 11. Посмотрев на проекты, предоставленные нам для обучения, становится видно, что они разные по содержащимся файлам где: . dev обязательно присутствует . cpp/ . c один из них. . .	WebAssembly в Kubernetes Mr. Docker 06.06.2025 WebAssembly изначально разрабатывался как бинарный формат инструкций для виртуальной машины, обеспечивающий высокую производительность в браузерах. Но потенциал технологии оказался гораздо шире - она. . .	Как создать первый микросервис на C# с ASP.NET Core, step by step stackOverflow 06.06.2025 Если говорить простыми словами, микросервисная архитектура — это подход к разработке, при котором приложение строится как набор небольших, слабо связанных сервисов, каждый из которых отвечает за. . .	Рисование коллайдеров Box2D v2 на Three.js с помощью порта @box2d/core 8Observer8 06.06.2025 Используется порт Box2D v2 под названием @box2d/ core - пакет NPM. Загрузил документацию Box2D v2 на Netlify: https:/ / box2d-v2-docs. netlify. app/ Документацию Box2D v2 можно скачать с официального. . .	Как создать стек в Python AI_Generated 05.06.2025 Как архитектор с более чем десятилетним опытом работы с Python, я неоднократно убеждался, что знание низкоуровневых механизмов работы стеков дает конкурентное преимущество при решении сложных задач. . . .

FlasherX 6668 / 2829 / 1088 Регистрация: 06.06.2017 Сообщений: 9,599
	21.05.2024, 14:23
	Я же показывал, как это правильно делается. Тут то же самое: `mshta "javascript(new ActiveXObject('Wscript.Shell').sendkeys('^c');new ActiveXObject('Shell.Application').open('http://yandex.ru/search/?text='+encodeURIComponent(clipboardData.getData('text')));close()"` 0

FlasherX 6668 / 2829 / 1088 Регистрация: 06.06.2017 Сообщений: 9,599
	26.05.2024, 00:30
	nekit270, адаптация под разные версии всегда актуальна. Escape вы, по идее, должны знать из js, она там такая же. 0

Подправить скрипт, поиск выделенного текста в интернете

Решение