IP扫描问题

黑色幽默ゞ

不知为何IP是对的，连接不了。单独连接是对的

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
IP扫描_线程池	鱼刺类_线程池Ex
IP扫描_临界	鱼刺类_临界许可
IP扫描_S	TCP
IP扫描_线程数	整数型
IP扫描_停止操作	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

IP扫描_线程数 ＝ 20

子程序名	返回值类型	公开	备 注
扫描IP段
参数名	类 型	参考	可空	数组	备 注
开始的IP	文本型
结束的IP	文本型

变量名	类 型	静态	数组	备 注
文本	文本型		0
cc	文本型
bx	整数型

' 本源码来自易语言资源网([url]www.5A5X.com[/url])
cc ＝ 开始的IP
超级列表框1.全部删除 ()
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (0, 1, cc)
超级列表框1.置状态图片 (0, 1)
判断循环首 (cc ≠ 结束的IP)
处理事件 ()
文本 ＝ 分割文本 (cc, “.”, )
bx ＝ 超级列表框1.插入表项 (, , , , , )
文本 [4] ＝ 到文本 (到整数 (文本 [4]) ＋ 1)
cc ＝ 文本 [1] ＋ “.” ＋ 文本 [2] ＋ “.” ＋ 文本 [3] ＋ “.” ＋ 文本 [4]
超级列表框1.置标题 (bx, 1, cc)
超级列表框1.置状态图片 (bx, 1)
判断循环尾 ()
' 本源码来自易语言资源网([url]www.5A5X.com[/url])

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

扫描IP段 (编辑框2.内容, 编辑框5.内容)

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

启动线程 (&IP扫描_启动_多线程, , )

子程序名	返回值类型	公开	备 注
IP扫描_启动_多线程

变量名	类 型	静态	数组	备 注
计次	整数型

如果真 (取反 (IP扫描_线程池.创建 (选择 (IP扫描_线程数 ＜ 1, 1, IP扫描_线程数), , , 假)))
调试输出 (“创建线程池失败”)
返回 ()
IP扫描_停止操作 ＝ 假
计次循环首 (超级列表框1.取表项数 (), 计次)
如果真 (IP扫描_线程池.取_状态 () ≠ #线程池_正在工作 )
返回 ()
如果真 (超级列表框1.取当前状态图片 (计次 － 1) ≠ 1)
到循环尾 ()
判断循环首 (IP扫描_线程池.取_空闲线程数 () ＜ 1)
程序_延时 (100)
判断循环尾 ()
如果真 (IP扫描_停止操作)
跳出循环 ()
IP扫描_线程池.投递任务 (&IP扫描_线程_执行, 计次, )
计次循环尾 ()
判断循环首 (取反 (IP扫描_线程池.取_是否空闲 ()))
程序_延时 (100)
判断循环尾 ()
IP扫描_线程池.销毁 (0, , 真)
调试输出 (“线程已停止”)

子程序名	返回值类型	公开	备 注
IP扫描_线程_执行
参数名	类 型	参考	可空	数组	备 注
索引	整数型

如果真 (IP扫描_S.连接 (超级列表框1.取标题 (索引 － 1, 1), 8395))  ' 5555
调试输出 (“连接成功”, 超级列表框1.取标题 (索引 － 1, 1))
IP扫描_停止操作 ＝ 真

' 程序_延时 (100)
超级列表框1.置状态图片 (索引 － 1, 0)
IP扫描_临界.进入 ()
超级列表框1.置标题 (索引 － 1, 2, “任务成功”)
IP扫描_临界.退出 ()

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

调试输出 (IP扫描_S.连接 (“192.168.3.219”, 8395))  ' 5555

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 IP扫描_线程池, 鱼刺类_线程池Ex<br /> .程序集变量 IP扫描_临界, 鱼刺类_临界许可<br /> .程序集变量 IP扫描_S, TCP<br /> .程序集变量 IP扫描_线程数, 整数型<br /> .程序集变量 IP扫描_停止操作, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> IP扫描_线程数 ＝ 20<br /> <br /> .子程序 扫描IP段<br /> .参数 开始的IP, 文本型<br /> .参数 结束的IP, 文本型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 cc, 文本型<br /> .局部变量 bx, 整数型<br /> <br /> ' 本源码来自易语言资源网(<a href="http://www.5A5X.com" rel="nofollow" rel="nofollow" target="_blank">www.5A5X.com</a>)<br /> cc ＝ 开始的IP<br /> 超级列表框1.全部删除 ()<br /> 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (0, 1, cc)<br /> 超级列表框1.置状态图片 (0, 1)<br /> .判断循环首 (cc ≠ 结束的IP)<br />     处理事件 ()<br />     文本 ＝ 分割文本 (cc, “.”, )<br />     bx ＝ 超级列表框1.插入表项 (, , , , , )<br />     文本 [4] ＝ 到文本 (到整数 (文本 [4]) ＋ 1)<br />     cc ＝ 文本 [1] ＋ “.” ＋ 文本 [2] ＋ “.” ＋ 文本 [3] ＋ “.” ＋ 文本 [4]<br />     超级列表框1.置标题 (bx, 1, cc)<br />     超级列表框1.置状态图片 (bx, 1)<br /> <br /> <br /> .判断循环尾 ()<br /> ' 本源码来自易语言资源网(<a href="http://www.5A5X.com" rel="nofollow" rel="nofollow" target="_blank">www.5A5X.com</a>)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 扫描IP段 (编辑框2.内容, 编辑框5.内容)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 启动线程 (&IP扫描_启动_多线程, , )<br /> <br /> .子程序 IP扫描_启动_多线程<br /> .局部变量 计次, 整数型<br /> <br /> .如果真 (取反 (IP扫描_线程池.创建 (选择 (IP扫描_线程数 ＜ 1, 1, IP扫描_线程数), , , 假)))<br />     调试输出 (“创建线程池失败”)<br />     返回 ()<br /> .如果真结束<br /> IP扫描_停止操作 ＝ 假<br /> .计次循环首 (超级列表框1.取表项数 (), 计次)<br />     .如果真 (IP扫描_线程池.取_状态 () ≠ #线程池_正在工作)<br />         返回 ()<br />     .如果真结束<br />     .如果真 (超级列表框1.取当前状态图片 (计次 － 1) ≠ 1)<br />         到循环尾 ()<br />     .如果真结束<br />     .判断循环首 (IP扫描_线程池.取_空闲线程数 () ＜ 1)<br />         程序_延时 (100)<br />     .判断循环尾 ()<br />     .如果真 (IP扫描_停止操作)<br />         跳出循环 ()<br />     .如果真结束<br />     IP扫描_线程池.投递任务 (&IP扫描_线程_执行, 计次, )<br /> .计次循环尾 ()<br /> .判断循环首 (取反 (IP扫描_线程池.取_是否空闲 ()))<br />     程序_延时 (100)<br /> .判断循环尾 ()<br /> IP扫描_线程池.销毁 (0, , 真)<br /> 调试输出 (“线程已停止”)<br /> <br /> .子程序 IP扫描_线程_执行<br /> .参数 索引, 整数型<br /> <br /> <br /> .如果真 (IP扫描_S.连接 (超级列表框1.取标题 (索引 － 1, 1), 8395))  ' 5555<br />     调试输出 (“连接成功”, 超级列表框1.取标题 (索引 － 1, 1))<br />     IP扫描_停止操作 ＝ 真<br /> .如果真结束<br /> <br /> ' 程序_延时 (100)<br /> 超级列表框1.置状态图片 (索引 － 1, 0)<br /> IP扫描_临界.进入 ()<br /> 超级列表框1.置标题 (索引 － 1, 2, “任务成功”)<br /> IP扫描_临界.退出 ()<br /> <br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 调试输出 (IP扫描_S.连接 (“192.168.3.219”, 8395))  ' 5555

黑色幽默ゞ

源码
新建文件夹 2.zip (2.01 MB, 下载次数: 3)

昨天 00:02 上传

点击文件名下载附件