新手练习电信光猫路由器换IP

zkwt0012

我也是新手！！为了照顾新手每行加入了注释！。高手勿喷！脸皮不够厚!!!!!!

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:您的IP地址 ” ＋ ip_取本机wai网IP () ＋ #换行符 )  ' 启动加入运行框现在IP地址

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁			关闭结束

结束 ()

子程序名	返回值类型	公开	备 注
ip_取本机wai网IP	文本型		获取wai网IP子程序
参数名	类 型	参考	可空	数组	备 注
耗时	整数型

变量名	类 型	静态	数组	备 注
ip地址	文本型

耗时 ＝ 取启动时间 ()
ip地址 ＝ 到文本 (HTTP读文件 (“http://2019.ip138.com/ic.asp”))  ' 获取IP地址网址
ip地址 ＝ 删全部空 (取文本中间 (ip地址, 寻找文本 (ip地址, “您的IP是：”, , 假) ＋ 10, 寻找文本 (ip地址, “ 来自”, , 假) － 寻找文本 (ip地址, “您的IP是：”, , 假) － 10))  ' 取出IP地址中间值
耗时 ＝ 取启动时间 () － 耗时
返回 (ip地址)

子程序名	返回值类型	公开	备 注
_按钮_开始1_被单击

变量名	类 型	静态	数组	备 注
返回数据	文本型
token	文本型

返回数据 ＝ 编码_URL解码 (到文本 (网页_访问 (“http://” ＋ 编辑框3.内容 ＋ “/cgi-bin/luci”, 1, “username=” ＋ 编辑框1.内容 ＋ “&psd=” ＋ 编辑框2.内容, , )), 真)  ' 登录光猫路由器
如果真 (寻找文本 (返回数据, “密码错误”, , 假) ≠ -1)  ' 下列三行判断路由器账号密码
信息框 (“密码错误 或 用户名错误，请重新检查~”, 0, , )
返回 ()
token ＝ 文本_取出中间文本 (返回数据, “token: '”, “'”)  ' 获取token值，重启时会用到
编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:您的光猫 ” ＋ “登录成功” ＋ #换行符 )  ' 追加运行记录登录成功
如果真 (token ＝ “”)  ' 下列三行判断token是否获取到
信息框 (“请登录，在重启~”, 0, , )
返回 ()
返回数据 ＝ 到文本 (网页_访问 (“http://” ＋ 编辑框3.内容 ＋ “/cgi-bin/luci/admin/reboot”, 1, “token=” ＋ token ＋ “&_=0.6963554233128502”, , , ))  ' 向路由器发送ip地址+token重启命令
如果真 (返回数据 ＝ “”)  ' 判断返回值是否为空
编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:命令发送完毕，正在重启..... ” ＋ #换行符 )  ' 如果返回值为空则加入运行记录命令
延时 (10000)  ' 等待10秒钟
循环判断首 ()  ' 10秒钟后循环判断是否联网成功
延迟 (700)
循环判断尾 (通信测试 (“www.baidu.com”, 300) ＜ 1)  ' 此处如果不通则会一直循环
编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:重启成功 ” ＋ #换行符 )  ' 此处如果联网成功，下列到返回出加入到运行记录
编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:您的新IP地址 ” ＋ ip_取本机wai网IP () ＋ #换行符 )
编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:重启完毕，已经可以上网了..... ” ＋ #换行符 )
返回 ()  ' 此处联网成功结束
编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:重启失败啦 ” ＋ #换行符 )  ' 如果联网不成则此行加入运行记录

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:您的IP地址 ” ＋ ip_取本机wai网IP () ＋ #换行符)  ' 启动加入运行框现在IP地址<br /> <br /> .子程序 __启动窗口_将被销毁, , , 关闭结束<br /> <br /> <br /> 结束 ()<br /> <br /> .子程序 ip_取本机wai网IP, 文本型, , 获取wai网IP子程序<br /> .参数 耗时, 整数型, 参考 可空<br /> .局部变量 ip地址, 文本型<br /> <br /> 耗时 ＝ 取启动时间 ()<br /> ip地址 ＝ 到文本 (HTTP读文件 (“http://2019.ip138.com/ic.asp”))  ' 获取IP地址网址<br /> ip地址 ＝ 删全部空 (取文本中间 (ip地址, 寻找文本 (ip地址, “您的IP是：”, , 假) ＋ 10, 寻找文本 (ip地址, “ 来自”, , 假) － 寻找文本 (ip地址, “您的IP是：”, , 假) － 10))  ' 取出IP地址中间值<br /> 耗时 ＝ 取启动时间 () － 耗时<br /> 返回 (ip地址)<br /> <br /> .子程序 _按钮_开始1_被单击<br /> .局部变量 返回数据, 文本型<br /> .局部变量 token, 文本型<br /> <br /> 返回数据 ＝ 编码_URL解码 (到文本 (网页_访问 (“http://” ＋ 编辑框3.内容 ＋ “/cgi-bin/luci”, 1, “username=” ＋ 编辑框1.内容 ＋ “&psd=” ＋ 编辑框2.内容, , )), 真)  ' 登录光猫路由器<br /> .如果真 (寻找文本 (返回数据, “密码错误”, , 假) ≠ -1)  ' 下列三行判断路由器账号密码<br />     信息框 (“密码错误 或 用户名错误，请重新检查~”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> token ＝ 文本_取出中间文本 (返回数据, “token: '”, “'”)  ' 获取token值，重启时会用到<br /> <br /> 编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:您的光猫 ” ＋ “登录成功” ＋ #换行符)  ' 追加运行记录登录成功<br /> .如果真 (token ＝ “”)  ' 下列三行判断token是否获取到<br />     信息框 (“请登录，在重启~”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 返回数据 ＝ 到文本 (网页_访问 (“http://” ＋ 编辑框3.内容 ＋ “/cgi-bin/luci/admin/reboot”, 1, “token=” ＋ token ＋ “&_=0.6963554233128502”, , , ))  ' 向路由器发送ip地址+token重启命令<br /> .如果真 (返回数据 ＝ “”)  ' 判断返回值是否为空<br />     编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:命令发送完毕，正在重启..... ” ＋ #换行符)  ' 如果返回值为空则加入运行记录命令<br />     延时 (10000)  ' 等待10秒钟<br />     .循环判断首 ()  ' 10秒钟后循环判断是否联网成功<br />         延迟 (700)<br />     .循环判断尾 (通信测试 (“<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com</a>”, 300) ＜ 1)  ' 此处如果不通则会一直循环<br />     编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:重启成功 ” ＋ #换行符)  ' 此处如果联网成功，下列到返回出加入到运行记录<br />     编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:您的新IP地址 ” ＋ ip_取本机wai网IP () ＋ #换行符)<br />     编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:重启完毕，已经可以上网了..... ” ＋ #换行符)<br /> <br />     返回 ()  ' 此处联网成功结束<br /> <br /> .如果真结束<br /> 编辑框_运行记录.加入文本 (到文本 (取现行时间 ()) ＋ “:重启失败啦 ” ＋ #换行符)  ' 如果联网不成则此行加入运行记录

离开了

感谢分享，很给力！~

molin123

学习，谢谢分享

ptqy

感谢分享，很给力

jianrong13

感谢分享，很给力！~

lnbpwy2020

68079330

学习，谢谢分享

在水依人

看看怎么样

yinchongle00

感谢分享，很给力！~

jinaikuo

感谢分享，很给力！~

心情好烦

来看看