路由器源码

.版本2.支持库iext2.支持库EThread.程序集窗口程序集.子程序_主窗口_创建完毕.判断开始(文件是否存在(取运行目录()＋“\IPconfig.ini”)＝假)写到文件(取运行目录()＋“\IPconfig.ini”,{})单选框_新版.选中＝真.默认IP编辑框.地址＝读配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“IP”,)编辑框_密码.内容＝读配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“Password”,).如果真(读配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“Option”,)＝“1”)单选框_新版.选中＝真.如果真结束.如果真(读配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“Option”,)＝“2”)单选框_旧版.选中＝真.如果真结束.判断结束编辑框_密码.密码遮盖字符＝到文本({7}).子程序_按钮_换IP_被单击.判断开始(单选框_新版.选中)启动线程(&功能_换IP2,,).判断(单选框_旧版.选中)启动线程(&功能_换IP,,).默认.判断结束.子程序功能_换IP,,公开,旧版.局部变量cookie,文本型.局部变量现在的ip,文本型.局部变量IP地址,文本型.局部变量重复次数,整数型.局部变量正则z,正则表达式_类.局部变量http,WinHttpIP地址＝IP编辑框.地址cookie＝加密路由器密码1(编辑框_密码.内容)http.Open(“GET”,“http://”＋IP地址＋“/userRpm/StatusRpm.htm”)http.SetCookie(cookie)http.Send()正则z.创建(“\d+\.\d+\.\d+\.\d+”)正则z.搜索全部(http.GetResponseText()).如果真(正则z.取匹配数量()＝0)信息框(“登录路由器失败!”,0＋16,“提示”)返回().如果真结束现在的ip＝正则z.取匹配文本(4)_置提示(“现在的IP：”＋现在的ip)按钮_换IP.禁止＝真按钮_换IP.标题＝“正在给您换IP..”.判断循环首(真)http.Open(“GET”,“http://”＋IP地址＋“/userRpm/StatusRpm.htm?Disconnect=断线&wan=1”)'断线再连接=重新拨号http.SetCookie(cookie)http.Send()http.Open(“GET”,“http://”＋IP地址＋“/userRpm/StatusRpm.htm?Connect=连接&wan=1”)'断线再连接=重新拨号http.SetCookie(cookie)http.Send().判断循环首(真)_置tip(“刷新中…”)http.Open(“GET”,“http://”＋IP地址＋“/userRpm/StatusRpm.htm”)'刷新,看看有没有拨号成功http.SetCookie(cookie)http.Send()正则z.创建(“\d+\.\d+\.\d+\.\d+”)正则z.搜索全部(http.GetResponseText()).如果真(正则z.取匹配文本(4)≠“0.0.0.0”)跳出循环().如果真结束延时(200).判断循环尾().判断开始(正则z.取匹配文本(4)≠现在的ip)_置tip(“更换后IP：”＋正则z.取匹配文本(4))_置提示(“上次的IP：”＋现在的ip)跳出循环().默认重复次数＝重复次数＋1_置tip(“发现重复IP”＋到文本(重复次数)＋“次,继续换...”).判断结束.判断循环尾()按钮_换IP.标题＝“给我换一个IP”按钮_换IP.禁止＝假.子程序功能_换IP2,,公开,新版.局部变量this,路由器操作.局部变量new_IP,文本型.局部变量old_IP,文本型.局部变量tip,文本型.局部变量i,整数型.局部变量j,整数型this.设置(IP编辑框.地址).如果真(this.登录(编辑框_密码.内容)＝假)信息框(“登录失败”,0,“提示”)返回().如果真结束old_IP＝this.查看IP()_置提示(“现在的IP：”＋old_IP)按钮_换IP.禁止＝真按钮_换IP.标题＝“正在给您换IP..”tip＝“玩命更换中…”.判断循环首(真)this.断开()this.连接().判断循环首(真)_置tip(tip＋“(”＋到文本(i)＋“)”)i＝i＋1new_IP＝this.查看IP().如果真(new_IP≠“”且new_IP≠“0.0.0.0”)跳出循环().如果真结束延时(100).判断循环尾().判断开始(old_IP≠new_IP)_置tip(“更换后IP：”＋new_IP)_置提示(“上次的IP：”＋old_IP)跳出循环().默认j＝j＋1tip＝“已发现重复IP”＋到文本(j)＋“次…”_置tip(tip).判断结束.判断循环尾()按钮_换IP.标题＝“给我换一个IP”按钮_换IP.禁止＝假.子程序_置提示.参数提示,文本型标签_tip1.标题＝提示.子程序_置tip.参数提示,文本型标签_tip2.标题＝提示.子程序加密路由器密码1,文本型,,旧版路由器JS加密.参数密码,文本型.局部变量JS,JScriptJS.AddCode(#js加密)返回(“Authorization=Basic%20”＋JS.Run_Str(“Base64Encoding”,“admin:”＋密码)).子程序_主窗口_将被销毁写配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“IP”,IP编辑框.地址)写配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“Password”,编辑框_密码.内容).如果真(单选框_新版.选中)写配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“Option”,“1”).如果真结束.如果真(单选框_旧版.选中)写配置项(取运行目录()＋“\IPconfig.ini”,“配置”,“Option”,“2”).如果真结束