用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

(0)

相关推荐

  • 用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&a

  • 基于JavaMail的Java实现简单邮件发送功能

    电子邮件的应用非常广泛,例如在某网站注册了一个账户,自动发送一封欢迎邮件,通过邮件找回密码,自动批量发送活动信息等.但这些应用不可能和我们自己平时发邮件一样,先打开浏览器,登录邮箱,创建邮件再发送.本文将简单介绍如何通过 Java 代码来创建电子邮件,并连接邮件服务器发送邮件. 1. 电子邮件协议 电子邮件的在网络中传输和网页一样需要遵从特定的协议,常用的电子邮件协议包括 SMTP,POP3,IMAP.其中邮件的创建和发送只需要用到 SMTP协议,所以本文也只会涉及到SMTP协议.SMTP 是

  • vbs定时发送邮件的方法与代码

    '用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件.  '代码如下:  下载地址 http://www.51tiao.com/info.vbs 复制代码 代码如下: Dim connstr,conn  Dim sql,rs,msg Sub OpenDB()      ConnStr = "DSN=51tiao.Com;UID=sa;PWD=;"      If Not IsObject(Conn) Then          Set conn = Crea

  • VBS中用CDO.Message发送邮件的实现代码

    使用CDO.Message对象就可以实现,示例代码演示的是gmail发送纯文本并带附件的邮件,至于其他的电子邮箱,需要修改代码中对应的smtp服务器和端口,原理也是一样的,就不举例了.贴出来的代码没有写注释,需要看注释的请下载源码. 复制代码 代码如下: Const Email_From = "still.demon@gmail.com" Const Password = "password" Const Email_To = "380401911@qq.

  • 利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码第1/2页

    一.挑选速度快的肉鸡做VPN.  当自己从小菜鸟转型为老菜鸟时,就懂得考虑在玩Hacking的同时也要尽量保证不暴露  自己.万事,安全第一嘛!不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^ .  因此,作为老菜鸟的我们,要学会在Hacking时,多用VPN+终端等跳板措施来保护自己,尽量不让自己直接暴露所处地.  但是,由于跳板的增加,导致了数据传输的缓慢.因此我们完全有必要找网速快的机器来做VPN跳板.但如果让自己做这些重复性的操作(从众多的肉鸡中挑选网速好的),那就太愧对老菜鸟这个称

  • Python3利用SMTP协议发送E-mail电子邮件的方法

    前言 本文主要给大家介绍了关于Python3用SMTP协议发送电子邮件的相关内容,在介绍如何使用python程序向指定邮箱发送邮件之前,我们需要先介绍一下有关电子邮件的相关知识. Email的历史比Web还要久远,直到现在,Email也是互联网上应用非常广泛的服务. 几乎所有的编程语言都支持发送和接收电子邮件,但是,先等等,在我们开始编写代码之前,有必要搞清楚电子邮件是如何在互联网上运作的. 假设我们自己的电子邮件地址是me@163.com,对方的电子邮件地址是friend@sina.com,现

  • python发送邮件实例分享

    为了更好的理解邮件发送功能的实现,要先了解邮件发送系统的大致流程.首先  电子邮件之间的相互发送接受就像  邮局邮件发送一样,从一个站点(邮件发送服务器)到目的地站点(邮件接收服务器),然后目的地站点处理收到的邮件,并发送给接受人.每个邮件服务器即担任发送也担任接受邮件,并且每个服务器地址,端口号,配置等也不同. 其实发送邮件的流程就 两部: 第一:写邮件 写好发送方,接受方 写好主题 写好正文(包括附件,图片等) 把信件整理在一起 第二:发送邮件 连接发送邮件服务器 登录邮箱 发送邮件 退出邮

  • 电子邮件 退信原因大全

    退信提示:"Invalid User"."User not found"."User unknown" 退信原因:对方用户不存在,由于发件人中的信箱地址有错误,发送服务器无法找到要投递的邮件地址. 解决方法:我们只要确认自己填写的地址是不是有错误,正确无误后再重新投递. 退信提示:"Quota"."Hard limit"."Storage allocation" 退信原因:对方邮箱已经满

  • 使用vbs获得外网ip并发送到邮箱里

    获得本地外网地址并发送到指定邮箱,还可以参考这个文章http://www.jb51.net/article/40064.htm 复制代码 代码如下: '* **************************************** *  '* 程序名称:GetIP.vbs  '* 程序说明:获得本地外网地址并发送到指定邮箱  '* 编码:lyserver    '* **************************************** * Option Explicit Cal

  • vbs实用软件自造——Windows脚本应用实例

    从Windows 98时代起,各种脚本文件不断出现,脚本文件的作用是为了实现各种脚本文件在 Windows 界面或 Dos 命令提示符下的直接运行,微软就在系统内植入了一个基于 32 位 Windows 平台.独立的脚本运行环境,并将其命名为"Windows Scripting Host(Windows 脚本宿主以下简称WSH)". WSH 诞生后,在 Windows 系列产品中很快得到了推广.除 Windows 98 外,微软在 Internet Information Server

随机推荐