VBS實現將字符串寫入剪切板的實現代碼，需要的朋友可以參考下。
函數代碼:
代碼如下:
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"
完整測試代碼
代碼如下:
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"
公眾號
事業單位
當前位置：
公考類
招聘類
各類考試
