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

setws=createobject("wscript.shell")

setfso=createobject("scripting.filesystemobject")

SetobjIE=CreateObject("InternetExplorer.Application")

objIE.Navigate("about:blank")

s=objIE.document.parentwindow.clipboardData.GetData("text")

objie.quit

setfile=fso.createtextfile("tmp.txt")

file.writes

file.close

ws.run"cmd/cmoretmp.txt>test.txt",0,true

fso.deletefile"tmp.txt"

ws.run"notepad.exetest.txt"