[решено] Скрипт для поиска в интернете текста который находится в буфере обмена [Версия для КПК]

Показать полную графическую версию : [решено] Скрипт для поиска в интернете текста который находится в буфере обмена

denis19

02-09-2022, 11:05

Есть такой скрипт, копируешь текст, нажимаешь и тебя перебрасывает в поисковик с уже вбитым туда этим текстом, который в буфере обмена. Но проблема, в поисковик вставляется только одно первое слово из всей фразы. Вся фраза будет только если скопированный текст изначально был слитный без пробелов.
Что подправить в скрипте чтоб искал всю фразу из буфера с раздельными словами?
Dim objWshShell
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
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

DJ Mogarych

02-09-2022, 17:56

Создаёте файл search.ps1 со следующим содержимым:

start "https://yandex.ru/search/?text=$(Get-Clipboard)"

Создаёте ярлык, в свойствах которого в поле "Объект" вводите
powershell -f "C:\путь\к\search.ps1"

Далее копируете в буфер, что вам нужно, и запускаете ярлык.

denis19

03-09-2022, 09:51

Я никогда powershell не пользовался, мало в этом понимаю. Но вроде получилось, и запускаю не ярлык, а созданный файл search.ps1 с этой командой внутри. Вроде нормально. Но вот маленькая проблемка, перед тем как перепрыгнуть в поисковик с текстом, то окошко командной строки очень долго висит, секунд 7-10. Можно ли исправить чтоб быстрее?

DJ Mogarych

03-09-2022, 10:30

Это зависит от быстродействия компьютера.
Попробуйте в ярлыке добавить параметр -WindowStyle hidden
А можно в свойствах ярлыка пункт "Окно" переключить на "Свернутое в значок".

denis19

03-09-2022, 10:46

А где именно в команде, как команда целиком будет выглядеть?

dmitryst

03-09-2022, 12:04

powershell -WindowStyle hidden -f "C:\путь\к\search.ps1"

denis19

03-09-2022, 12:33

Да, вот так нормально насчёт окна. Даже ещё нашёл, скрытые ещё можно делать скриптом, путь в него вставлять
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\Users\Admin\Desktop\search.ps1" & Chr(34), 0
Set WshShell = Nothing
Но вот перехожу в поисковик всё так же медленно, жду несколько секунд. Видать да, от быстродействия компа зависит.
Но спасибо, работает. :yes:

Serguei Kouzmine

03-09-2022, 19:34

хожу в поисковик всё так же медленно, жду несколько секунд - ну дак
windows автоматизация на основе Powershell вообще небыстрая