Выделенный текст в текстовый редактор

DIM Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

'check if Notepad is running

Set locator = CreateObject("WbemScripting.SWbemLocator")

Set service = locator.ConnectServer()

Set props = service.ExecQuery("select name from Win32_Process where name = 'notepad.exe'")

num = props.Count

'if not, launch a new one

If num = 0 Then

Wsh.Run "log.txt", 1

End If

'focus window

Do Until Wsh.AppActivate("log.txt - Блокнот")

Loop

'paste info

Wsh.SendKeys "^{V}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

'quit

Set Wsh = nothing

WScript.Quit

DIM Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

'check if Notepad is running

Set locator = CreateObject("WbemScripting.SWbemLocator")

Set service = locator.ConnectServer()

Set props = service.ExecQuery("select name from Win32_Process where name = 'notepad.exe'")

num = props.Count

'if not, launch a new one

If num = 0 Then

Wsh.Run "log.txt", 1

End If

'focus window

Do Until Wsh.AppActivate("log.txt - Блокнот")

Loop

'paste info

Wsh.SendKeys "{enter}"

Wsh.SendKeys "^{V}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "~%{F4}~"

Wsh.SendKeys "{enter}"

'quit

Set Wsh = nothing

WScript.Quit

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

1. копировать линк
2. запуск скрипт 1
3. копировать текст
4. запуск скрипт 2

для лог-файла:
скрипт 1:
1. открыть log.txt
2. вставить текст

скрипт 2:
1. вставить текст
2. нажать комбинацию alt+f4 для закрытия
3. нажать ok для подтверждения
в этом скрипте также сделать ввод символов-разделителей для визуального разграничения текста.

для обычной отсылки:
скрипт 1:
1. проверить в списке процессов, не запущен ли данный редактор
2. просмотреть по заголовкам окон, нет ли окна с заданным заголовком.
2-а. если есть, то вставить текст
2-б. если нет, то создать новый документ в заданном редакторе.

скрипт 2:
1. проверить в списке процессов, не запущен ли данный редактор (?????? - а стоит ли)
2. (?????? - а стоит ли) просмотреть по заголовкам окон, нет ли окна с заданным заголовком, но оно должно быть, значит тут без вариантов:
3. вставить текст
4. добавить символы-разделители для визуального разделения текста (опционально).

вот по такому алгоритму можно попробовать сделать, я как со временем разберусь, попробую.

так как всё это пока в теории, то есть небольшая непонятка:
как будет исполняться алгоритм пункта меню? что если:
1. копируется сылка.
2. запускается скрипт 1
3. пока он запускается (на это нужно время, при использовании логирования в log.txt и уже большом начальном объёме этого файла, времени нужно будет сравнительно много) выполняется копирование текста
4. в это время уже запустится редактор, подойдёт время вставлять текст, скопированный по п.1, но так как пока запускался редактор в буфере обмена уже произошла подмена и текст ссылки заменился на выделенный текст, т.о. при работе скрипта 1 произойдёт вставка второго буфера обмена.

или здесь будет по-другому:
1. копирование ссылки
2. запуск скрипта 1.
3. ожидание полного выполнения скрипта 1.
4. копирование выделенного текста
5. запуск скрипта 2.

но будет ли опера ждать полного выполнения скрипта 1? сомневаюсь, чт она сможет распознать весь цикл его выполнения, от неё требуется только запустить этот скрипт 1.

надо на практике всё это разрешать. но задачка очень интересная, надо будет делать.