[BigBoo]

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

Спасибо, сработало на ура. А какие возможны ошибки?

Ещё нужно сказать, дополняя метод SendMessage, использование "mshta.exe" занимает некоторое время. Поэтому после этой команды в скрипте желательно поставить небольшую паузу, если данные буфера обмена требуется использовать незамедлительно.

[testot]

' test.vbs
' чтение из буфера обмена
Dim clipbrd
clipbrd = WScript.CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")

' запись в буфер обмена
Dim wsh
Dim dataclip
dataclip = "отправляемый текст в буфер обмена"
Set wsh = WScript.CreateObject("WScript.Shell")
wsh.Run "cmd.exe /C <nul set /p ""="&dataclip &""" | CLIP", False ' не понимаю что тут, но переноса строки не стало
' wsh.Run "cmd.exe /c echo " & dataclip & " | clip", False

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

[omegastripes]

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

Можно вызвать метод Run с аргументом <WaitOnReturn> = True для ожидания выполнения команды.
Код

... wsh.Run "cmd.exe /C <nul set /p ""="&dataclip &""" | CLIP", False ...»

изменить вот так:

Код:

wsh.Run "cmd.exe /C <nul set /p ""="&dataclip &""" | CLIP", 0, True

Код

Код: CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & StrTextToCB & "');close();""", 2 »

соответственно:

Код:

CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & StrTextToCB & "');close();""", 0, True

[pzh2393]

И ещё один вопрос, как скопировать в буфер текст с сохранением перевода строки? То есть читаю файл: Код: 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 »

Подскажите, пожалуйста, что надо изменить чтобы копировало в буфер содержимое любого отправленного на этот VBS файла, а не только Serial.txt как тут указано?

[Iska]

Код:

Option Explicit

Dim strSourceFile
Dim strContent


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strSourceFile) Then
			With .OpenTextFile(strSourceFile)
				strContent = Replace(.ReadAll(), "\", "\\")
				.Close
			End With
			
			WScript.CreateObject("WScript.Shell").Run """mshta.exe"" ""javascript:clipboardData.setData('text','" & strContent & "');close();""", 0, True
		Else
			WScript.Echo "Can't find source file [" & strSourceFile & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: wscript.exe """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0