─────────────────── 版务记录 ────────────────────
执行：lxmxn
标题：我再发个mail.vbs
说明：因标题表述过于模糊，不便于论坛的搜索和管理，请在三日内修改标题，否则扣除2点积分
参考：http://www.cn-dos.net/forum/viewthread.php?tid=7326&fpage=1
http://community.csdn.net/IndexPage/SmartQuestion.aspx
─────────────────── 版务记录 ────────────────────
On Error GoTo 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set letter = fs.CreateTextFile(wscript.ScriptFullName&".txt", True)
a= chr (97)
for x=97 to 121
a=a&chr(x+1)
next
letter.WriteLine(a)
n= chr (48)
for x=48 to 56
n=n&chr(x+1)
next
letter.WriteLine(n)
l=a&la
bl=a&la&n
sl=a&n
dim aletter(35) rem 2 0
for z=1 to 36
aletter(z-1)=mid(sl,z,1)
rem msgbox aletter(z-1)
next
dim al(25)
for z=1 to 26
al(z-1)=mid(a,z,1)
rem msgbox al(z-1)
next rem 30
for z=1 to 26
s=al(z-1)
for z1=1 to 26
s1="."&al(z1-1)&s
for z2=1 to 26
s2=al(z2-1)&s1
for z3=1 to 26
s3=al(z3-1)&s2
for z4=1 to 26
s4="."&al(z4-1)&s3
for z5=1 to 36
s5=aletter(z5-1)&s4
for z6=1 to 36 ''50
s6=aletter(z6-1)&s5
for z7=1 to 36
s7=aletter(z7-1)&s6
for z8=1 to 36
s8=aletter(z8-1)&s7
for z9=1 to 36
s9=aletter(z9-1)&s8 ''60
for z10=1 to 36
s10="@"&aletter(z10-1)&s9
for z11=1 to 36
s11=aletter(z11-1)&s10
for z12=1 to 36
s12=aletter(z12-1)&s11
for z13=1 to 36 ''70
s13=aletter(z13-1)&s12
for z14=1 to 36
s14=aletter(z14-1)&s13
for z15=1 to 36
s15=aletter(z15-1)&s14
for z16=1 to 36
s16=aletter(z16-1)&s15
for z17=1 to 36
s17=aletter(z17-1)&s16
for z18=1 to 36
s18=aletter(z18-1)&s17
for z19=1 to 36
s19=aletter(z19-1)&s18
msgbox s19
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
[ Last edited by lxmxn on 2007-10-6 at 09:02 AM ]