欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

VBS實(shí)現(xiàn)將字符串寫入剪切板的實(shí)現(xiàn)代碼

 更新時(shí)間：2012年01月08日 23:50:34   作者：  
VBS實(shí)現(xiàn)將字符串寫入剪切板的實(shí)現(xiàn)代碼，需要的朋友可以參考下。
函數(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.dbjr.com.cn"


完整測(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.dbjr.com.cn"
msgbox "ok"
您可能感興趣的文章:

相關(guān)文章

最新評(píng)論