自动复制文本里面的内容到剪切板，结合批处理，很实用，运行之后直接粘贴就可以

以下内容保存为VBS

dim ws,fso,objie

set ws=createobject("wscript.shell")

set fso=wscript.createobject("scripting.filesystemobject")

str=fso.opentextfile("底单.txt",1).readall

set objie=createobject("Internetexplorer.application")

objie.navigate("about:blank")

objie.visible=false

objie.document.parentwindow.clipboardData.SetData "text",str