删除文件 (取运行目录 () ＋ “\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)
追问我要拜你为师