Цитата 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
Но это чревато ошибками, как сразу можно заметить.
