[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBScript脚本实现将字符串写入剪切板

VBS实现将字符串写入剪切板的实现代码,需要的朋友可以参考下。

函数代码:


  1. Sub CopyString(s)
  2. Set forms=WScript.CreateObject("forms.form.1")
  3. Set textbox=forms.Controls.Add("forms.textbox.1").Object
  4. With textbox
  5. .multiline=True
  6. .text=s
  7. .selstart=0
  8. .sellength=Len(.text)
  9. .copy
  10. End With
  11. End Sub
  12. '调用
  13. CopyString "批处理之家 www.bathome.net"
复制代码



完整测试代码


  1. Sub CopyString(s)
  2. Set forms=WScript.CreateObject("forms.form.1")
  3. Set textbox=forms.Controls.Add("forms.textbox.1").Object
  4. With textbox
  5. .multiline=True
  6. .text=s
  7. .selstart=0
  8. .sellength=Len(.text)
  9. .copy
  10. End With
  11. End Sub
  12. CopyString "批处理之家 www.bathome.net"
  13. msgbox "ok"
复制代码

回复 2# batman


很好很强大

TOP

返回列表