中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

作者: 标题: [原创]我再发个mail.vbs 上一主题 | 下一主题 correy 初级用户 积分 97 发帖 22 注册 2007-4-23 状态 离线 『楼 主』:  [原创]我再发个mail.vbs ───────────────────　版务记录　──────────────────── 执行：lxmxn 标题：[原创]我再发个mail.vbs 说明：因标题表述过于模糊，不便于论坛的搜索和管理，请在三日内修改标题，否则扣除2点积分 参考：http://www.cn-dos.net/forum/viewthread.php?tid=7326&fpage=1 　　　http://community.csdn.net/IndexPage/SmartQuestion.aspx ───────────────────　版务记录　──────────────────── 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                                                           next                                                        next                                                     next                                                  next                                               next                                            next                                         next                                      next                                   next                                next                             next                          next                       next                    next                 next              next           next        next     next next [ Last edited by lxmxn on 2007-10-6 at 09:02 AM ] 2007-10-6 08:25 electronixtar 铂金会员 积分 7493 发帖 2672 注册 2005-9-2 状态 离线 『第 2 楼』:   看到那华丽的一条整齐的next我就 囧了 orz C:\>BLOG http://initiative.yo2.cn/ C:\>hh.exe ntcmds.chm::/ntcmds.htm C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>" 2007-10-6 11:19 htun 初级用户 积分 53 发帖 25 注册 2007-6-17 状态 离线 『第 3 楼』:   到底是什么来的嘛 2007-10-9 11:52 wssl22 新手上路 积分 2 发帖 1 注册 2007-10-9 状态 离线 『第 4 楼』:   这是个可做为病毒的片段!不要轻意运行,除非你准备好了! 2007-10-9 12:42

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: 站务区  > 站务公告 & 版主讨论  > 意见反馈 & 网友交流 DOS讨论区  > DOS学习入门 & 精彩文章 （教学室）  > DOS疑难解答 & 问题讨论 （解答室）  > DOS启动盘 & LOGO技术 （启动盘室）  > DOS批处理 & 脚本技术（批处理室）  > DOS媒体世界 & 网络技术 （多媒体室）  > DOS汉化世界 & 中文系统 （中文化室）  > DOS开发编程 & 发展交流 （开发室）  > DOS软件下载 & 游戏分享 （下载室） 其它讨论区  > GRUB4DOS、SYSLINUX及其它启动管理软件讨论专区  > 其它操作系统综合讨论区  > WinPE、PowerShell及其它命令行系统专区  > 贴图灌水、文学娱乐专区 服务区  > 网络日志（Blog）  > 论坛回收站      > 链接失效，待修正