开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2877|回复: 9
收起左侧

[易语言纯源码] 截图发邮件

[复制链接]
结帖率:100% (1/1)
发表于 2019-12-11 19:48:34 | 显示全部楼层 |阅读模式   吉林省吉林市
分享源码
界面截图: -
是否带模块: 纯源码
备注说明: -
照着例程写的 但是没能实现发邮件功能 可能端口号不对
  
窗口程序集名保 留  保 留备 注
(未填写程序集名)   
变量名类 型数组备 注
变量名类 型数组备 注
f1整数型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
f1 = zc热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F1键 )
' 设置自动运行 (“邮件发截图”, 取运行目录 () + “\” + “邮件.exe”, 1)
子程序名返回值类型公开备 注
_按钮2_被单击  
变量名类 型静态数组备 注
zjj字节集 
如果 (连接发信服务器 (“smtp.163.com”, 25, #你的邮箱账号, #你的邮箱密码, ))
信息框 (“连接成功”, 0, )
_启动窗口.可视 = 假
zjj = 快照 (, 取屏幕宽度 (), 取屏幕高度 ())
写到文件 (“E:\”“y截图.JPG”, zjj)
如果真 (ZIP压缩1.压缩 (“E:\”“y截图.JPG”, “y截图.zip”) = 1)
信息框 (“压缩成功”, 0, )
如果真 (添加附件文件 (“y截图.zip”))
信息框 (“添加附件成功”, 0, )
如果真 (发送邮件 (易语言邮件测试”, 编辑框2.内容, #你的邮箱账号, , , #你的邮箱账号, )“”)
信息框 (“发送成功”, 0, )
断开发信服务器 ()




i支持库列表   支持库注释   
shellEx扩展功能支持库一
internet互联网支持库
eCompress压缩解压支持库

截图发邮件.e

4.83 KB, 下载次数: 38, 下载积分: 精币 -2 枚


结帖率:75% (3/4)
发表于 2021-10-13 09:41:58 | 显示全部楼层   福建省三明市
谢谢分享!!!!!!!!
回复 支持 反对

使用道具 举报

发表于 2020-1-6 17:10:42 | 显示全部楼层   山东省潍坊市
公司山豆根山豆根
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
 楼主| 发表于 2019-12-12 17:03:00 | 显示全部楼层   吉林省吉林市

谢谢支持 哈哈哈哈哈
回复 支持 反对

使用道具 举报

结帖率:100% (7/7)

签到天数: 25 天

发表于 2019-12-12 16:42:59 | 显示全部楼层   湖北省咸宁市
感谢分享源码
回复 支持 反对

使用道具 举报

结帖率:33% (5/15)
发表于 2019-12-12 15:20:04 | 显示全部楼层   宁夏回族自治区石嘴山市
感谢分享 支持一下
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)
发表于 2019-12-12 10:52:40 | 显示全部楼层   安徽省亳州市
回复 支持 反对

使用道具 举报

结帖率:75% (3/4)

签到天数: 2 天

发表于 2019-12-11 23:30:00 | 显示全部楼层   湖南省永州市
66666666666666666666666666
回复 支持 反对

使用道具 举报

结帖率:100% (5/5)

签到天数: 12 天

发表于 2019-12-11 22:28:04 | 显示全部楼层   陕西省延安市
牛逼牛逼牛逼牛逼牛逼牛逼
回复 支持 反对

使用道具 举报

发表于 2019-12-11 21:31:32 | 显示全部楼层   广东省东莞市
支持一下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表