将字符串写入剪切板 VBS实现将字符串写入剪切板的实现代码
人气:0想了解VBS实现将字符串写入剪切板的实现代码的相关内容吗,在本文为您仔细讲解将字符串写入剪切板的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:字符串,剪切板,下面大家一起来学习吧。
函数代码: 复制代码 代码如下:
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.qb5200.com"
完整测试代码
复制代码 代码如下:
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.qb5200.com"
msgbox "ok"
加载全部内容