主頁(yè) > 知識(shí)庫(kù) > VBS實(shí)現(xiàn)將字符串寫(xiě)入剪切板的實(shí)現(xiàn)代碼

VBS實(shí)現(xiàn)將字符串寫(xiě)入剪切板的實(shí)現(xiàn)代碼
熱門(mén)標(biāo)簽：百度地圖標(biāo)注怎么卸載 打電話(huà)的外呼系統(tǒng)貴不貴 前鋒辦理400電話(huà)申請(qǐng) 外呼營(yíng)銷(xiāo)下單系統(tǒng) 新密防封卡外呼系統(tǒng)違法嗎 加盟電銷(xiāo)機(jī)器人好的品牌 海外美發(fā)店地圖標(biāo)注 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 辦理膠州400電話(huà)財(cái)稅
函數(shù)代碼:
復(fù)制代碼 代碼如下:

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub

'調(diào)用
復(fù)制代碼 代碼如下:

CopyString "腳本之家 www.jb51.net"


完整測(cè)試代碼
復(fù)制代碼 代碼如下:

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
CopyString "腳本之家 www.jb51.net"
msgbox "ok"
您可能感興趣的文章:
  • VBS訪問(wèn)剪貼板的幾種方法小結(jié)

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

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBS實(shí)現(xiàn)將字符串寫(xiě)入剪切板的實(shí)現(xiàn)代碼》，本文關(guān)鍵詞  VBS,實(shí),現(xiàn)將,字符串,寫(xiě)入,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBS實(shí)現(xiàn)將字符串寫(xiě)入剪切板的實(shí)現(xiàn)代碼》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于VBS實(shí)現(xiàn)將字符串寫(xiě)入剪切板的實(shí)現(xiàn)代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章