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

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

вопрос снят. вот полный текст скрипта:
Code:


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

работает отлично, при клике по меню (Item, "послать в лог"=Copy & Execute program, "F:\Program Files\Opera 7.60 Beta\exportlog.vbs" в разделе ини-файла меню [Hotclick Popup Menu]) запускается файл log.txt, в него вставляется текст, записываются символы разделителя, файл безо всякого запроса закрывается с сохранением. файл скрипта лежит в папке оперы под именем "exportlog.vbs". некоторое время уходит на запись символов разделителя, весь разделитель выглядит примерно так:
__________________________
/\/\/\/\/\/\/\/\/\/\/\/\/\
__________________________
скорость ввода этих всех строк похоже зависит от настроек клавиатуры (скорость повтора и задержка перед повтором) хотя насчёт этого я не уверен. но на ввод уходит примерно секунда, так что можно и подождать, а если ждать не хочется, то можно убрать эти строки:
Code:


Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

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

Wsh.SendKeys "{enter}"

Wsh.SendKeys "{enter}"

Wsh.SendKeys "__________________________________________________________"

как уже было сказано выше, файл лога сохраняется под именем log.txt в папке винды, так не надо писать к нему путь, только имя файла. можно бросить этот файл в другое место, но путь надо будет написать. а можно оставить в папке винды, а в любое удобное место бросить ярлык на этот файл.