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.bathome.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.bathome.net"
- msgbox "ok"
复制代码
|