多线程问题

wlnr

说不清的问题,直接上代码吧

1. .版本 2
   
2. .支持库 EThread
   
3. .支持库 iext
   
4. .支持库 ethreadnew
   
5. .支持库 spec
   
6. 
   
7. .程序集 窗口程序集1
   
8. .程序集变量 线程数, 整数型
   
9. .程序集变量 集_ip地址, 文本型, , "0"
   
10. 
    
11. .子程序 _按钮_导入_被单击
    
12. 
    
13. 
    
14. 启动线程 (&子程序_导入ip, , )
    
15. 
    
16. 
    
17. .子程序 子程序_导入ip
    
18. .局部变量 n, 整数型
    
19. 
    
20. .如果真 (通用对话框1.打开 ())
    
21.     集_ip地址 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    
22.     .计次循环首 (取数组成员数 (集_ip地址), n)
    
23.         超级列表框1.插入表项 (, 集_ip地址 [n], , , , )
    
24.     .计次循环尾 ()
    
25. .如果真结束
    
26. 
    
27. 
    
28. 
    
29. .子程序 _按钮_开始检测_被单击
    
30. .局部变量 n, 整数型
    
31. .局部变量 返回文本, 文本型
    
32. .局部变量 返回ip正则, 正则类
    
33. .局部变量 线程池句柄, 整数型
    
34. 
    
35. 返回文本 ＝ 网页访问s (“http://iframe.ip138.com/city.asp”, , , , , , , , , )
    
36. 返回ip正则.创建 (“您的IP是：\[(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\] 来自：(.*)</center></body></html>”, 返回文本)
    
37. 本机ip ＝ 返回ip正则.取子匹配文本 (1, 1)
    
38. 
    
39. 线程池句柄 ＝ 创建线程池 (5, 50, &子程序_检测, 10000, 1048576)  ' 5和10是说最少5个线程，最高10个线程
    
40. .计次循环首 (超级列表框1.取表项数 (), n)
    
41.     加入工作 (线程池句柄, n)
    
42. .计次循环尾 ()
    
43. 
    
44. .子程序 子程序_检测
    
45. .参数 参数, 整数型
    
46. .局部变量 返回ip正则, 正则类
    
47. .局部变量 返回文本, 文本型
    
48. .局部变量 许可证号, 整数型
    
49. 
    
50. 
    
51. 许可证号 ＝ 创建进入许可证 ()'---------------------------------------问题应该在这几句下面都用--------------标记
    
52. 进入许可区 (许可证号)'------------------------------------------------------
    
53. 
    
54. 置代理 (集_ip地址 [参数], , , )
    
55. 返回文本 ＝ 网页访问s (“http://iframe.ip138.com/city.asp”, , , , , , , , , )
    
56. 返回ip正则.创建 (“您的IP是：\[(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\] 来自：(.*)</center></body></html>”, 返回文本)
    
57. .如果真 (返回ip正则.取子匹配文本 (1, 1) ≠ 本机ip)
    
58.     超级列表框1.置标题 (参数, 1, “可用”)
    
59.     超级列表框1.置标题 (参数, 2, 返回ip正则.取子匹配文本 (1, 2))
    
60.     调试输出 (集_ip地址 [参数], 返回ip正则.取子匹配文本 (1, 2))
    
61. .如果真结束
    
62. 
    
63. 退出许可区 (许可证号)'---------------------------------------
    
64. 删除进入许可证 (许可证号)'---------------------------------
    

复制代码

小磊

许可证只要创建一个就可以了，你每次都创键，那个和没许可证是一样的