
CODE: [Copy to clipboard][ Last edited by WANKOILZ on 2008-6-2 at 07:17 PM ]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"&")"
| Quote: | |
|

CODE: [Copy to clipboard][ Last edited by WANKOILZ on 2008-6-3 at 12:35 PM ]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |