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