中国DOS联盟

今天偶尔发现的,不知道论坛里有没有过这样的贴子,拿出来分享一下...

@echo off

set msg=http://www.cn-dos.net

mshta vbscript:window.clipboarddata.setdata("Text","%msg%")(window.close)

不错哈~恩~

谢谢 楼主

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

读出呢?

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

好文，支持一下。

还可以使用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。

呵呵 看错了 我发的也是 vbscript