VBS实现将字符串写入剪切板的实现代码

2011年11月30日

函数代码:

 
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.laike.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.laike.net" 
msgbox "ok"