无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 3281|回复: 3

剪贴板输出文本和图片

[复制链接]
发表于 2018-6-3 10:30:51 | 显示全部楼层 |阅读模式
剪贴板输出文本
  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
复制代码

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

评分

参与人数 4无忧币 +20 收起 理由
dos时代菜鸟 + 5 赞一个!
2010feicool + 5 复制文本方便很多
+ 5 我对你桌面那个 家庭版打开gpedit有兴趣
不知 + 5 赞一个!

查看全部评分

发表于 2018-6-3 11:22:35 | 显示全部楼层
谢谢大神分享,下载看看。
回复

使用道具 举报

发表于 2018-6-3 13:27:16 来自手机 | 显示全部楼层
看来,只会一种批处理脚本的我已经落伍了...
回复

使用道具 举报

发表于 2018-6-4 18:55:41 来自手机 | 显示全部楼层
本帖最后由 2010feicool 于 2018-6-4 19:43 编辑

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

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 22:13

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表