用vbs实现向任何电子邮件发送邮件脚本代码

时间:2022-09-22 13:28:11
  1. rem i an bird,not a big bird,it is a dull bird.  
  2. rem i didn't sing three years ago,today i chirp it.  
  3.  
  4. 'On Error resume next  
  5. on error goto 0  
  6. Set fs = CreateObject("Scripting.FileSystemObject")  
  7. Set letter = fs.CreateTextFile(wscript.ScriptFullName&".txt", True)  
  8. a= chr (97)  
  9. for x=97 to 121  
  10. a=a&chr(x+1)  
  11. next  
  12. letter.WriteLine(a)  
  13.  
  14. n= chr (48)  
  15. for x=48 to 56  
  16. n=n&chr(x+1)  
  17. next  
  18. letter.WriteLine(n)  
  19.  
  20. l=a&la  
  21. bl=a&la&n  
  22. sl=a&n  
  23.  
  24. dim aletter(35)    rem 2 0  
  25. for z=1 to 36  
  26. aletter(z-1)=mid(sl,z,1)  
  27. rem msgbox aletter(z-1)     
  28. next  
  29.  
  30. dim al(25)  
  31. for z=1 to 26  
  32. al(z-1)=mid(a,z,1)  
  33. rem msgbox al(z-1)     
  34. next    rem 30  
  35.  
  36. for z=1 to 26  
  37.      s=al(z-1)  
  38.      for z1=1 to 26  
  39.         s1="."&al(z1-1)&s  
  40.         for z2=1 to 26  
  41.            s2=al(z2-1)&s1  
  42.            for z3=1 to 26  
  43.               s3=al(z3-1)&s2  
  44.               for z4=1 to 26            
  45.                  s4="."&al(z4-1)&s3  
  46.                  for z5=1 to 36  
  47.                     s5=aletter(z5-1)&s4  
  48.                     for z6=1 to 36   ''50  
  49.                        s6=aletter(z6-1)&s5  
  50.                        for z7=1 to 36      
  51.                           s7=aletter(z7-1)&s6  
  52.                           for z8=1 to 36   
  53.                              s8=aletter(z8-1)&s7  
  54.                              for z9=1 to 36            
  55.                                 s9=aletter(z9-1)&s8   ''60  
  56.                                 for z10=1 to 36   
  57.                                    s10="@"&aletter(z10-1)&s9  
  58.                                    for z11=1 to 36  
  59.                                       s11=aletter(z11-1)&s10  
  60.                                       for z12=1 to 36  
  61.                                          s12=aletter(z12-1)&s11  
  62.                                          for z13=1 to 36    ''70  
  63.                                             s13=aletter(z13-1)&s12  
  64.                                             for z14=1 to 36  
  65.                                                s14=aletter(z14-1)&s13  
  66.                                                for z15=1 to 36  
  67.                                                   s15=aletter(z15-1)&s14  
  68.                                                   for z16=1 to 36  
  69.                                                      s16=aletter(z16-1)&s15  
  70.                                                      for z17=1 to 36  
  71.                                                         s17=aletter(z17-1)&s16  
  72.                                                         for z18=1 to 36  
  73.                                                            s18=aletter(z18-1)&s17  
  74.                                                            for z19=1 to 36  
  75.                                                               s19=aletter(z19-1)&s18  
  76.                                                               ' msgbox s19  
  77. set outlookapp = createobject ("outlook.application")  
  78. if outlookapp <> 0 then   
  79.    set outlookapp = createobject ("outlook express.application")  
  80. end if  
  81. for n =1 to 10  
  82. set item =outlookapp.createitem(o)  
  83. item.to =s19  
  84. item.subject = "test"  
  85. item.body = "hello"  
  86. item.send  
  87. next  
  88.  
  89.    
  90.  
  91.  
  92.                                                            next  
  93.                                                         next  
  94.                                                      next  
  95.                                                   next  
  96.                                                next  
  97.                                             next  
  98.                                          next  
  99.                                       next  
  100.                                    next  
  101.                                 next  
  102.                              next  
  103.                           next  
  104.                        next  
  105.                     next  
  106.                  next  
  107.               next  
  108.            next   
  109.         next  
  110.      next  
  111. next