VBS操作剪切板 '設(shè)置剪切板的內(nèi)容 Dim Form, TextBox Set Form = CreateObject("Forms.Form.1") Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object TextBox.MultiLine = True TextBox.Text = "忘記了，喜歡一個(gè)人的感覺(jué)" TextBox.SelStart = 0 TextBox.SelLength = TextBox.TextLength TextBox.Copy '獲取剪切板的內(nèi)容 Dim Form, TextBox 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

方式一：

Sub SetClipboardText(Text)???'寫入信息到剪切板
????Set objIE = CreateObject("InternetExplorer.Application")
????objIE.Navigate("about:blank")
????objIE.Document.ParentWindow.ClipboardData.SetData "text", Text
????objIE.Quit
End Sub

Function GetClipboardText()???'剪切讀取板信息
????Set objIE = CreateObject("InternetExplorer.Application")
????objIE.Navigate("about:blank")
????GetClipboardText = objIE.Document.ParentWindow.ClipboardData.GetData("text")
????objIE.Quit
End Function

方式二：

Sub SetClipboardText(Text)???'寫入信息到剪切板
????Set wsShell = CreateObject("WScript.Shell")
????wsShell.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
End Sub

Function GetClipboardText()???'剪切讀取板信息
????Set objHTML=CreateObject("htmlfile") 'xmlfile、mhtmlfile也可以
????GetClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
End Function

注：以上方式二中的寫入到剪切板也可寫成：wsShell.Run "mshta?vbscript:ClipboardData.SetData(""text"","&Chr(34)& Text &Chr(34)& ")(close)",0,True???即VBS連著寫的兩個(gè)雙引號(hào)轉(zhuǎn)義為一個(gè)引號(hào)，這樣可減少使用Chr(34)來(lái)替代；

? posted on 2014-11-26 15:34 futrueface 閱讀(...) 評(píng)論(...) 編輯 收藏

轉(zhuǎn)載于:https://www.cnblogs.com/futrueface/p/4123407.html

總結(jié)

以上是生活随笔為你收集整理的VBS操作剪切板的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。