远程守护源码分享(借助了teamview)

笨小孩1995

先说下初衷,之前用过teamviewr的账号绑定功能,但有时远程机账号登陆不成功等很多问题导致体验感很差,于是这个软件就诞生了.
首先,这个软件完全傻瓜化,启动就行(建议放在文件夹内运行)
本软件运行在受控机器上,受控机器之前不需要什么设置,也不用安装teamviewr,本软甲自带teamviewr.
启动完成后会向你的指定邮箱发送受控端id和密钥==

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
邮件内容	字节集

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

如果 (文件是否存在 (取运行目录 () ＋ “\配置.ini”))
是否开机启动 ()
写配置项 (取运行目录 () ＋ “\配置.ini”, “开关”, “是否开机启动”, “是”)

启动线程 (&控制程序, , )
程序_延时 (, )
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
是否开机启动

变量名	类 型	静态	数组	备 注
开关	逻辑型

如果 (读配置项 (取运行目录 () ＋ “\配置.ini”, “开关”, “是否开机启动”, “是”) ＝ “是”)
开关 ＝ 真
开关 ＝ 假

如果 (注册项是否存在 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\Team”))
如果 (开关)

删除注册项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\Team”)

如果 (开关)
写注册项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\Team”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())

子程序名	返回值类型	公开	备 注
控制程序

变量名	类 型	静态	数组	备 注
窗口句柄	整数型
邮件发送结果	逻辑型

窗口1.可视 ＝ 真
载入 (窗口1, , 假)
如果真 (程序检查 () ＝ 假)
程序写出 ()
如果真 (程序启动 () ＝ 假)
信息框 (“程序启动失败,请尝试手动启动,请启动后再点击确定”, 0, , )
如果 (确认程序启动 ())

窗口1.编辑框1.加入文本 (“五秒后程序退出” ＋ 到文本 ( #换行符 ))
延迟 (5000)
返回 ()
延迟 (2000)
窗口句柄 ＝ 窗口绑定 ()
邮件发送结果 ＝ 邮件发送 (快照 (窗口句柄, , ))
窗口_显示隐藏 (窗口句柄, 假)
窗口1.销毁 ()
判断循环首 (邮件发送结果 ＝ 假)
邮件发送结果 ＝ 邮件发送 (邮件内容)
程序_延时 (5, 2)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
窗口绑定	整数型

变量名	类 型	静态	数组	备 注
窗口句柄	整数型

窗口句柄 ＝ 进程_ID取窗口句柄 (进程_名取ID (“TeamViewer.exe”, 假), “TeamViewer”, “#32770”, 5000)
如果 (窗口句柄 ＝ 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	文本型

' 调试输出 (连接发信服务器 (“pop.163.com”, 110, “你的邮箱@163.com”, “你的密码”, 10000))
邮件内容 ＝ 附件
如果 (连接发信服务器 (“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”, 4, 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	压缩解压支持库

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

下载链接回复可见==
链接：http://pan.baidu.com/s/1c5ygHK 密码：g9ed

acx525

帮你顶上去

zhengkejie

谁帮忙编译一个呗。

zhengkejie

又被吃掉了，下载不了

pesina

下不了咋办呢

shenzhenyu8

学习了，谢谢分享

qq778582311

看看，谢谢，学习一下

mahay

支持！！！！！

魔月歌

tiejin

学习了哈哈

q275212

可见当时看见