Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\新建文档.txt",2,true)
while true
str=ie.document.parentwindow.clipboarddata.getdata("text")
if str<>"" then
f.Write vbCrLf&str
ie.document.parentwindow.clipboarddata.setdata "text",""
End If
WScript.Sleep 500
wend
删除文件 del.vbs
dim fso,obj
set fso=createobject("scripting.filesystemobject")
fso.deletefile "c:\新建文档.txt"