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

易飞鸟 · 发表于 2021-4-13 21:58:28

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
日志	类_日志输出
集_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, 下载次数: 1015)