主頁 > 知識(shí)庫 > 用vbs實(shí)現(xiàn)向任何電子郵件發(fā)送郵件

用vbs實(shí)現(xiàn)向任何電子郵件發(fā)送郵件

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

標(biāo)簽：樂山河南長治紅河滄州新疆上海沈陽

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用vbs實(shí)現(xiàn)向任何電子郵件發(fā)送郵件》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

佳木斯湛栽影视文化发展公司

用vbs實(shí)現(xiàn)向任何電子郵件發(fā)送郵件

QQ咨詢

電話咨詢