用vbs实现向任何电子邮件发送邮件
更新时间:2008年05月30日 19:37:39 作者:
向任何电子邮件发送邮件的vbs脚本文件代码
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=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
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
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=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
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
相关文章
视频转换大师WinMPG Video Convert 6.63
视频转换大师WinMPG Video Convert 6.63...2007-04-04
最新评论