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

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