软件执行计次循环，会出现卡死情况，帮看看代码是否可以优化

我是MT

  

[font=宋体].支持库 iext

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

变量名	类 型	静态	数组	备 注
帐号	文本型
密码	文本型
昵称	文本型
验证码	文本型
captcha_id	文本型
N	整数型
计次	整数型
mail	文本型
key	文本型
图片数据	字节集
识别结果ID	整数型
验证码识别结果	文本型
code	文本型
返回验证码	文本型
激活链接	文本型
注册时间	文本型
mail_key	文本型
索引a	整数型
注册ip	文本型

N ＝ 主界面.超级列表框1.取表项数 ()
计次循环首 (N, 计次)
图片数据 ＝ 取验证码 ()  ' 改变全部变量captcha_id，cookie， 以及返回字节集图片数据
captcha_id ＝ captcha
图片框1.图片 ＝ 图片数据
返回验证码 ＝ 字节集识别 (图片数据)
mail ＝ 主界面.超级列表框1.取标题 (1, 1)
mail_key ＝ 主界面.超级列表框1.取标题 (1, 2)
key ＝ 取随机字符 (3, 0) ＋ 取随机字符 (4, 2)
昵称 ＝ 主界面.超级列表框1.取标题 (1, 3)
提交注册 (mail, key, 昵称, 返回验证码, captcha_id)  ' 提交了所有的数据，申账号
注册时间 ＝ 取当前时间 ()
注册ip ＝ http方式查外网IP ()
激活链接 ＝ 取激活链接 (mail, key)  ' 登录163邮箱，取出激活链接
网页访问s (激活链接, 0, , cookie, , , )
索引a ＝ 主界面.超级列表框_主窗口.插入表项 (, , , , , )
主界面.超级列表框_主窗口.置标题 (索引a, 0, 到文本 (索引a ＋ 1))
主界面.超级列表框_主窗口.置标题 (索引a, 1, mail)
主界面.超级列表框_主窗口.置标题 (索引a, 2, mail_key)
主界面.超级列表框_主窗口.置标题 (索引a, 3, 昵称)
主界面.超级列表框_主窗口.置标题 (索引a, 4, key)
主界面.超级列表框_主窗口.置标题 (索引a, 5, 注册时间)
主界面.超级列表框_主窗口.置标题 (索引a, 6, 注册ip)
更换IP ()
计次循环尾 ()[/font]

.版本 2<br /> <font face="宋体">.支持库 iext<br /> <br /> .子程序 _按钮_开始注册_被单击<br /> .局部变量 帐号, 文本型<br /> .局部变量 密码, 文本型<br /> .局部变量 昵称, 文本型<br /> .局部变量 验证码, 文本型<br /> .局部变量 captcha_id, 文本型<br /> .局部变量 N, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 mail, 文本型<br /> .局部变量 key, 文本型<br /> .局部变量 图片数据, 字节集<br /> .局部变量 识别结果ID, 整数型<br /> .局部变量 验证码识别结果, 文本型<br /> .局部变量 code, 文本型<br /> .局部变量 返回验证码, 文本型<br /> .局部变量 激活链接, 文本型<br /> .局部变量 注册时间, 文本型<br /> .局部变量 mail_key, 文本型<br /> .局部变量 索引a, 整数型<br /> .局部变量 注册ip, 文本型<br /> <br /> <br /> N ＝ 主界面.超级列表框1.取表项数 ()<br /> .计次循环首 (N, 计次)<br />     图片数据 ＝ 取验证码 ()  ' 改变全部变量captcha_id，cookie， 以及返回字节集图片数据<br />     captcha_id ＝ captcha<br />     图片框1.图片 ＝ 图片数据<br />     返回验证码 ＝ 字节集识别 (图片数据)<br />     mail ＝ 主界面.超级列表框1.取标题 (1, 1)<br />     mail_key ＝ 主界面.超级列表框1.取标题 (1, 2)<br /> <br />     key ＝ 取随机字符 (3, 0) ＋ 取随机字符 (4, 2)<br />     昵称 ＝ 主界面.超级列表框1.取标题 (1, 3)<br />     提交注册 (mail, key, 昵称, 返回验证码, captcha_id)  ' 提交了所有的数据，申账号<br />     注册时间 ＝ 取当前时间 ()<br />     注册ip ＝ http方式查外网IP ()<br />     激活链接 ＝ 取激活链接 (mail, key)  ' 登录163邮箱，取出激活链接<br />     网页访问s (激活链接, 0, , cookie, , , )<br /> <br />     索引a ＝ 主界面.超级列表框_主窗口.插入表项 (, , , , , )<br />     主界面.超级列表框_主窗口.置标题 (索引a, 0, 到文本 (索引a ＋ 1))<br />     主界面.超级列表框_主窗口.置标题 (索引a, 1, mail)<br />     主界面.超级列表框_主窗口.置标题 (索引a, 2, mail_key)<br />     主界面.超级列表框_主窗口.置标题 (索引a, 3, 昵称)<br />     主界面.超级列表框_主窗口.置标题 (索引a, 4, key)<br />     主界面.超级列表框_主窗口.置标题 (索引a, 5, 注册时间)<br />     主界面.超级列表框_主窗口.置标题 (索引a, 6, 注册ip)<br />     更换IP ()<br /> .计次循环尾 ()</font>

代码就是上面的，计次循环过程中里面有多个子程序，为何一起动程序就卡死呢。全部启动线程的话，要等一个线程执行完毕再执行另外一个。用什么指令比较好啊。 等待线程（，）好像不是很适合吧。补充：查了下原因，应该是拨号换IP这里卡死了。不知道有过经验的人 是如何处理的。

补充： 源码给出来了。大神看看。@492630000 @突袭 @一个人的下午茶

寻找星空

更换IP的地方卡了，或者是没有用线程启动，或者没有在循环中的尾部加处理时间，或者网页访问延迟，或者http方式查外网有问题，或者取验证码。等等。。。

我是MT

492630000 发表于 2014-10-3 00:32
更换IP的地方卡了，或者是没有用线程启动，或者没有在循环中的尾部加处理时间，或者网页访问延迟，或者http ...

我勒个去，看样子不能在VPS里面测试了，要在自己的电脑换IP测试下。

寻找星空

我是MT 发表于 2014-10-3 00:33
我勒个去，看样子不能在VPS里面测试了，要在自己的电脑换IP测试下。

问题可能性还是蛮多的，循环中执行的子程序和网页_访问这几个命令都有可能
，除了这些就剩下是否用线程启动，如果是那么就剩下处理事件这个命令。

突袭

把“_按钮_开始注册_被单击”子程序的代码放到一个新的子程序里然后在“_按钮_开始注册_被单击”子程序放下面的代码：
启动线程（&新的子程序）

我是MT

492630000 发表于 2014-10-3 00:35
问题可能性还是蛮多的，循环中执行的子程序和网页_访问这几个命令都有可能
，除了这些就剩下是否用线程 ...

我一一排查了下，应该是ASDL拨号换IP的时候，使用的是时钟，这个方法不行。我改成高精度等待()再测试下。单独拿出来那个拨号来测试。

一个人的下午茶

  在循环里面加个处理事件看下会不会好些吧

我是MT

一个人的下午茶 发表于 2014-10-3 08:40
在循环里面加个处理事件看下会不会好些吧

嗯。拨号换IP很卡，我用了论坛里面另外一个帖子的源码http://bbs.125.la/thread-98470-1-1.html

寻找星空

我是MT 发表于 2014-10-3 08:22
我一一排查了下，应该是ASDL拨号换IP的时候，使用的是时钟，这个方法不行。我改成高精度等待()再测试下。 ...

ADSL拨号用线程启动，建立一个拨号判断变量整数型，1为拨号成功，0为失败
判断循环首（中间处理事件），判断拨号判断变量=0，=0继续循环

突袭

我没有那个模块