标题: 批处理中将某个变量写入剪贴板
[打印本页]
作者: 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