濮阳杆衣贸易有限公司

主頁 > 知識(shí)庫 > VBS訪問剪貼板的幾種方法小結(jié)

VBS訪問剪貼板的幾種方法小結(jié)

熱門標(biāo)簽:前鋒辦理400電話申請(qǐng) 辦理膠州400電話財(cái)稅 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 外呼營銷下單系統(tǒng) 加盟電銷機(jī)器人好的品牌 海外美發(fā)店地圖標(biāo)注 打電話的外呼系統(tǒng)貴不貴 百度地圖標(biāo)注怎么卸載 新密防封卡外呼系統(tǒng)違法嗎
復(fù)制代碼 代碼如下:

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate("about:blank")
Set clipboard = IE.document.parentWindow.clipboardData
'SetData設(shè)置剪切板的內(nèi)容
clipboard.SetData "text", "忘記了,喜歡一個(gè)人的感覺"
'GetData獲取剪切板的內(nèi)容
WScript.Echo clipboard.GetData("text")
IE.Quit

實(shí)踐證明,網(wǎng)上一搜一大把的代碼一般不是好代碼。SetData方法其實(shí)是和IE瀏覽器的設(shè)置有關(guān)的。

ie

IE8的默認(rèn)設(shè)置是Prompt,所以運(yùn)行上面那個(gè)腳本的時(shí)候會(huì)彈出一個(gè)對(duì)話框,如果這是成Disable,那么這個(gè)腳本就無法設(shè)置剪貼板內(nèi)容了(獲取不受影響)。

prompt

這種沒有保證的代碼還是少用一些的好,在Windows 7下可以用clip.exe來設(shè)置剪貼板的內(nèi)容,獲取的話還是用IE就行了。

Dim WshShell
set WshShell = CreateObject("wscript.Shell")
str = "忘記了,喜歡一個(gè)人的感覺"
WshShell.Run "cmd.exe /c echo "  str  " | clip",0,False

用Word.Application也可以設(shè)置和獲取剪貼板內(nèi)容

'設(shè)置剪切板的內(nèi)容
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text = "忘記了,喜歡一個(gè)人的感覺"
Word.Selection.Copy
Word.Quit False
'獲取剪切板的內(nèi)容
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。

'設(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è)人的感覺"
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

參考鏈接:

  1. [UMU WSH 教程](30) 訪問剪貼板
  2. [UMU WSH 教程](32) 訪問剪貼板(2)

原文:http://demon.tw/programming/vbs-clipboard.html
您可能感興趣的文章:
  • JS復(fù)制到剪貼板示例代碼
  • JS/FLASH實(shí)現(xiàn)復(fù)制代碼到剪貼板(兼容所有瀏覽器)
  • ASP.NET jQuery 實(shí)例4(復(fù)制TextBox的文本到本地剪貼板上)
  • VBScript 剪貼板抓取URL并在瀏覽器中打開
  • [js]javascript與剪貼板交互
  • 用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板
  • 用vbs 實(shí)現(xiàn)從剪貼板中抓取一個(gè) URL 然后在瀏覽器中打開該 Web 站點(diǎn)
  • 一段多瀏覽器的"復(fù)制到剪貼板"javascript代碼
  • vb.net借助剪貼板將圖片導(dǎo)入excel內(nèi)

標(biāo)簽:阜陽 河南 伊春 咸陽 牡丹江 梅州 武威 四平

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS訪問剪貼板的幾種方法小結(jié)》,本文關(guān)鍵詞  VBS,訪問,剪貼板,的,幾種,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBS訪問剪貼板的幾種方法小結(jié)》相關(guān)的同類信息!
  • 本頁收集關(guān)于VBS訪問剪貼板的幾種方法小結(jié)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    乌拉特前旗| 北流市| 旬邑县| 瑞昌市| 合肥市| 阿拉善盟| 武清区| 西畴县| 湘乡市| 务川| 凌云县| 乐东| 孝感市| 凤翔县| 霍州市| 婺源县| 桐梓县| 安达市| 屏南县| 孟州市| 宝鸡市| 东丰县| 柘城县| 贺州市| 武清区| 龙江县| 龙泉市| 菏泽市| 芦溪县| 海口市| 湖北省| 彭泽县| 额尔古纳市| 营口市| 彝良县| 泌阳县| 天长市| 莎车县| 茌平县| 荣昌县| 静宁县|