VBS实现将字符串写入剪切板的实现代码
摘要：函数代码:复制代码代码如下:SubCopyString(s)Setforms=WScript.CreateObject("forms.for...
函数代码:
复制代码 代码如下:
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实现将字符串写入剪切板的实现代码】相关文章：
★ 用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
上一篇：
VBS创建正则表达式对象的两种方法