Using the VBS implementation to process the contents of the UNIX format of the Clipboard into a PC-formatted code _vbs

Processing QQ copy of the text ' copy QQ text to notepad something may have black box ... (Please copy and run this script)

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"