|
发表于 2011-8-29 10:51:48
|
显示全部楼层
天津市天津市
- .版本 2
- .支持库 WebBrowser2
- .支持库 spec
- .程序集 窗口程序集1
- .程序集变量 zb, 精易_坐标
- .程序集变量 完整网页源码41, 文本型
- .程序集变量 完整网页源码42, 文本型
- .程序集变量 分割1, 文本型, , "0"
- .程序集变量 分割2, 文本型, , "0"
- .程序集变量 分割3, 文本型, , "0"
- .程序集变量 分割4, 文本型, , "0"
- .程序集变量 分割5, 文本型, , "0"
- .程序集变量 许可证2, 线程许可证
- .程序集变量 许可证3, 线程许可证
- .程序集变量 分割6, 文本型, , "0"
- .程序集变量 x, 整数型
- .程序集变量 许可证, 线程许可证
- .程序集变量 zb41, 精易_坐标
- .程序集变量 zb42, 精易_坐标
- .子程序 __启动窗口_创建完毕
- 互联网浏览器1.浏览 (“http://要替换IP地址2”, , , )
- 互联网浏览器2.浏览 (“http://要替换IP地址”, , , )
- 置随机数种子 ()
- _启动窗口.置托盘图标 (#图片1, “PRTG监控”)
- x = 2
- 许可证3 = 线程_创建许可证 ()
- 许可证2 = 线程_创建许可证 ()
- 许可证 = 线程_创建许可证 ()
- 时钟2.时钟周期 = 30000
- 时钟3.时钟周期 = 30000
- .子程序 _时钟1_周期事件
- .如果真 (用户名功能_取句柄42 () ≠ 0)
- 窗口_置控件内容 (用户名功能_取句柄42 (), “tjtt”)
- 窗口_置控件内容 (密码功能_取句柄42 (), “prtg”)
- 窗口_置顶 (窗口_取句柄 (, , , “连接到 要替换IP地址”))
- zb42 = 窗口_取控件坐标 (窗口_取句柄 (, , , “连接到 要替换IP地址”))
- .如果真 (zb42.横 < 0)
- zb42.横 = -zb42.横
- .如果真结束
- .如果真 (zb42.纵 < 0)
- zb42.纵 = -zb42.纵
- .如果真结束
- 调试输出 (“42:”, zb42.横, zb42.纵)
- ' 鼠标_移动 (窗口_取句柄 (, , “#32770”, “连接到 要替换IP地址”), zb42.横, zb42.纵)
- ' 鼠标_单击 (zb42.横, zb42.纵, 1)
- .版本 2
- .子程序 用户名功能_取句柄42, 整数型, , 本子程序采用【精易编程助手】生成,成功返回窗口句柄,失败返回0
- .局部变量 局_1级句柄, 整数型
- .局部变量 局_2级句柄, 整数型
- .局部变量 局_3级句柄, 整数型
- .局部变量 局_4级句柄, 整数型
- .局部变量 局_5级句柄, 整数型
- 局_1级句柄 = 窗口_取句柄 (, , “#32770”, “连接到 要替换IP地址”)
- .如果真 (局_1级句柄 = -1)
- 返回 (0)
- .如果真结束
- 局_2级句柄 = 窗口_控件ID取句柄 (局_1级句柄, 1002)
- .如果真 (局_2级句柄 = -1)
- 返回 (0)
- .如果真结束
- 局_3级句柄 = 窗口_控件ID取句柄 (局_2级句柄, 1003)
- .如果真 (局_3级句柄 = -1)
- 返回 (0)
- .如果真结束
- 局_4级句柄 = 窗口_控件ID取句柄 (局_3级句柄, 1003)
- .如果真 (局_4级句柄 = -1)
- 返回 (0)
- .如果真结束
- 局_5级句柄 = 窗口_控件ID取句柄 (局_4级句柄, 1003)
- .如果真 (局_5级句柄 = -1)
- 返回 (0)
- .如果真结束
- 返回 (局_5级句柄)
- .版本 2
- .子程序 密码功能_取句柄42, 整数型, , 本子程序采用【精易编程助手】生成,成功返回窗口句柄,失败返回0
- .局部变量 局_1级句柄, 整数型
- .局部变量 局_2级句柄, 整数型
- .局部变量 局_3级句柄, 整数型
- 局_1级句柄 = 窗口_取句柄 (, , “#32770”, “连接到 要替换IP地址”)
- .如果真 (局_1级句柄 = -1)
- 返回 (0)
- .如果真结束
- 局_2级句柄 = 窗口_控件ID取句柄 (局_1级句柄, 1002)
- .如果真 (局_2级句柄 = -1)
- 返回 (0)
- .如果真结束
- 局_3级句柄 = 窗口_控件ID取句柄 (局_2级句柄, 1005)
- .如果真 (局_3级句柄 = -1)
- 返回 (0)
- .如果真结束
- 返回 (局_3级句柄)
- .版本 2
- .子程序 确定功能_取句柄42, 整数型, , 本子程序采用【精易编程助手】生成,成功返回窗口句柄,失败返回0
- .局部变量 局_1级句柄, 整数型
- .局部变量 局_2级句柄, 整数型
- 局_1级句柄 = 窗口_取句柄 (, , “#32770”, “连接到 要替换IP地址”)
- .如果真 (局_1级句柄 = -1)
- 返回 (0)
- .如果真结束
- 局_2级句柄 = 窗口_取句柄 (局_1级句柄, , “Button”, “确定”)
- .如果真 (局_2级句柄 = -1)
- 返回 (0)
- .如果真结束
- 返回 (局_2级句柄)
- .版本 2
- .支持库 iext5
- 线程_进入许可区 (许可证2)
- 完整网页源码42 = 网页_取网页源码 (“http://要替换IP地址”)
- 分割3 = 分割文本 (完整网页源码42, “ <TR >”, )
- 分割4 = 分割文本 (分割3 [2], “ </TR>”, )
- .如果 (分割4 [1] ≠ #常量1)
- 窗口_写字 (窗口_取句柄 (, , “SysListView32”), “PRTG-42有问题了!”, , 55, #红色, 取屏幕宽度 () ÷ 2 - 100, 取屏幕高度 () ÷ 2 + 60)
- .否则
- 标签2.标题 = “PRTG-42没有问题!”
- 气球提示框2.弹出提示框 (取屏幕宽度 () - 70, 取屏幕高度 () - 30, “PRTG-42没有问题!”, -1, 真)
- .如果结束
- 线程_退出许可区 (许可证2)
- .版本 2
- .子程序 __启动窗口_托盘事件
- .参数 操作类型, 整数型
- .如果真 (操作类型 = 3)
- .如果 (_启动窗口.可视 ≠ 真)
- _启动窗口.可视 = 真
- .否则
- _启动窗口.可视 = 假
- .如果结束
- .如果真结束
- 线程_进入许可区 (许可证3)
- .如果真 (操作类型 = 1)
- 完整网页源码41 = 网页_取网页源码 (“http://要替换IP地址2”)
- 分割1 = 分割文本 (完整网页源码41, “ <TR >”, )
- 分割2 = 分割文本 (分割1 [2], “ </TR>”, )
- .如果 (分割2 [1] = #常量1)
- 窗口_写字 (窗口_取句柄 (, , “SysListView32”), “PRTG-41没问题!”, , 55, #绿色, 取屏幕宽度 () ÷ 2 - 100, 取屏幕高度 () ÷ 2 - 60)
- .否则
- 窗口_写字 (窗口_取句柄 (, , “SysListView32”), “PRTG-41有问题了!”, , 55, #红色, 取屏幕宽度 () ÷ 2 - 100, 取屏幕高度 () ÷ 2 - 60)
- .如果结束
- 完整网页源码42 = 网页_取网页源码 (“http://要替换IP地址”)
- 分割3 = 分割文本 (完整网页源码42, “ <TR >”, )
- 分割4 = 分割文本 (分割3 [2], “ </TR>”, )
- .如果 (分割4 [1] = #常量1)
- 窗口_写字 (窗口_取句柄 (, , “SysListView32”), “PRTG-42没问题!”, , 55, #绿色, 取屏幕宽度 () ÷ 2 - 100, 取屏幕高度 () ÷ 2 + 60)
- .否则
- 窗口_写字 (窗口_取句柄 (, , “SysListView32”), “PRTG-42有问题了!”, , 55, #红色, 取屏幕宽度 () ÷ 2 - 100, 取屏幕高度 () ÷ 2 + 60)
- .如果结束
- 延时 (2000)
- .如果真结束
- 线程_退出许可区 (许可证3)
复制代码 我有现成的监控流量服务器是不是正常工作用的 也是有提示框 IP我替换掉了 你自己写下就行了 常量1 是网页的正常打开的http的源码 抓包助手能拦截下来 或者IE你点右键查看源码也行 |
|