Automation中經(jīng)常需要程序和剪切板交互,還在使用鍵盤一個一個input?內(nèi)容多的話,豈不是太慢了,使用剪切板的黏貼復制,so fast,so easy……具體需要調(diào)用Microsoft Forms 2.0 Object Library的對象和方法,用它輕松實現(xiàn)設置和獲取剪切板的內(nèi)容,下面寫了2個設置和獲取剪切板內(nèi)容的函數(shù),需要的時候直接調(diào)用~
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務,包含不限于成都網(wǎng)站建設、成都做網(wǎng)站、彌勒網(wǎng)絡推廣、微信平臺小程序開發(fā)、彌勒網(wǎng)絡營銷、彌勒企業(yè)策劃、彌勒品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;創(chuàng)新互聯(lián)公司為所有大學生創(chuàng)業(yè)者提供彌勒建站搭建服務,24小時服務熱線:18982081108,官方網(wǎng)址:bm7419.com
'operating clipboard Function setClipboard(str) 'setting clipboard's content Dim Form, TextBox Set Form = CreateObject("Forms.Form.1") Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object TextBox.MultiLine = True TextBox.Text = str TextBox.SelStart = 0 TextBox.SelLength = TextBox.TextLength TextBox.Copy End Function Function getClipboard 'getting clipboard's content 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 getClipboard = TextBox.Text End If End Function
更多方法參考鏈接:http://demon.tw/programming/vbs-clipboard.html
當前文章:VBScript設置和獲取剪切板內(nèi)容的方法
文章URL:http://bm7419.com/article48/goscep.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供外貿(mào)建站、靜態(tài)網(wǎng)站、網(wǎng)站制作、Google、定制網(wǎng)站、網(wǎng)站導航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)