使用VbScript将特定值复制到剪贴板

' 创建一个MSForms.DataObject对象
Set objData = CreateObject("MSForms.DataObject")

' 要复制到剪贴板的文本
strText = "Hello, World!"

' 将文本设置到DataObject
objData.SetText strText

' 将DataObject的内容复制到剪贴板
objData.PutInClipboard

' 清理对象
Set objData = Nothing

' 提示用户
MsgBox "Text copied to clipboard: " & strText

' 创建一个Shell.Application对象
Set objShell = CreateObject("Shell.Application")

' 要复制到剪贴板的文本
strText = "Hello, World!"

' 创建一个临时文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
strTempFile = objFSO.GetSpecialFolder(2).Path & "\temp.txt"
Set objFile = objFSO.CreateTextFile(strTempFile, True)
objFile.Write strText
objFile.Close

' 将临时文件的内容复制到剪贴板
objShell.Namespace(0).ParseName(strTempFile).InvokeVerb "copy"

' 删除临时文件
objFSO.DeleteFile strTempFile

' 清理对象
Set objFile = Nothing
Set objFSO = Nothing
Set objShell = Nothing

' 提示用户
MsgBox "Text copied to clipboard: " & strText

' 要复制到剪贴板的文本
strText = "Hello, World!"

' 创建一个临时文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
strTempFile = objFSO.GetSpecialFolder(2).Path & "\temp.txt"
Set objFile = objFSO.CreateTextFile(strTempFile, True)
objFile.Write strText
objFile.Close

' 使用clip命令将临时文件的内容复制到剪贴板
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c type """ & strTempFile & """ | clip", 0, True

' 删除临时文件
objFSO.DeleteFile strTempFile

' 清理对象
Set objFile = Nothing
Set objFSO = Nothing
Set objShell = Nothing

' 提示用户
MsgBox "Text copied to clipboard: " & strText