powerbat

补充
使用Word（好像必须是常规安装的word，绿色版、精简版没有注册此组件）

'设置剪切板的内容
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text = "www.bathome.net"
Word.Selection.Copy
Word.Quit
复制代码

'获取剪切板的内容
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.PasteAndFormat(22)
Word.Selection.WholeStory
str = Word.Selection.Text
Word.Quit
WScript.Echo str
复制代码

使用Microsoft Forms 2.0 Object Library（FM20.DLL），此组件好像也是office的一部分

'设置剪切板的内容
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = "www.bathome.net"
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy
复制代码

Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
If TextBox.CanPaste Then
    TextBox.Paste
    WScript.Echo TextBox.Text
End If
复制代码

powerbat

回复 14# rat


    还是会闪，就算用WScript.Shell的run隐藏运行也一样。