网站首页 > 易语言相关 > 网络相关源码 正文
源码程序使用易语言客户组件向QQ邮箱发送消息实现邮件发送功能。
@黑客源码
.版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 cishu, 整数型 .子程序 _按钮1_被单击 客户1.连接 (“smtp.qq.com”, 25) .子程序 _客户1_数据到达 .局部变量 kk, 文本型 .局部变量 pp, 文本型 .局部变量 pp2, 文本型 .局部变量 date, 文本型 kk ＝ 到文本 (客户1.取回数据 ()) 调试输出 (到文本 (客户1.取回数据 ())) .如果 (kk ＝ “220 smtp.qq.com Esmtp QQ Mail Server” ＋ #换行符) 客户1.发送数据 (“HELO smtp.qq.com” ＋ #换行符) .否则 .如果结束 .如果 (kk ＝ “250 smtp.qq.com” ＋ #换行符) 客户1.发送数据 (“AUTH LOGIN” ＋ #换行符) .否则 .如果结束 .如果 (kk ＝ “334 VXNlcm5hbWU6” ＋ #换行符) 客户1.发送数据 (BASE64编码 (到字节集 (“[email protected]”)) ＋ #换行符) .否则 .如果结束 .如果 (kk ＝ “334 UGFzc3dvcmQ6” ＋ #换行符) 客户1.发送数据 (BASE64编码 (到字节集 (“”)) ＋ #换行符) .否则 .如果结束 .如果 (kk ＝ “235 Authentication successful” ＋ #换行符) 客户1.发送数据 (“MAIL FROM:<[email protected]>” ＋ #换行符) .否则 .如果结束 调试输出 (cishu) .如果 (kk ＝ “250 Ok” ＋ #换行符) .如果 (cishu ≠ 1 或 cishu ≠ 0) .如果 (cishu ＝ 2) 客户1.发送数据 (“RCPT TO:<[email protected]> ” ＋ #换行符) .否则 客户1.发送数据 (“MAIL FROM:<[email protected]>” ＋ #换行符) .如果结束 .如果 (cishu ＝ 3) 客户1.发送数据 (“DATA ” ＋ #换行符) .否则 .如果结束 .否则 客户1.发送数据 (“RCPT TO:<[email protected]> ” ＋ #换行符) .如果结束 cishu ＝ 1 ＋ cishu .否则 .如果结束 .如果 (kk ＝ “354 End data with <CR><LF>.<CR><LF>” ＋ #换行符) date ＝ BASE64编码 (读入文件 (“E:\2.jpg”)) 客户1.发送数据 (“FROM:<[email protected]>” ＋ #换行符 ＋ “to:<[email protected]>” ＋ #换行符 ＋ “subject:hello,you!” ＋ #换行符 ＋ “MIME_Version: 1.0” ＋ #换行符 ＋ “Content-type: text/html” ＋ #换行符 ＋ “Content-Transfer-Encoding: quoted-printable” ＋ #换行符 ＋ “X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157” ＋ #换行符 ＋ #换行符) pp2 ＝ “<!DOCTYPE HTML>” ＋ #换行符 ＋ “<html>” ＋ #换行符 ＋ “<HEAD>” ＋ #换行符 ＋ “<META HTTP-EQUIV=3D” ＋ #双引号左 ＋ “Content-Type” ＋ #双引号右 ＋ “ ” ＋ “CONTENT=3D” ＋ #双引号左 ＋ “text/html; charset=gb2312” ＋ #双引号右 ＋ “>” ＋ #换行符 ＋ “</HEAD>” ＋ #换行符 ＋ “<body><a href= http://www.baidu.com target= _blank>wo ce shi yixia</a> ” ＋ “<img src='data:image/jpeg;base64, ” ＋ date ＋ “' alt='abc.jpg' /> ” ＋ #换行符 ＋ “</body></html>” ＋ #换行符 ＋ “.” ＋ #换行符 客户1.发送数据 (pp2) .否则 .如果结束 .如果 (kk ＝ “250 Ok: queued as ” ＋ #换行符) 客户1.发送数据 (“quit” ＋ #换行符) .否则 .如果结束 ' “ Content-Type: application/octet-stream;” ＋ #换行符 ＋ “ name=” ＋ #双引号左 ＋ “eeeeee.e” ＋ #双引号右 ＋ #换行符 ＋ “Content-Disposition: attachment; filename='eeeeee.e'” ＋ BASE64编码 (读入文件 (“E:\eeeeee.e”)) ＋ #双引号右 ' '最主要的就是 Content-Type: text/html; Content-Transfer-Encoding: base64类型和编码 ' 其实完全不用不懂网页的话，你就找网页吧他BASE64编码，然后 个两行 把编码粘进去不过先要声明Content-Type和编码 .子程序 BASE64编码, 文本型 .参数 二进制数据, 字节集, 参考 .局部变量 数据长度 .局部变量 整倍数 .局部变量 X .局部变量 编码文本, 文本型 .局部变量 行字数 .局部变量 三字节, 字节集 .局部变量 三字节组, 字节型, , "3" .局部变量 四字节组, 字节型, , "4" .局部变量 n .局部变量 编码值 .局部变量 xx 数据长度 ＝ 取字节集长度 (二进制数据) xx ＝ 取启动时间 () 整倍数 ＝ 数据长度 ＼ 3 .如果真 (数据长度 ％ 3 ≠ 0) 整倍数 ＝ 整倍数 ＋ 1 .如果真结束 .计次循环首 (整倍数, X) 三字节 ＝ 取字节集中间 (二进制数据, (X － 1) × 3 ＋ 1, 3) .计次循环首 (3, n) 三字节组 [n] ＝ 取字节集数据 (取字节集中间 (三字节, n, 1), #字节型, ) .计次循环尾 () 四字节组 [1] ＝ 位与 (三字节组 [1], 252) ÷ 4 四字节组 [2] ＝ 位或 (位与 (三字节组 [1], 3) × 16, 三字节组 [2] ÷ 16) 四字节组 [3] ＝ 位或 (位与 (三字节组 [2], 15) × 4, 三字节组 [3] ÷ 64) 四字节组 [4] ＝ 位与 (三字节组 [3], 63) .计次循环首 (取字节集长度 (三字节) ＋ 1, n) ' 这里循环次数不用3,而用实际长度,考虑到数据长度不总是3的整倍数 编码值 ＝ 四字节组 [n] ＋ 1 四字节组 [n] ＝ 取代码 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 编码值) 处理事件 () .计次循环尾 () 编码文本 ＝ 编码文本 ＋ 到文本 (四字节组) 行字数 ＝ 行字数 ＋ 4 .如果真 (行字数 ＝ 76) 行字数 ＝ 0 编码文本 ＝ 编码文本 ＋ #换行符 .如果真结束 处理事件 () .计次循环尾 () .如果真 (n ＜ 5) ' 如果编码文本长度不是4的整倍数,后面补"=" 编码文本 ＝ 编码文本 ＋ 取重复文本 (5 － n, “=”) .如果真结束 输出调试文本 (到文本 (取启动时间 () － xx)) 返回 (编码文本)
- 上一篇： 查询QQ是否在线易语言源码
- 下一篇： 易语言添加与删除IP源码
猜你喜欢
- 2024-04-07 最新NT框架可用QQ群验证
- 2024-03-21 蓝奏云直链解析纯协议源码
- 2024-03-20 基于E2EE的无状态认证JsonWebToken算法、常用Web算法模块
- 2024-03-18 YoLo8本地cpu识别源码
- 2024-03-16 搜索引擎 下拉关键词例子 支持百d\搜狗\必应\搜狗手机版
- 2024-03-15 ZIP解压缩模块源码
- 2024-03-12 tgp登陆打开游戏源码
- 2024-03-12 抖音弹幕wss协议源码
- 2024-03-11 静默快捷取全部已登录QQ账号、httpkey、cookie、群验证等
- 2024-03-08 TG API 发消息与图片
欢迎 你 发表评论:
- 百度站内搜索
- 关注微信公众号
-
三叶资源网⑤群：
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
- 最新评论
-
访客 评论于：03-11
访客 评论于：03-01
访客 评论于：01-16
访客 评论于：01-10- 访客 评论于：12-21
访客 评论于：12-21- 访客 评论于：08-24
访客 评论于：07-26
访客 评论于：06-20- 访客 评论于：06-17
本文暂时没有评论，来添加一个吧(●'◡'●)