精易首发（原创）超强大的ADSL自动换IP源码，自动过滤重复IP，失败自动重新拨号

ma8803

  

子程序名	返回值类型	公开	备 注
重拨	文本型

变量名	类 型	静态	数组	备 注
重试次数	整数型
ip	文本型
url	文本型
yip	文本型
取IP	文本型
mu	文本型
mp	文本型
mi	文本型
mdu	文本型
mdp	文本型
ms	整数型
mcu	文本型
mcp	文本型
i	整数型

取IP ＝ 到文本 (HTTP读文件 (“http://20140507.ip138.com/ic.asp”))
取IP ＝ 文本_取出中间文本 (取IP, “您的IP是：[”, “]”)  ' 这里首先获取了本机当前的外网IP地址
判断 (组合框换IP方式.现行选中项 ＝ 0)
' 因为 组合框换IP方式目前仅有1个且默认选中就为0。所以执行重播()必定是执这里。
ADSL.断开 ()
加入日志 (“断开宽带”)
程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)
加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “秒开始换Ip”)
ADSL.重拨 (删全部空 (编辑框_连接名称.内容), 删全部空 (编辑框_ADSL账号.内容), 删全部空 (编辑框_ADSL密码.内容))
' 上面完成了重拨
加入日志 (“开始拨号换Ip”)
延时 (3000)
ip ＝ 取IP  ' 这里是把重播前的IP赋值给 IP变量

循环判断首 ()
加入日志 (“断开宽带”)
挂断 ()
程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)
加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “开始换Ip”)
拨号 (删全部空 (编辑框_连接名称.内容), 编辑框_ADSL账号.内容, 编辑框_ADSL密码.内容, 真, )
加入日志 (“开始拨号换Ip”)
ip ＝ 取IP
判断循环首 (ip ＝ “”)
延时 (50)
处理事件 ()
判断循环尾 ()
重试次数 ＝ 重试次数 ＋ 1
如果真 (重试次数 ＝ 到整数 (编辑框_失败重拨.内容))
加入日志 (“开始重拨!”)
返回 (“0.0.0.0”)

循环判断尾 (ip ＝ “”)
返回 (ip)  ' 返回拨号结果。但这里的IP 赋值好像依然是重播之前的IP而不是拨号后的IP吧。

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .子程序 重拨, 文本型<br /> .局部变量 重试次数, 整数型<br /> .局部变量 ip, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 yip, 文本型<br /> .局部变量 取IP, 文本型<br /> .局部变量 mu, 文本型<br /> .局部变量 mp, 文本型<br /> .局部变量 mi, 文本型<br /> .局部变量 mdu, 文本型<br /> .局部变量 mdp, 文本型<br /> .局部变量 ms, 整数型<br /> .局部变量 mcu, 文本型<br /> .局部变量 mcp, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 取IP ＝ 到文本 (HTTP读文件 (“http://20140507.ip138.com/ic.asp”))<br /> 取IP ＝ 文本_取出中间文本 (取IP, “您的IP是：[”, “]”)  ' 这里首先获取了本机当前的外网IP地址<br /> .判断开始 (组合框换IP方式.现行选中项 ＝ 0)<br />     ' 因为 组合框换IP方式目前仅有1个且默认选中就为0。所以执行重播()必定是执这里。<br />     ADSL.断开 ()<br />     加入日志 (“断开宽带”)<br />     程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)<br />     加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “秒开始换Ip”)<br />     ADSL.重拨 (删全部空 (编辑框_连接名称.内容), 删全部空 (编辑框_ADSL账号.内容), 删全部空 (编辑框_ADSL密码.内容))<br />     ' 上面完成了重拨<br />     加入日志 (“开始拨号换Ip”)<br />     延时 (3000)<br />     ip ＝ 取IP  ' 这里是把重播前的IP赋值给 IP变量<br /> <br /> .默认<br />     .循环判断首 ()<br />         加入日志 (“断开宽带”)<br />         挂断 ()<br />         程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)<br />         加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “开始换Ip”)<br />         拨号 (删全部空 (编辑框_连接名称.内容), 编辑框_ADSL账号.内容, 编辑框_ADSL密码.内容, 真, )<br />         加入日志 (“开始拨号换Ip”)<br />         ip ＝ 取IP<br />         .判断循环首 (ip ＝ “”)<br />             延时 (50)<br />             处理事件 ()<br />         .判断循环尾 ()<br />         重试次数 ＝ 重试次数 ＋ 1<br />         .如果真 (重试次数 ＝ 到整数 (编辑框_失败重拨.内容))<br />             加入日志 (“开始重拨!”)<br />             返回 (“0.0.0.0”)<br />         .如果真结束<br /> <br />     .循环判断尾 (ip ＝ “”)<br /> <br /> .判断结束<br /> 返回 (ip)  ' 返回拨号结果。但这里的IP 赋值好像依然是重播之前的IP而不是拨号后的IP吧。

这个命令是我看错了呢还是怎么的

我感觉 重拨的返回IP内容 其实是换号前的IP 而不是换号后的IP呢

难道是我阅读错误 或者是 思路错误了？ 楼楼能帮忙解答下么

ma8803

  

子程序名	返回值类型	公开	备 注
重拨	文本型

变量名	类 型	静态	数组	备 注
重试次数	整数型
ip	文本型
url	文本型
yip	文本型
取IP	文本型
mu	文本型
mp	文本型
mi	文本型
mdu	文本型
mdp	文本型
ms	整数型
mcu	文本型
mcp	文本型
i	整数型

取IP ＝ 到文本 (HTTP读文件 (“http://20140507.ip138.com/ic.asp”))
取IP ＝ 文本_取出中间文本 (取IP, “您的IP是：[”, “]”)  ' 这里首先获取了本机当前的外网IP地址
判断 (组合框换IP方式.现行选中项 ＝ 0)
' 因为 组合框换IP方式目前仅有1个且默认选中就为0。所以执行重播()必定是执这里。
ADSL.断开 ()
加入日志 (“断开宽带”)
程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)
加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “秒开始换Ip”)
ADSL.重拨 (删全部空 (编辑框_连接名称.内容), 删全部空 (编辑框_ADSL账号.内容), 删全部空 (编辑框_ADSL密码.内容))
' 上面完成了重拨
加入日志 (“开始拨号换Ip”)
延时 (3000)
ip ＝ 取IP  ' 这里是把重播前的IP赋值给 IP变量

循环判断首 ()
加入日志 (“断开宽带”)
挂断 ()
程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)
加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “开始换Ip”)
拨号 (删全部空 (编辑框_连接名称.内容), 编辑框_ADSL账号.内容, 编辑框_ADSL密码.内容, 真, )
加入日志 (“开始拨号换Ip”)
ip ＝ 取IP
判断循环首 (ip ＝ “”)
延时 (50)
处理事件 ()
判断循环尾 ()
重试次数 ＝ 重试次数 ＋ 1
如果真 (重试次数 ＝ 到整数 (编辑框_失败重拨.内容))
加入日志 (“开始重拨!”)
返回 (“0.0.0.0”)

循环判断尾 (ip ＝ “”)
返回 (ip)  ' 返回拨号结果。但这里的IP 赋值好像依然是重播之前的IP而不是拨号后的IP吧。

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .子程序 重拨, 文本型<br /> .局部变量 重试次数, 整数型<br /> .局部变量 ip, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 yip, 文本型<br /> .局部变量 取IP, 文本型<br /> .局部变量 mu, 文本型<br /> .局部变量 mp, 文本型<br /> .局部变量 mi, 文本型<br /> .局部变量 mdu, 文本型<br /> .局部变量 mdp, 文本型<br /> .局部变量 ms, 整数型<br /> .局部变量 mcu, 文本型<br /> .局部变量 mcp, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 取IP ＝ 到文本 (HTTP读文件 (“http://20140507.ip138.com/ic.asp”))<br /> 取IP ＝ 文本_取出中间文本 (取IP, “您的IP是：[”, “]”)  ' 这里首先获取了本机当前的外网IP地址<br /> .判断开始 (组合框换IP方式.现行选中项 ＝ 0)<br />     ' 因为 组合框换IP方式目前仅有1个且默认选中就为0。所以执行重播()必定是执这里。<br />     ADSL.断开 ()<br />     加入日志 (“断开宽带”)<br />     程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)<br />     加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “秒开始换Ip”)<br />     ADSL.重拨 (删全部空 (编辑框_连接名称.内容), 删全部空 (编辑框_ADSL账号.内容), 删全部空 (编辑框_ADSL密码.内容))<br />     ' 上面完成了重拨<br />     加入日志 (“开始拨号换Ip”)<br />     延时 (3000)<br />     ip ＝ 取IP  ' 这里是把重播前的IP赋值给 IP变量<br /> <br /> .默认<br />     .循环判断首 ()<br />         加入日志 (“断开宽带”)<br />         挂断 ()<br />         程序_延时 (到整数 (编辑框_挂断延迟.内容) × 1000)<br />         加入日志 (“软件延迟” ＋ 编辑框_挂断延迟.内容 ＋ “开始换Ip”)<br />         拨号 (删全部空 (编辑框_连接名称.内容), 编辑框_ADSL账号.内容, 编辑框_ADSL密码.内容, 真, )<br />         加入日志 (“开始拨号换Ip”)<br />         ip ＝ 取IP<br />         .判断循环首 (ip ＝ “”)<br />             延时 (50)<br />             处理事件 ()<br />         .判断循环尾 ()<br />         重试次数 ＝ 重试次数 ＋ 1<br />         .如果真 (重试次数 ＝ 到整数 (编辑框_失败重拨.内容))<br />             加入日志 (“开始重拨!”)<br />             返回 (“0.0.0.0”)<br />         .如果真结束<br /> <br />     .循环判断尾 (ip ＝ “”)<br /> <br /> .判断结束<br /> 返回 (ip)  ' 返回拨号结果。但这里的IP 赋值好像依然是重播之前的IP而不是拨号后的IP吧。

这个命令是我看错了呢还是怎么的

我感觉 重拨的返回IP内容 其实是换号前的IP 而不是换号后的IP呢
加入我当前外网是 222.222.222.222
重播后得到 222.222.222.223
但这个返回的好像是  222.222.222.222 ？  
难道是我阅读错误 或者是 思路错误了？ 楼楼能帮忙解答下么

cychina2007

谢谢了......

a83669220

ADSL自动换IP源码

fengzheng003

支持开源~精易有你更精彩

ck66

谢谢分享源码

沐紫萌

留个脚印 我是路由器拨号

jiangsiyi

我要恢复！！！！！！！！！！！！！！！！！！！！

捞完源码就闪人

好给力啊,但是你IP换多了,后面可用的IP很少!

改名字好难

支持开源~精易有你更精彩。