易飞鸟|鱼刺多线程IP端口扫描器

易飞鸟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
日志	类_日志输出
集_IP地址	文本型
线程池	鱼刺类_线程池Ex
多线程	鱼刺类_线程操作
集_许可证	整数型

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

变量名	类 型	静态	数组	备 注
IP分割	文本型		0
端口号	整数型

如果 (按钮_扫描.标题 ＝ “扫描”)
集_IP地址 ＝ 编辑框_IP.内容
IP分割 ＝ 分割文本 (集_IP地址, “.”, )
如果真 (取数组成员数 (IP分割) ≠ 4)
信息框 (“IP格式不对！”, 16, , )
返回 ()

多线程.置CPU亲和性 ()
多线程.创建 (&投递任务, , , , , , , , , )
按钮_扫描.标题 ＝ “停止”

线程池.销毁 (, )
多线程.强制结束 ()
多线程.关闭句柄 ()
_删除进入许可证 (集_许可证)
按钮_扫描.标题 ＝ “扫描”

子程序名	返回值类型	公开	备 注
投递任务

变量名	类 型	静态	数组	备 注
端口号	整数型
ret	逻辑型

集_许可证 ＝ _创建进入许可证 ()
线程池.创建 (10, 20, , , , , )
端口号 ＝ 1
判断循环首 (真)
如果真 (端口号 ≥ 65535)
跳出循环 ()

线程池.投递任务 (&端口测试, 端口号, )
调试输出 (到文本 (端口号))
端口号 ＝ 端口号 ＋ 1
延迟 (10)
判断循环尾 ()
判断循环首 (真)
如果真 (线程池.取_执行线程数 () ＝ 0)
线程池.销毁 (, )
多线程.强制结束 ()
多线程.关闭句柄 ()
_删除进入许可证 (集_许可证)
信息框 (“任务完成！”, 0, , )
跳出循环 ()
延迟 (1000)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
端口测试
参数名	类 型	参考	可空	数组	备 注
端口号	整数型

_进入许可区 (集_许可证)
状态条_提示信息.置文本 (1, “扫描” ＋ 到文本 (端口号) ＋ “端口中。。。”)
_退出许可区 (集_许可证)
如果真 (客户1.连接 (集_IP地址, 端口号))
_进入许可区 (集_许可证)
日志.输出编辑框 (编辑框_结果.取窗口句柄 (), “端口” ＋ 到文本 (端口号) ＋ “已开放！”, 0, )
_退出许可区 (集_许可证)
返回 ()

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

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 日志, 类_日志输出<br /> .程序集变量 集_IP地址, 文本型<br /> .程序集变量 线程池, 鱼刺类_线程池Ex<br /> .程序集变量 多线程, 鱼刺类_线程操作<br /> .程序集变量 集_许可证, 整数型<br /> <br /> .子程序 _按钮_扫描_被单击<br /> .局部变量 IP分割, 文本型, , "0"<br /> .局部变量 端口号, 整数型<br /> <br /> .如果 (按钮_扫描.标题 ＝ “扫描”)<br />     集_IP地址 ＝ 编辑框_IP.内容<br />     IP分割 ＝ 分割文本 (集_IP地址, “.”, )<br />     .如果真 (取数组成员数 (IP分割) ≠ 4)<br />         信息框 (“IP格式不对！”, 16, , )<br />         返回 ()<br />     .如果真结束<br /> <br />     多线程.置CPU亲和性 ()<br />     多线程.创建 (&投递任务, , , , , , , , , )<br />     按钮_扫描.标题 ＝ “停止”<br /> <br /> .否则<br />     线程池.销毁 (, )<br />     多线程.强制结束 ()<br />     多线程.关闭句柄 ()<br />     _删除进入许可证 (集_许可证)<br />     按钮_扫描.标题 ＝ “扫描”<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 投递任务<br /> .局部变量 端口号, 整数型<br /> .局部变量 ret, 逻辑型<br /> <br /> 集_许可证 ＝ _创建进入许可证 ()<br /> 线程池.创建 (10, 20, , , , , )<br /> <br /> 端口号 ＝ 1<br /> <br /> .判断循环首 (真)<br />     .如果真 (端口号 ≥ 65535)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     线程池.投递任务 (&端口测试, 端口号, )<br />     调试输出 (到文本 (端口号))<br />     端口号 ＝ 端口号 ＋ 1<br /> <br />     延迟 (10)<br /> <br /> .判断循环尾 ()<br /> <br /> .判断循环首 (真)<br />     .如果真 (线程池.取_执行线程数 () ＝ 0)<br />         线程池.销毁 (, )<br />         多线程.强制结束 ()<br />         多线程.关闭句柄 ()<br />         _删除进入许可证 (集_许可证)<br />         信息框 (“任务完成！”, 0, , )<br />         跳出循环 ()<br />     .如果真结束<br />     延迟 (1000)<br /> .判断循环尾 ()<br /> <br /> <br /> <br /> .子程序 端口测试<br /> .参数 端口号, 整数型<br /> <br /> _进入许可区 (集_许可证)<br /> 状态条_提示信息.置文本 (1, “扫描” ＋ 到文本 (端口号) ＋ “端口中。。。”)<br /> _退出许可区 (集_许可证)<br /> <br /> .如果真 (客户1.连接 (集_IP地址, 端口号))<br />     _进入许可区 (集_许可证)<br />     日志.输出编辑框 (编辑框_结果.取窗口句柄 (), “端口” ＋ 到文本 (端口号) ＋ “已开放！”, 0, )<br />     _退出许可区 (集_许可证)<br />     返回 ()<br /> .如果真结束

多线程端口扫描.zip (1.59 MB, 下载次数: 928)

2021-4-13 21:58 上传

点击文件名下载附件

lei45627

感谢分享~~~

ly520ly

谢谢楼主分享

fengyewl

谢谢楼主分享

670341236

谢谢楼主分享

杨明煜

支持分享..........

轩殇

11111111111111111111111

hsmin0016

感谢分享!!!

小E新手

支持开源，谢谢开源

五杀

五杀

感谢分享