VBS/WSH/JS

Petya V4sechkin · Конфигурация компьютера

Работа с буфером обмена (clipboard) в скриптовых языках JScript или VBScript

BigBoo · Отправлено: **11:16, 08-09-2011** | #3

Petya V4sechkin, очень неприятно, что минус этого способа - "Internet Explorer" выдает запрос на разрешение доступа страницы к буферу, что сводит на нет процесс автоматизации действий при использовании скрипта. Есть ли ещё варианты?

SendMessage · Отправлено: **16:14, 08-09-2011** | #4

Получение текста из буфера:

Код:

strText = CreateObject("HTMLFile").parentWindow.clipboardData.GetData("text")

Аналогичным методом копировать в буфер не получилось у меня. Или тяму не хватило, или не поддерживается.
А так получилось:

Код:

strTextToCB = "Текст, который хотелось вставить в буфер обмена"
CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & StrTextToCB & "');close();""", 2

Iska · Отправлено: **18:19, 08-09-2011** | #5

Цитата SendMessage:

Аналогичным методом копировать в буфер не получилось у меня. Или тяму не хватило, или не поддерживается. »

Ранее поддерживался. С какого-то момента такую возможность прикрыли. Равно и «HTMLFile…GetData()» тоже может не срабатывать.

BigBoo · Отправлено: **12:58, 09-09-2011** | #6

И в довершении темы, как прочитать текст из буфера?

Iska · Отправлено: **13:34, 09-09-2011** | #7

BigBoo, см. выше:

Цитата Petya V4sechkin:

Работа с буфером обмена (clipboard) в скриптовых языках JScript или VBScript »

BigBoo · Отправлено: **16:15, 09-09-2011** | #8

Цитата Iska:

см. выше: »

Уже смотрел, вся проблема в раздражающий надписи Internet Explorer-а. Как прочитать текст из буфера, используя mshta.exe или другим способом?

BigBoo · Отправлено: **16:30, 09-09-2011** | #9

И ещё один вопрос, как скопировать в буфер текст с сохранением перевода строки? То есть читаю файл:

Код:

Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")

'Читаем файл построчно
LineAll = ""
Set tsLog = fso.OpenTextFile("Serial.txt", 1)  
Do While Not tsLog.AtEndOfStream   
LineInFile = tsLog.ReadLine   
LineAll = LineAll & LineInFile & vbCRLF  
Loop

'LineAll - текст с сохранением перевода строки

'Копирование текста в буфер обмена
WSHShell.Run "mshta.exe ""javascript:clipboardData.setData('text','" & LineAll & "');close();""", 2

В результате в буфере текст в одну строчку.

SendMessage · Отправлено: **16:53, 09-09-2011** | #10

Цитата BigBoo:

Как прочитать текст из буфера, используя mshta.exe »

Код:

strCmd = "mshta.exe ""javascript:var s=clipboardData.getData('text');if(s)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(s);close();"""

strText = CreateObject("WScript.Shell").Exec(strCmd).StdOut.ReadAll

Цитата BigBoo:

как скопировать в буфер текст с сохранением перевода строки? »

Код:

strTextToCB = "Текст, который хотелось вставить в буфер обмена" & vbCrLf & "с переводом строк."
strTextToCB = Replace(strTextToCB, vbCrLf, "\n")
CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & StrTextToCB & "');close();""", 2

Но это чревато ошибками, как сразу можно заметить.