用vbs实现将剪切板的unix格式的内容处理成pc格式的代码

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

1. set ws=createobject("wscript.shell") 
2. set fso=createobject("scripting.filesystemobject") 
3. Set objIE = CreateObject("InternetExplorer.Application") 
4. objIE.Navigate("about:blank") 
5. s = objIE.document.parentwindow.clipboardData.GetData("text") 
6. objie.quit 
7. set file=fso.createtextfile("tmp.txt") 
8. file.write s 
9. file.close 
10. ws.run "cmd /c more tmp.txt>test.txt",0,true 
11. fso.deletefile "tmp.txt" 
12. ws.run "notepad.exe test.txt"