易语言怎么做，点击按钮后后打开摄像头，然后照张相然后发送到到指定youxaing
邮箱两个字打不出来
最新回答
快乐暗恋我
2025-03-26 10:14:42
（拍照）
.版本 2
.支持库 twain
.支持库 eImgConverter
.子程序 关闭摄像头
视频设备1.预览 (假, -1)
视频设备1.预览 (假, -1)
.子程序 拍照
视频设备1.保存为图片 (取运行目录 () ＋ “\temp\temp.bmp”)
转换到JPG (取运行目录 () ＋ “\temp\temp.bmp”, 取运行目录 () ＋ “\temp\临时照片.jpg”, 假, 到整数 (编辑框5.内容), 真, 0)
删除文件 (取运行目录 () ＋ “\temp\temp.bmp”)
编辑框4.内容 ＝ 取运行目录 () ＋ “\temp\临时照片.jpg”
.子程序 启动摄像头
.局部变量 计次, 整数型
.计次循环首 (视频设备1.来源总数, 计次)
视频设备1.当前来源 ＝ 计次
.计次循环尾 ()
.如果真 (视频设备1.预览 (真, 100) ＝ 假)
启动摄像头 ()
（邮件发送）
.版本 2
.支持库 EThread
.支持库 internet
.支持库 xplib
.程序集 窗口程序集1
.程序集变量 账户, 文本型
.程序集变量 主题, 文本型
.程序集变量 密码, 文本型
.程序集变量 邮件内容, 文本型
.子程序 _按钮1_被单击, , , 需要在
QQ邮箱
中账号中设置.如果真 (编辑框账号.内容 ＝ “” 或 编辑框密码.内容 ＝ “”)
信息框 (“帐号密码不能为空”, 0, )
返回 ()
.如果真结束
.如果真 (接收邮件地址.内容 ＝ “”)
信息框 (“请设定群发目标起始号码”, 0, )
返回 ()
.如果真结束
账户 ＝ 编辑框账号.内容
密码 ＝ 编辑框密码.内容
主题 ＝ 编辑框主题.内容
邮件内容 ＝ 编辑框邮件内容.内容
接收方 ＝ 到整数 (接收邮件地址.内容)
启动
线程
(&线程, , 句柄).子程序 线程
.局部变量 返回文本, 文本型
.局部变量 临时文本, 文本型
.局部变量 循环次数, 整数型
.如果 (连接发信服务器 (“smtp.qq.com”, , 账户, 密码, ))
返回文本 ＝ “连接发信服务器成功” ＋ #
换行符
临时文本 ＝ 发送邮件 (主题, 邮件内容, 到文本 (接收方) ＋ “@QQ.com”, , , 账户 ＋ “@QQ.com”, )
.判断开始 (临时文本 ≠ “”)
返回文本 ＝ “发送失败：” ＋ 临时文本 ＋ #换行符
.默认
返回文本 ＝ “发送成功。” ＋ #换行符
.判断结束
.否则
返回文本 ＝ “连接发信服务器失败” ＋ #换行符
.如果结束
调试编辑框.内容 ＝ 返回文本
断开发信服务器 ()
关闭线程句柄 (句柄)
.子程序 __启动窗口_创建完毕
XP风格 (3)
热门标签
