|
|
_标签_换ip_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | adslip | 文本型 | | | a | 整数型 | | |
编辑框_进度. 加入文本 (“ 换ip中,请稍候 - - - - - -” + #换行符 )按钮_暂停.标题 = “继续”计次循环首 (取数组成员数 (句柄数组 ), a ) 线程_挂起 (句柄数组 [a ])计次循环尾 ()循环判断首 ()处理事件 ()判断 (adslip ≠ “” 且 寻找文本 (ip组, adslip, , 假) ≠ -1 )标签_IP.标题 = “ip重复,重新更换”标签_IP.标题 = “开始换ip”运行 (“rasphone -h 宽带连接”, 真, 1)高精度等待_改良版 (600 )标签_IP.标题 = “换ip中,请稍等”运行 (“rasdial 宽带连接 ” + 编辑框_宽带账号.内容 + “ ” + 编辑框_宽带密码.内容, 真, 1 )高精度等待_改良版 (600 ) adslip = 网页_取外网IP ()如果真 (adslip = “”)adslip = 网页_取外网IP ()标签_IP.标题 = “换ip成功” + adslip循环判断尾 (寻找文本 (ip组, adslip, , 假) ≠ -1 )ip组 = ip组 + “|” + adslip 调试输出 (adslip )计次循环首 (取数组成员数 (句柄数组 ), a ) 线程_恢复 (句柄数组 [a ])计次循环尾 ()按钮_暂停.标题 = “暂停”编辑框_进度. 加入文本 (“ 换ip完成,继续工作 - - - - - -” + #换行符 )
多线程工作的时候调用标签事件进行换ip,求解为什么线程运行三五分钟后就会在挂起线程那里卡死
|
|