给宽带拨号加个拨号间隔

xiaota

给宽带拨号加个拨号间隔 在解决一下程序超出数组成员范围 1 崩溃问题


拨号间隔 写在判断IP下面加个编辑框

ADSL拨号换ip(改).e (874.36 KB, 下载次数: 10)

2021-1-30 23:04 上传

点击文件名下载附件



补充内容 (2021-1-30 23:06):
来个会易语言的帮忙改一下吧

诺言55

xiaota 发表于 2021-1-30 23:17
错误(14): 存在无效的字符、名称、运算符或表达式。
编译现行易程序失败或被中止!
...

我这边正常调试.........算了丢源码给你吧

诺言55

  

判断循环首 (真)
data ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://tbip.alicdn.com/api/queryip”, 0, , , , , , , , , , , , , , , , , ))
json.解析 (data)
IP ＝ json.取通用属性 (“data.ip”, )
地址 ＝ json.取通用属性 (“data.country”, ) ＋ “ ” ＋ json.取通用属性 (“data.region”, ) ＋ “ ” ＋ json.取通用属性 (“data.city”, )
分割IP ＝ 分割文本 (IP, “.”, )
如果真 (IP ＝ “” 或 取数组成员数 (分割IP) ＞ 3)
到循环尾 ()

IP1 ＝ 分割IP [1]
IP2 ＝ 分割IP [2]
IP3 ＝ 分割IP [3]
如果真 (编辑框_IP段.内容 ＝ IP1 ＋ “.” ＋ IP2 ＋ “.” ＋ IP3)
调试输出 (“进来”)
全局判断 ＝ “完成”
跳出循环 ()
延时 (100)
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .判断循环首 (真)<br />     data ＝ 编码_Utf8到Ansi (网页_访问_对象 (“<a href="https://tbip.alicdn.com/api/queryip" rel="nofollow" rel="nofollow" target="_blank">https://tbip.alicdn.com/api/queryip</a>”, 0, , , , , , , , , , , , , , , , , ))<br />     json.解析 (data)<br />     IP ＝ json.取通用属性 (“data.ip”, )<br />     地址 ＝ json.取通用属性 (“data.country”, ) ＋ “ ” ＋ json.取通用属性 (“data.region”, ) ＋ “ ” ＋ json.取通用属性 (“data.city”, )<br />     分割IP ＝ 分割文本 (IP, “.”, )<br />     .如果真 (IP ＝ “” 或 取数组成员数 (分割IP) ＞ 3)<br /> <br />         到循环尾 ()<br />     .如果真结束<br /> <br />     IP1 ＝ 分割IP [1]<br />     IP2 ＝ 分割IP [2]<br />     IP3 ＝ 分割IP [3]<br />     .如果真 (编辑框_IP段.内容 ＝ IP1 ＋ “.” ＋ IP2 ＋ “.” ＋ IP3)<br />         调试输出 (“进来”)<br />         全局判断 ＝ “完成”<br />         跳出循环 ()<br />     .如果真结束<br />     延时 (100)<br /> .判断循环尾 ()

拨号间隔 我没有看到啥问题  你把ip检测改成这样 应该就不会出现数组问题了..

xiaota

诺言55 发表于 2021-1-30 23:10
[e=0].版本 2
.支持库 spec

我这个程序好像没有写 拨号间隔 应该是没有间隔 断了直接立即拨号

诺言55

xiaota 发表于 2021-1-30 23:12
我这个程序好像没有写 拨号间隔 应该是没有间隔 断了直接立即拨号

  

变量名	类 型	静态	数组	备 注
bool	逻辑型
Adsl	ADSL拨号类
拨号次数	整数型
局_Ip	文本型
i	整数型
ip	文本型
IP段	文本型

判断循环首 (真)
提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “ADSL 正在切换ip......”)
Adsl.断开所有连接 ()
bool ＝ 假
延时 (3000)
Adsl.拨号_cmd (编辑框_连接名称.内容, 编辑框_宽带账号.内容, 编辑框_宽带密码.内容)
循环判断首 ()
bool ＝ Adsl.取连接状态 (编辑框_连接名称.内容)
延时 (3000)
提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “网络重连当中.....”)
循环判断尾 (bool ＝ 假)
ip ＝ 网页_取wai网IP ()
提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “当前IP：” ＋ ip ＋ “ 拨号次数【” ＋ 到文本 (拨号次数) ＋ “】”)
拨号次数 ＝ 拨号次数 ＋ 1
提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “ADSL 已经连上网络...”)
延时 (3000)
如果真 (全局判断 ＝ “完成”)
全局判断 ＝ “”
跳出循环 ()

判断循环尾 ()

.版本 2<br /> <br /> .局部变量 bool, 逻辑型<br /> .局部变量 Adsl, ADSL拨号类<br /> .局部变量 拨号次数, 整数型, 静态<br /> .局部变量 局_Ip, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 ip, 文本型<br /> .局部变量 IP段, 文本型<br /> <br /> .判断循环首 (真)<br />     提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “ADSL 正在切换ip......”)<br />     Adsl.断开所有连接 ()<br />     bool ＝ 假<br />     延时 (3000)<br />     Adsl.拨号_cmd (编辑框_连接名称.内容, 编辑框_宽带账号.内容, 编辑框_宽带密码.内容)<br />     .循环判断首 ()<br />         bool ＝ Adsl.取连接状态 (编辑框_连接名称.内容)<br />         延时 (3000)<br />         提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “网络重连当中.....”)<br />     .循环判断尾 (bool ＝ 假)<br />     ip ＝ 网页_取wai网IP ()<br />     提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “当前IP：” ＋ ip ＋ “ 拨号次数【” ＋ 到文本 (拨号次数) ＋ “】”)<br />     拨号次数 ＝ 拨号次数 ＋ 1<br />     提示 (到文本 (取现行时间 ()) ＋ “:” ＋ “ADSL 已经连上网络...”)<br />     延时 (3000)<br /> <br />     .如果真 (全局判断 ＝ “完成”)<br />         全局判断 ＝ “”<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

断开 延时3秒 然后拨号  你这都是写好的  你是不是照搬他人代码 都不看的...

xiaota

诺言55 发表于 2021-1-30 23:15
[e=0].版本 2

.局部变量 bool, 逻辑型

错误(14): 存在无效的字符、名称、运算符或表达式。
编译现行易程序失败或被中止!