復制代碼 代碼如下:
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate("about:blank")
Set clipboard = IE.document.parentWindow.clipboardData
'SetData設置剪切板的內容
clipboard.SetData "text", "忘記了，喜歡一個人的感覺"
'GetData獲取剪切板的內容
WScript.Echo clipboard.GetData("text")
IE.Quit
實踐證明，網(wǎng)上一搜一大把的代碼一般不是好代碼。SetData方法其實是和IE瀏覽器的設置有關的。
IE8的默認設置是Prompt，所以運行上面那個腳本的時候會彈出一個對話框，如果這是成Disable，那么這個腳本就無法設置剪貼板內容了（獲取不受影響）。
這種沒有保證的代碼還是少用一些的好，在Windows 7下可以用clip.exe來設置剪貼板的內容，獲取的話還是用IE就行了。
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
str = "忘記了，喜歡一個人的感覺"
WshShell.Run "cmd.exe /c echo " str " | clip",0,False
用Word.Application也可以設置和獲取剪貼板內容
'設置剪切板的內容
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text = "忘記了，喜歡一個人的感覺"
Word.Selection.Copy
Word.Quit False
'獲取剪切板的內容
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.PasteAndFormat(wdFormatPlainText)
Word.Selection.WholeStory
str = Word.Selection.Text
Word.Quit False
WScript.Echo str
最神奇的是用Microsoft Forms 2.0 Object Library。
'設置剪切板的內容
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = "忘記了，喜歡一個人的感覺"
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy
'獲取剪切板的內容
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
參考鏈接：
- [UMU WSH 教程](30) 訪問剪貼板
- [UMU WSH 教程](32) 訪問剪貼板（2）
原文：http://demon.tw/programming/vbs-clipboard.html
您可能感興趣的文章:- JS復制到剪貼板示例代碼
- JS/FLASH實現(xiàn)復制代碼到剪貼板(兼容所有瀏覽器)
- ASP.NET jQuery 實例4(復制TextBox的文本到本地剪貼板上)
- VBScript 剪貼板抓取URL并在瀏覽器中打開
- [js]javascript與剪貼板交互
- 用vbscript實現(xiàn)將腳本的輸出復制到剪貼板
- 用vbs 實現(xiàn)從剪貼板中抓取一個 URL 然后在瀏覽器中打開該 Web 站點
- 一段多瀏覽器的"復制到剪貼板"javascript代碼
- vb.net借助剪貼板將圖片導入excel內
