脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 脚本专栏 → vbs → 将字符串写入剪切板

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

 更新时间：2012年01月08日 23:50:34   作者：  
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"
您可能感兴趣的文章:

相关文章

最新评论