Board logo

标题: 批处理中将某个变量写入剪贴板 [打印本页]

作者: jmz573515     时间: 2008-8-14 23:50    标题: 批处理中将某个变量写入剪贴板
今天偶尔发现的,不知道论坛里有没有过这样的贴子,拿出来分享一下...

@echo off
set msg=http://www.cn-dos.net
mshta vbscript:window.clipboarddata.setdata("Text","%msg%")(window.close)

作者: wgx1688     时间: 2008-8-15 18:42
不错哈~恩~

作者: YoDe     时间: 2008-12-15 01:52
谢谢 楼主

作者: yishanju     时间: 2008-12-15 09:22
windos 2003 下有clip,可以实现这样的功能

作者: wangff     时间: 2008-12-15 11:17
读出呢?

作者: s11ss     时间: 2008-12-15 11:55
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

作者: exzzz     时间: 2008-12-15 16:33
好文,支持一下。

作者: xswdong     时间: 2008-12-15 16:48
还可以使用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。

作者: xswdong     时间: 2008-12-15 16:50
呵呵 看错了 我发的也是 vbscript