
CODE: [Copy to clipboard]如果搂主确需用bat来实现的话,可以在用echo把以上代码写到临时文件后,在批处理中用for+cscript //NOLOGO来获得内容到变量中,另外就是建议在vbs中用WScript.StdOut.Write来输出内容。Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
str = objIE.document.parentwindow.clipboardData.GetData("text")
WScript.Echo str
CODE: [Copy to clipboard]还是要输出临时文件,效率奇低。什么时候找一个能StdOut的COM就爽了@echo off
@echo WScript.StdOut.Write(new ActiveXObject('htmlfile').parentWindow.clipboardData.getData('text'))> tmp.js 2>nul
@for /f "delims=" %%a in ('cscript //Nologo tmp.js') do @set ClipboardText=%%a >nul 2>nul
@del tmp.js /f /q >nul 2>nul
@echo %ClipboardText%
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |