set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("zidian.txt")
do while file.atendofstream<>true
line=file.readline
ws.sendkeys"{enter}"
wscript.sleep 2000
ws.sendkeys"{enter}"
ws.sendkeys"^a"
loop