无忧启动论坛

标题: 剪贴板输出文本和图片 [打印本页]

---

作者: 窄口牛    时间: 2018-6-3 10:30
标题: 剪贴板输出文本和图片
剪贴板输出文本

1. set fso=createobject("scripting.filesystemobject") : name=1
   
2. Dim na
   
3. 'na=Inputbox("请输入拓展名:","拓展名","txt")
   
4. na="txt"
   
5. while fso.fileexists(name&"."&na)=true
   
6. name=name+1
   
7. wend
   
8. set o=fso.opentextfile(name&"."&na,2,true)
   
9. set hf=Createobject("htmlfile")
   
10. wind=hf.parentwindow.clipboarddata.getdata("text")
    
11. o.writeline wind : o.close

复制代码

剪贴板输出jpg图片
剪贴板输出图片.rar (1.73 KB, 下载次数: 26)

2018-6-3 10:30 上传

点击文件名下载附件
下载积分: 无忧币 -2

---

作者: moran    时间: 2018-6-3 11:22
谢谢大神分享，下载看看。

---

作者: nttwqz    时间: 2018-6-3 13:27
看来，只会一种批处理脚本的我已经落伍了...

---

作者: 2010feicool    时间: 2018-6-4 18:55


不错，把剪贴板输出加到右键后很方便，拷贝文本保存到任意位置快多了

---

欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/)

Powered by Discuz! X3.3