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 "武林站長(zhǎng)站 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 "武林站長(zhǎng)站 www.jb51.net" msgbox "ok"
