剪贴板输出文本和图片

窄口牛

剪贴板输出文本

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, 下载次数: 24)

2018-6-3 10:30 上传

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

moran

谢谢大神分享，下载看看。

nttwqz

看来，只会一种批处理脚本的我已经落伍了...

2010feicool

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