.版本 2
.支持库 internet

.程序集 窗口程序集_启动窗口

.子程序 _按钮_托盘_被单击

_启动窗口.可视 ＝ 假
置托盘图标 (#图片ico, “托盘程序测试”)

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.如果 (操作类型 ＝ #单击左键)
    _启动窗口.可视 ＝ 真
    置托盘图标 (, )
.否则

.如果结束

.如果 (操作类型 ＝ #单击右键)
    弹出托盘菜单 (托盘程序)
.否则

.如果结束


.子程序 _打开主程序_被选择

_启动窗口.可视 ＝ 真
置托盘图标 (, )


.子程序 _关闭除程序_被选择

销毁 ()


.子程序 _按钮_登录_被单击

连接发信服务器 (“smtp.163.com”, 25, 编辑框_账号.内容, 编辑框_密码.内容, )
发送邮件 (“这是一条测试内容！”, 编辑框_发信内容.内容, 编辑框_收信.内容, , , “nanshaoyl@163.com”, )