
CODE: [Copy to clipboard]@echo off
set msg=http://www.cn-dos.net
mshta vbscript:window.clipboarddata.setdata("Text","%msg%")(window.close)
| Quote: | |
|
CODE: [Copy to clipboard]@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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |