![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Скрипт для поиска в интернете текста который находится в буфере обмена |
|
VBS/WSH/JS - [решено] Скрипт для поиска в интернете текста который находится в буфере обмена
|
Пользователь Сообщения: 81 |
Есть такой скрипт, копируешь текст, нажимаешь и тебя перебрасывает в поисковик с уже вбитым туда этим текстом, который в буфере обмена. Но проблема, в поисковик вставляется только одно первое слово из всей фразы. Вся фраза будет только если скопированный текст изначально был слитный без пробелов.
Что подправить в скрипте чтоб искал всю фразу из буфера с раздельными словами? 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 |
|
Отправлено: 11:05, 02-09-2022 |
fascinating rhythm Сообщения: 6705
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 17:56, 02-09-2022 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 81
|
Профиль | Отправить PM | Цитировать Я никогда powershell не пользовался, мало в этом понимаю. Но вроде получилось, и запускаю не ярлык, а созданный файл search.ps1 с этой командой внутри. Вроде нормально. Но вот маленькая проблемка, перед тем как перепрыгнуть в поисковик с текстом, то окошко командной строки очень долго висит, секунд 7-10. Можно ли исправить чтоб быстрее?
|
Отправлено: 09:51, 03-09-2022 | #3 |
fascinating rhythm Сообщения: 6705
|
Профиль | Отправить PM | Цитировать |
------- Последний раз редактировалось DJ Mogarych, 03-09-2022 в 10:36. Отправлено: 10:30, 03-09-2022 | #4 |
Пользователь Сообщения: 81
|
Профиль | Отправить PM | Цитировать А где именно в команде, как команда целиком будет выглядеть?
|
|
Отправлено: 10:46, 03-09-2022 | #5 |
Ветеран Сообщения: 7317
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 12:04, 03-09-2022 | #6 |
Пользователь Сообщения: 81
|
Профиль | Отправить PM | Цитировать Да, вот так нормально насчёт окна. Даже ещё нашёл, скрытые ещё можно делать скриптом, путь в него вставлять
Set WshShell = CreateObject("WScript.Shell") WshShell.Run chr(34) & "C:\Users\Admin\Desktop\search.ps1" & Chr(34), 0 Set WshShell = Nothing Но вот перехожу в поисковик всё так же медленно, жду несколько секунд. Видать да, от быстродействия компа зависит. Но спасибо, работает. ![]() |
Отправлено: 12:33, 03-09-2022 | #7 |
Старожил Сообщения: 250
|
Профиль | Отправить PM | Цитировать хожу в поисковик всё так же медленно, жду несколько секунд - ну дак
windows автоматизация на основе Powershell вообще небыстрая |
Отправлено: 19:34, 03-09-2022 | #8 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2016 - [решено] Невозможно освободить место в буфере обмена. Excel 2016 | Lyrak | Microsoft Office (Word, Excel, Outlook и т.д.) | 4 | 02-08-2019 08:49 | |
TextReplace - Программа для поиска и замены текста в любых файлах | AZJIO | AutoIt | 6 | 02-02-2018 20:56 | |
Любой язык - воспроизвести ссылку на медиафайл в буфере обмена | neebet01 | Скриптовые языки администрирования Windows | 1 | 12-01-2017 10:04 | |
Разное - [решено] Можно ли посмотреть что находится в буфере обмена? | 4o_kavo | Microsoft Windows 10 | 6 | 11-02-2016 01:58 | |
2007 - [решено] (Access 2007) данные в буфере обмена повреждены | support23 | Microsoft Office (Word, Excel, Outlook и т.д.) | 1 | 21-08-2013 15:36 |
|