中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 批处理中将某个变量写入剪贴板
作者:
标题: 批处理中将某个变量写入剪贴板 上一主题 | 下一主题
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『楼 主』:  批处理中将某个变量写入剪贴板

今天偶尔发现的,不知道论坛里有没有过这样的贴子,拿出来分享一下...
@echo off
set msg=http://www.cn-dos.net
mshta vbscript:window.clipboarddata.setdata("Text","%msg%")(window.close)


   此帖被 +8 点积分            点击查看详情   
评分人:【 ThinKing 分数: +4  时间:2008-8-15 18:00
评分人:【 wangff 分数: +1  时间:2008-12-15 11:18
评分人:【 okzhsh01 分数: +2  时间:2008-12-15 19:33
评分人:【 btpg 分数: +1  时间:2010-6-15 01:00


2008-8-14 23:50
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
wgx1688
初级用户





积分 60
发帖 34
注册 2007-4-24
状态 离线
『第 2 楼』:  

不错哈~恩~

2008-8-15 18:42
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
YoDe
中级用户




积分 224
发帖 102
注册 2007-11-9
状态 离线
『第 3 楼』:  

谢谢 楼主

2008-12-15 01:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 4 楼』:  

windos 2003 下有clip,可以实现这样的功能




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2008-12-15 09:22
查看资料  发短消息 网志   编辑帖子  回复  引用回复
wangff
初级用户





积分 134
发帖 54
注册 2008-11-19
状态 离线
『第 5 楼』:  

读出呢?

2008-12-15 11:17
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『第 6 楼』:  



  Quote:
Originally posted by wangff at 2008-12-15 11:17 AM:
读出呢?


@echo off & setlocal
call :GetClpText msg
echo %msg%
pause
goto :eof

:GetClpText
mshta vbscript:Execute("CreateObject(""Scripting.FileSystemObject"").CreateTextFile(""t"").Write ClipBoardData.GetData(""Text""):Close")
set /p %1=<t
del t
goto :eof


2008-12-15 11:55
查看资料  发短消息 网志   编辑帖子  回复  引用回复
exzzz
初级用户

游手好闲 + 无所事事 ..



积分 194
发帖 167
注册 2007-4-30
状态 离线
『第 7 楼』:  

好文,支持一下。

2008-12-15 16:33
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xswdong
中级用户





积分 216
发帖 129
注册 2007-2-14
状态 离线
『第 8 楼』:  

还可以使用js 道理是一样的
@echo oFF
color 4a
title 心随我动专用之--读英语
mode con cols=60 lines=15
:loop

set /p Contents=请输入或者粘贴你要读的单词或短语后回车(读两遍,再回车后复读):
echo 开始读音==^>^>^>
echo.
echo %Contents%
mshta vbscript:createobject("sapi.spvoice").speak(" %Contents% ")(window.close)
mshta vbscript:createobject("sapi.spvoice").speak(" %Contents% ")(window.close)
cls
goto loop
不过为了安全 我删除了mshta。

2008-12-15 16:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xswdong
中级用户





积分 216
发帖 129
注册 2007-2-14
状态 离线
『第 9 楼』:  

呵呵 看错了 我发的也是 vbscript

2008-12-15 16:50
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: