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"

您可能感兴趣的文章:

VBS访问剪贴板的几种方法小结