求一个收163信箱附件的vbs - 中国DOS联盟论坛

放五一了吧;人们都不在呢;
对vbs不大熟悉...
觉得只是类似代替手工的 sendkeys 实在没什么技术含量..

批处理看了下倒是可以写出来..
不过最近没多少时间..不能去写了...

只在这里贴出点材料根据需要自行去写吧;;

以后论坛也会经常贴出些有用的材料 ..根据 "材料" 写批处理..

这个收邮件附件的就用 pop3 来做了;
根据pop3的材料写一个 "文本" 用nc > pop.163.com 的110端口
当然就是获取到附件的base64编码然后分离出来然后解码了;
文件名也可以取得并重命名;
至于判断新邮件的问题可以把邮件的 ID 保存在本地以备对比..

关于pop3有以下材料..

→→→→→→→telnet收邮件

注意:所有响应+OK (ok) or -ERR (no)

1.连接→telnet pop.163.com 110

2.用户名→user ****

3.密码→pass ****

4.验证ok后,终端会显示如下信息:
+OK 60 message(s)
数字60表示有60封邮件，72208371表示这60封邮件总的字节数(即72208371B)

这时可使用的命令如下:

1.stat命令格式：stat 无需参数

stat命令,查看统计,执行后,POP3服务器会响应一个正确应答,它以“+OK”开头,接着是两个数字,第一个是邮件数目,第二个是邮件的大小

2.list命令格式：list 参数n可选，n为邮件编号

list命令,查看邮件列表,可以利用不带参数的list命令,获得各邮件的编号,并且每一封邮件均占用一行显示,前面的数为邮件的编号,后面的数为邮件的大小

3.uidl命令格式：uidl 参数n可选，n为邮件编号后面的内容什么意思???

uidl命令,与list同,不过显示邮件的信息比list更详细,更具体

4.retr命令格式：retr n 参数n不可省，n为邮件编号

retr命令,查看邮件的内容

5.dele命令格式：dele n 参数n不可省，n为邮件编号

dele命令,删除指定的邮件(注意:dele n命令只是给邮件做上删除标记,只有在执行quit命令之后,邮件才会真正删除)

6.top 命令格式：top n m 参数n,m不可省,n为邮件编号,m为行数

top命令,读取指定邮件正文的行数,如果m=0,则只读出邮件的邮件头部分

7.noop命令格式：noop 无需参数

noop命令,该命令发出后,POP3服务器不作任何事,仅返回一个正确响应"+OK"

8.quit命令格式：quit 无需参数

quit命令,该命令发出后,telnet断开与POP3服务器的连接,系统进入更新状态

--------------------------------------------------------------------------------

[ Last edited by bjsh on 2007-5-4 at 12:13 PM ]

第1楼　xswdong	发表于 2007-05-01 21:43
中级用户　发帖 129　积分 216
求一个收163信箱附件的vbs 在论坛搜了许久,没有发现类似的帖子,清高手帮忙做一个,相信很多人会赶感兴趣的,在此先谢谢了

第2楼　bjsh	发表于 2007-05-02 10:57
银牌会员　发帖 621　积分 2,000
vbs没想过.. 不过用批处理倒是可以实现...

第3楼　xswdong	发表于 2007-05-03 10:45
中级用户　发帖 129　积分 216
自己先顶以下,批处理也行啊,这个脚本很难实现吗?咱们论坛高手如云,相信有人可以做出来.我的vbs不是很熟,只能做到登陆 set ws=wscript.createobject("wscript.shell") ws.run "C:\Progra~1\Intern~1\iexplore.exe mail.163.com" wscript.sleep 2000 ws.sendkeys("{BKSP 18}") wscript.sleep 200 ws.sendkeys("邮箱名") wscript.sleep 100 ws.sendkeys("{tab}") wscript.sleep 100 ws.sendkeys("密码") ws.sendkeys("{enter}")

第4楼　xswdong	发表于 2007-05-04 11:09
中级用户　发帖 129　积分 216
真的没人会做吗

第5楼　bjsh	发表于 2007-05-05 01:12
银牌会员　发帖 621　积分 2,000
放五一了吧;人们都不在呢; 对vbs不大熟悉... 觉得只是类似代替手工的 sendkeys 实在没什么技术含量.. 批处理看了下倒是可以写出来.. 不过最近没多少时间..不能去写了... 只在这里贴出点材料根据需要自行去写吧;; 以后论坛也会经常贴出些有用的材料 ..根据 "材料" 写批处理.. 这个收邮件附件的就用 pop3 来做了; 根据pop3的材料写一个 "文本" 用nc > pop.163.com 的110端口当然就是获取到附件的base64编码然后分离出来然后解码了; 文件名也可以取得并重命名; 至于判断新邮件的问题可以把邮件的 ID 保存在本地以备对比.. 关于pop3有以下材料.. →→→→→→→telnet收邮件注意:所有响应+OK (ok) or -ERR (no) 1.连接→telnet pop.163.com 110 2.用户名→user ** 3.密码→pass ** 4.验证ok后,终端会显示如下信息: +OK 60 message(s) 数字60表示有60封邮件，72208371表示这60封邮件总的字节数(即72208371B) 这时可使用的命令如下: 1.stat命令格式：stat 无需参数 stat命令,查看统计,执行后,POP3服务器会响应一个正确应答,它以“+OK”开头,接着是两个数字,第一个是邮件数目,第二个是邮件的大小 2.list命令格式：list 参数n可选，n为邮件编号 list命令,查看邮件列表,可以利用不带参数的list命令,获得各邮件的编号,并且每一封邮件均占用一行显示,前面的数为邮件的编号,后面的数为邮件的大小 3.uidl命令格式：uidl 参数n可选，n为邮件编号后面的内容什么意思??? uidl命令,与list同,不过显示邮件的信息比list更详细,更具体 4.retr命令格式：retr n 参数n不可省，n为邮件编号 retr命令,查看邮件的内容 5.dele命令格式：dele n 参数n不可省，n为邮件编号 dele命令,删除指定的邮件(注意:dele n命令只是给邮件做上删除标记,只有在执行quit命令之后,邮件才会真正删除) 6.top 命令格式：top n m 参数n,m不可省,n为邮件编号,m为行数 top命令,读取指定邮件正文的行数,如果m=0,则只读出邮件的邮件头部分 7.noop命令格式：noop 无需参数 noop命令,该命令发出后,POP3服务器不作任何事,仅返回一个正确响应"+OK" 8.quit命令格式：quit 无需参数 quit命令,该命令发出后,telnet断开与POP3服务器的连接,系统进入更新状态 -------------------------------------------------------------------------------- [ Last edited by bjsh on 2007-5-4 at 12:13 PM ]

第6楼　xswdong	发表于 2007-05-05 22:04
中级用户　发帖 129　积分 216
telnet,我用过,可看到正文,附件为乱码,而我要的是附件.还是谢谢斑竹提供的思路

第7楼　bjsh	发表于 2007-05-05 22:42
银牌会员　发帖 621　积分 2,000
上面已经说过了; 附件不是乱码;而是附件的base64编码; 获取附件就是先获取那堆你所谓的 "乱码"; 然后用 base64 来解码; 后缀取自所获得的附件名 ..

第8楼　sonicandy	发表于 2007-05-07 19:00
中级用户　发帖 91　积分 273
是要下载所有的附件吗？还是可以用列表选择的？

第9楼　xswdong	发表于 2007-05-09 22:41
中级用户　发帖 129　积分 216
是下载某个附件,当然用列表更好了.

第10楼　vkill	发表于 2007-05-11 12:18
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
用bat完全可以~bjsh兄的那样做可以~我试了不过写不出通用的，因为每个发信器发出的邮件正文都不规则，很不好找规律，只有对症下药 [ Last edited by vkill on 2007-5-11 at 12:58 PM ]