处理QQ里复制的文本’复制QQ里的文本到记事本有事可能会有黑框框…(请复制后运行本脚本）

set ws=createobject(“wscript.shell”)

set fso=createobject(“scripting.filesystemobject”)

Set objIE = CreateObject(“InternetExplorer.application”)

objIE.Navigate(“about:blank”)

s = objIE.document.parentwindow.clipboardData.GetData(“text”)

objie.quit

set file=fso.createtextfile(“tmp.txt”)

file.write s

file.close

ws.run “cmd /c more tmp.txt>test.txt”,0,true

fso.deletefile “tmp.txt”

ws.run “notepad.exe test.txt”

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。