函數(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"
完整測試代碼
復(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"
