求解为什么线程运行三五分钟后就会在挂起线程那里卡死

藏半杯水

  

子程序名	返回值类型	公开	备 注
_标签_换ip_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
adslip	文本型
a	整数型

编辑框_进度.加入文本 (“ 换ip中,请稍候 - - - - - -” ＋ #换行符 )
按钮_暂停.标题 ＝ “继续”
计次循环首 (取数组成员数 (句柄数组), a)
' 挂起线程 (句柄数组 [a])
' 处理事件 ()
' 高精度等待_改良版 (100)
线程_挂起 (句柄数组 [a])
计次循环尾 ()
循环判断首 ()
处理事件 ()
判断 (adslip ≠ “” 且 寻找文本 (ip组, adslip, , 假) ≠ -1)
标签_IP.标题 ＝ “ip重复,重新更换”
标签_IP.标题 ＝ “开始换ip”
运行 (“rasphone -h 宽带连接”, 真, 1)
高精度等待_改良版 (600)
标签_IP.标题 ＝ “换ip中,请稍等”
运行 (“rasdial 宽带连接 ” ＋ 编辑框_宽带账号.内容 ＋ “ ” ＋ 编辑框_宽带密码.内容, 真, 1)
高精度等待_改良版 (600)
' 返回数据 ＝ 到文本 (HTTP读文件 (“http://1111.ip138.com/ic.asp”))
adslip ＝ 网页_取外网IP ()
如果真 (adslip ＝ “”)
adslip ＝ 网页_取外网IP ()
标签_IP.标题 ＝ “换ip成功” ＋ adslip
循环判断尾 (寻找文本 (ip组, adslip, , 假) ≠ -1)
ip组 ＝ ip组 ＋ “|” ＋ adslip
调试输出 (adslip)
计次循环首 (取数组成员数 (句柄数组), a)
' 处理事件 ()
' 恢复线程 (句柄数组 [a])
' 高精度等待_改良版 (100)
线程_恢复 (句柄数组 [a])
计次循环尾 ()
按钮_暂停.标题 ＝ “暂停”
编辑框_进度.加入文本 (“ 换ip完成,继续工作 - - - - - -” ＋ #换行符 )

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _标签_换ip_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 adslip, 文本型<br /> .局部变量 a, 整数型<br /> <br /> 编辑框_进度.加入文本 (“ 换ip中,请稍候 - - - - - -” ＋ #换行符)<br /> 按钮_暂停.标题 ＝ “继续”<br /> .计次循环首 (取数组成员数 (句柄数组), a)<br /> ' 挂起线程 (句柄数组 [a])<br /> ' 处理事件 ()<br /> ' 高精度等待_改良版 (100)<br /> 线程_挂起 (句柄数组 [a])<br /> .计次循环尾 ()<br /> .循环判断首 ()<br /> 处理事件 ()<br /> .判断开始 (adslip ≠ “” 且 寻找文本 (ip组, adslip, , 假) ≠ -1)<br /> 标签_IP.标题 ＝ “ip重复,重新更换”<br /> .默认<br /> 标签_IP.标题 ＝ “开始换ip”<br /> .判断结束<br /> 运行 (“rasphone -h 宽带连接”, 真, 1)<br /> 高精度等待_改良版 (600)<br /> 标签_IP.标题 ＝ “换ip中,请稍等”<br /> 运行 (“rasdial 宽带连接 ” ＋ 编辑框_宽带账号.内容 ＋ “ ” ＋ 编辑框_宽带密码.内容, 真, 1)<br /> 高精度等待_改良版 (600)<br /> ' 返回数据 ＝ 到文本 (HTTP读文件 (“http://1111.ip138.com/ic.asp”))<br /> adslip ＝ 网页_取外网IP ()<br /> .如果真 (adslip ＝ “”)<br /> adslip ＝ 网页_取外网IP ()<br /> .如果真结束<br /> 标签_IP.标题 ＝ “换ip成功” ＋ adslip<br /> .循环判断尾 (寻找文本 (ip组, adslip, , 假) ≠ -1)<br /> ip组 ＝ ip组 ＋ “|” ＋ adslip<br /> 调试输出 (adslip)<br /> .计次循环首 (取数组成员数 (句柄数组), a)<br /> ' 处理事件 ()<br /> ' 恢复线程 (句柄数组 [a])<br /> ' 高精度等待_改良版 (100)<br /> 线程_恢复 (句柄数组 [a])<br /> .计次循环尾 ()<br /> 按钮_暂停.标题 ＝ “暂停”<br /> 编辑框_进度.加入文本 (“ 换ip完成,继续工作 - - - - - -” ＋ #换行符)

多线程工作的时候调用标签事件进行换ip,求解为什么线程运行三五分钟后就会在挂起线程那里卡死

藏半杯水

求大家帮忙解决..........

藏半杯水

顶

birdmanxp

标签反馈事件里重复挂起已经挂起的线程能不出错么?

藏半杯水

birdmanxp 发表于 2015-3-24 07:20
标签反馈事件里重复挂起已经挂起的线程能不出错么?

大牛,求教怎么改一下源码