联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
on error resume next
set fso=createobject("scripting.filesystemobject")
set myfile=fso.createtextfile("chr.txt",true)
set oshell=createobject("wscript.shell")
oshell.run("chr.txt")
wscript.sleep 200
oshell.oppactivate "chr.txt"
oshell.sendkeys "%("&"10000"&")"
oshell.sendkeys "+("&"10000"&")"因为不支持……小键盘的输入……
set fso=createobject("scripting.filesystemobject")
set myfile=fso.createtextfile("chr.txt",true)
for i=10000 to 40000
myfile.write(i&space(1)&chr(i)&space(1))
next