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

时间：2022-10-10 07:33:11

处理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" 
标签：

相关文章