首页 / 编程脚本 / 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"