联盟域名: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