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"