宽带连接 换wai网IP 开机联网

曾先生

用之前必须电脑直接连接光猫，光猫必须要关闭路由功能，用桥接模式，不会的联系运营商。

  

.版本 2[/size]
[size=7].支持库 spec

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
提示
参数名	类 型	参考	可空	数组	备 注
参数一	文本型

编辑框_日记.加入文本 (参数一 ＋ #换行符 )

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

A ＝ 取启动时间 ()
' 执行 (, 取文本注册项 (#现行用户, “Software\” ＋ “ADSL账号”, ), , , )
编辑框1.内容 ＝ 取文本注册项 ( #现行用户, “Software\” ＋ “ADSL账号”, )
编辑框2.内容 ＝ 文本_解密 (取文本注册项 ( #现行用户, “Software\” ＋ “ADSL密码”, ), “117753525”)
调试输出 (取文本注册项 ( #现行用户, “Software\” ＋ “ADSL密码”, ))
调试输出 (编辑框2.内容)
如果 (取文本注册项 ( #现行用户, “Software\” ＋ “ADSL账号”, ) ＝ “”)
选择框1.选中 ＝ 假
选择框1.选中 ＝ 真
如果 (取文本注册项 ( #现行用户, “Software\” ＋ “ADSL密码”, ) ＝ “”)
选择框1.选中 ＝ 假
选择框1.选中 ＝ 真
如果 (取文本注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\开机启动例程”, ) ＝ “”)
选择框6.选中 ＝ 假
IP ＝ 到文本 (网页_访问_对象 (“https://ipv4.gdt.qq.com/get_client_ip”))
如果 (IP ≠ “”)
提示 (IP)
提示 (“未连接网络”)
选择框6.选中 ＝ 真
计次循环首 (10, )
IP ＝ 到文本 (网页_访问_对象 (“https://ipv4.gdt.qq.com/get_client_ip”))
如果真 (IP ≠ “”)
提示 (IP)
跳出循环 ()
Adsl.断开所有连接 ()
程序_延时 (1000)
Adsl.拨号_cmd (“宽带连接”, 编辑框1.内容, 编辑框2.内容)
程序_延时 (5000)
计次循环尾 ()
B ＝ 取启动时间 ()
调试输出 (“消耗时间:” ＋ 到文本 (B － A) ＋ “毫秒”)

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

变量名	类 型	静态	数组	备 注
id句柄

如果真 (按钮1.标题 ＝ “换IP”)
启动线程 (&开始执行, , id句柄)
如果真 (按钮1.标题 ＝ “停止”)
按钮1.标题 ＝ “换IP”
线程_销毁 (id句柄)

子程序名	返回值类型	公开	备 注
开始执行

按钮1.标题 ＝ “停止”
计次循环首 (30, )
提示 (“ADSL 正在切换ip......”)
Adsl.断开所有连接 ()
程序_延时 (1000)
Adsl.拨号_cmd (“宽带连接”, 编辑框1.内容, 编辑框2.内容)
程序_延时 (5000)
IP ＝ 到文本 (网页_访问_对象 (“https://ipv4.gdt.qq.com/get_client_ip”))
如果 (寻找文本 (编辑框_日记.内容, IP, , 假) ≠ -1)
提示 (“有重复IP，重新拨号”)
提示 (IP)
按钮1.标题 ＝ “换IP”
跳出循环 ()
调试输出 (IP)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
局_返回	文本型

局_返回 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“http://tq.360.cn/api/weatherquer ... amp;_=1652966509630”, 0, , , , , , , , , , , , , , , )))
_启动窗口.标题 ＝ 时间_格式化 (时间_取北京时间 (), “yyyy/M/d dddd ”, “tt h:mm:ss ”, ) ＋ 文本_取出中间文本 (局_返回, “info” ＋ #引号 ＋ “:” ＋ #引号, #引号 ) ＋ 文本_取出中间文本 (局_返回, “temperature” ＋ #引号 ＋ “:” ＋ #引号, #引号 )
' 调试输出 (时间_格式化 (时间_取北京时间 (), “yyyy/M/d dddd ”, “t hh:mm:ss”, ))

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

置现行时间 (时间_取北京时间 ())

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

关闭系统 ( #休眠, 真)

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

系统_强制注销 ()

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

系统_强制重启 ()

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

系统_强制关机 ()

子程序名	返回值类型	公开	备 注
_选择框1_被单击

如果 (选择框1.选中 ＝ 真)
写注册项 ( #现行用户, “Software\” ＋ “ADSL账号”, 编辑框1.内容)  ' 写开机启动项
写注册项 ( #现行用户, “Software\” ＋ “ADSL密码”, 文本_加密 (编辑框2.内容, “117753525”))  ' 写开机启动项
删除注册项 ( #现行用户, “Software\” ＋ “ADSL账号”)  ' 删除开机启动项
删除注册项 ( #现行用户, “Software\” ＋ “ADSL密码”)  ' 删除开机启动项
调试输出 (取文本注册项 ( #现行用户, “Software\” ＋ “ADSL账号”, ))

子程序名	返回值类型	公开	备 注
_选择框6_被单击

如果 (选择框6.选中 ＝ 真)
写注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\” ＋ “开机启动例程”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())  ' 写开机启动项
删除注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\” ＋ “开机启动例程”)  ' 删除开机启动项
调试输出 (取文本注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\开机启动例程”, ))

子程序名	返回值类型	公开	备 注
_超级链接框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

打开指定网址 (“http://192.168.1.1”)

i支持库列表	支持库注释
EThread	多线程支持库
shell	操作系统界面功能支持库
eAPI	应用接口支持库

.版本 2</font><br /> <font size="7">.支持库 spec<br /> .支持库 EThread<br /> .支持库 shell<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 提示, , 公开<br /> .参数 参数一, 文本型<br /> <br /> 编辑框_日记.加入文本 (参数一 ＋ #换行符)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> A ＝ 取启动时间 ()<br /> ' 执行 (, 取文本注册项 (#现行用户, “Software\” ＋ “ADSL账号”, ), , , )<br /> 编辑框1.内容 ＝ 取文本注册项 (#现行用户, “Software\” ＋ “ADSL账号”, )<br /> 编辑框2.内容 ＝ 文本_解密 (取文本注册项 (#现行用户, “Software\” ＋ “ADSL密码”, ), “117753525”)<br /> 调试输出 (取文本注册项 (#现行用户, “Software\” ＋ “ADSL密码”, ))<br /> 调试输出 (编辑框2.内容)<br /> .如果 (取文本注册项 (#现行用户, “Software\” ＋ “ADSL账号”, ) ＝ “”)<br />     选择框1.选中 ＝ 假<br /> .否则<br />     选择框1.选中 ＝ 真<br /> .如果结束<br /> .如果 (取文本注册项 (#现行用户, “Software\” ＋ “ADSL密码”, ) ＝ “”)<br />     选择框1.选中 ＝ 假<br /> .否则<br />     选择框1.选中 ＝ 真<br /> .如果结束<br /> .如果 (取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\开机启动例程”, ) ＝ “”)<br />     选择框6.选中 ＝ 假<br /> <br />     IP ＝ 到文本 (网页_访问_对象 (“<a href="https://ipv4.gdt.qq.com/get_client_ip" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">https://ipv4.gdt.qq.com/get_client_ip</a>”))<br />     .如果 (IP ≠ “”)<br />         提示 (IP)<br />     .否则<br />         提示 (“未连接网络”)<br />     .如果结束<br /> <br /> .否则<br />     选择框6.选中 ＝ 真<br />     .计次循环首 (10, )<br />         IP ＝ 到文本 (网页_访问_对象 (“<a href="https://ipv4.gdt.qq.com/get_client_ip" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">https://ipv4.gdt.qq.com/get_client_ip</a>”))<br />         .如果真 (IP ≠ “”)<br />             提示 (IP)<br />             跳出循环 ()<br />         .如果真结束<br />         Adsl.断开所有连接 ()<br />         程序_延时 (1000)<br />         Adsl.拨号_cmd (“宽带连接”, 编辑框1.内容, 编辑框2.内容)<br />         程序_延时 (5000)<br />     .计次循环尾 ()<br /> .如果结束<br /> B ＝ 取启动时间 ()<br /> 调试输出 (“消耗时间:” ＋ 到文本 (B － A) ＋ “毫秒”)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 id句柄<br /> <br /> .如果真 (按钮1.标题 ＝ “换IP”)<br />     启动线程 (&开始执行, , id句柄)<br /> .如果真结束<br /> .如果真 (按钮1.标题 ＝ “停止”)<br />     按钮1.标题 ＝ “换IP”<br />     线程_销毁 (id句柄)<br /> .如果真结束<br /> <br /> <br /> .子程序 开始执行<br /> <br /> 按钮1.标题 ＝ “停止”<br /> .计次循环首 (30, )<br />     提示 (“ADSL 正在切换ip......”)<br />     Adsl.断开所有连接 ()<br />     程序_延时 (1000)<br />     Adsl.拨号_cmd (“宽带连接”, 编辑框1.内容, 编辑框2.内容)<br />     程序_延时 (5000)<br />     IP ＝ 到文本 (网页_访问_对象 (“<a href="https://ipv4.gdt.qq.com/get_client_ip" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">https://ipv4.gdt.qq.com/get_client_ip</a>”))<br />     .如果 (寻找文本 (编辑框_日记.内容, IP, , 假) ≠ -1)<br />         提示 (“有重复IP，重新拨号”)<br />     .否则<br />         提示 (IP)<br />         按钮1.标题 ＝ “换IP”<br />         跳出循环 ()<br />     .如果结束<br />     调试输出 (IP)<br /> .计次循环尾 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 局_返回, 文本型<br /> <br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“<a href="http://tq.360.cn/api/weatherquery/querys?app=tq360&code=101271002&t=1652966509629&c=1653067780631&_jsonp=renderData&_=1652966509630" rel="nofollow" rel="nofollow" target="_blank">http://tq.360.cn/api/weatherquer ... amp;_=1652966509630</a>”, 0, , , , , , , , , , , , , , , )))<br /> _启动窗口.标题 ＝ 时间_格式化 (时间_取北京时间 (), “yyyy/M/d dddd ”, “tt h:mm:ss ”, ) ＋ 文本_取出中间文本 (局_返回, “info” ＋ #引号 ＋ “:” ＋ #引号, #引号) ＋ 文本_取出中间文本 (局_返回, “temperature” ＋ #引号 ＋ “:” ＋ #引号, #引号)<br /> ' 调试输出 (时间_格式化 (时间_取北京时间 (), “yyyy/M/d dddd ”, “t hh:mm:ss”, ))<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 置现行时间 (时间_取北京时间 ())<br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 关闭系统 (#休眠, 真)<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 系统_强制注销 ()<br /> <br /> .子程序 _按钮5_被单击<br /> <br /> 系统_强制重启 ()<br /> <br /> .子程序 _按钮6_被单击<br /> <br /> 系统_强制关机 ()<br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .如果 (选择框1.选中 ＝ 真)<br />     写注册项 (#现行用户, “Software\” ＋ “ADSL账号”, 编辑框1.内容)  ' 写开机启动项<br />     写注册项 (#现行用户, “Software\” ＋ “ADSL密码”, 文本_加密 (编辑框2.内容, “117753525”))  ' 写开机启动项<br /> .否则<br />     删除注册项 (#现行用户, “Software\” ＋ “ADSL账号”)  ' 删除开机启动项<br />     删除注册项 (#现行用户, “Software\” ＋ “ADSL密码”)  ' 删除开机启动项<br /> .如果结束<br /> 调试输出 (取文本注册项 (#现行用户, “Software\” ＋ “ADSL账号”, ))<br /> <br /> <br /> .子程序 _选择框6_被单击<br /> <br /> .如果 (选择框6.选中 ＝ 真)<br />     写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\” ＋ “开机启动例程”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())  ' 写开机启动项<br /> .否则<br />     删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\” ＋ “开机启动例程”)  ' 删除开机启动项<br /> .如果结束<br /> 调试输出 (取文本注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Run\开机启动例程”, ))<br /> <br /> <br /> .子程序 _超级链接框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 打开指定网址 (“http://192.168.1.1”)

cqcc

确实是好东西

fxchenglong1

{:3_48:}{:3_48:}{:3_48:}

曾先生

超级萌新 发表于 2022-9-21 17:52
其实你也可以直接用光猫切换

意思你有更快的免费切换IP方法？请指教

超级萌新

其实你也可以直接用光猫切换