如何才能跟TCP的ping一样实时的进行UDPping呢？

黑白帝

如何才能跟TCP的ping一样实时的进行UDPping呢？
因为最近开发项目需要用到，实时的ping某一个IP的TCP以及UDP，验证端口是否可通，因为有些IP是禁止ping的有没有什么办法呢？

Sh1eng

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
超时时间	整数型

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

超时时间 ＝ 1000  ' 默认超时1秒

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

变量名	类 型	静态	数组	备 注
IP地址	文本型
端口	整数型
TCP结果	逻辑型
UDP结果	逻辑型

IP地址 ＝ 编辑框_IP.内容
端口 ＝ 到整数 (编辑框_端口.内容)
TCP结果 ＝ TCP_Ping (IP地址, 端口, 超时时间)
UDP结果 ＝ UDP_Ping (IP地址, 端口, 超时时间)
编辑框_TCP结果.内容 ＝ 选择 (TCP结果, "端口开放", "端口关闭")
编辑框_UDP结果.内容 ＝ 选择 (UDP结果, "端口开放", "端口关闭或过滤")

子程序名	返回值类型	公开	备 注
TCP_Ping	逻辑型
参数名	类 型	参考	可空	数组	备 注
目标IP	文本型
目标端口	整数型
超时毫秒	整数型

变量名	类 型	静态	数组	备 注
客户Duan	客户Duan
开始时间	整数型
连接结果	逻辑型

连接结果 ＝ 假
开始时间 ＝ 取启动时间 ()
如果真 (客户Duan.连接 (目标IP, 目标端口))
连接结果 ＝ 真
客户Duan.断开连接 ()
' 使用多线程避免界面卡死
线程_启动 (&TCP连接线程, 目标IP, 目标端口, 连接结果)

判断循环首 (取启动时间 () － 开始时间 ＜ 超时毫秒)
程序_延时 (10)
如果真 (连接结果)
跳出循环 ()

判断循环尾 ()

返回 (连接结果)

子程序名	返回值类型	公开	备 注
TCP连接线程
参数名	类 型	参考	可空	数组	备 注
目标IP	文本型
目标端口	整数型
连接结果	逻辑型

变量名	类 型	静态	数组	备 注
客户Duan	客户Duan

.尝试
如果真 (客户Duan.连接 (目标IP, 目标端口))
连接结果 ＝ 真
客户Duan.断开连接 ()
.异常
连接结果 ＝ 假
.尝试结束

子程序名	返回值类型	公开	备 注
UDP_Ping	逻辑型
参数名	类 型	参考	可空	数组	备 注
目标IP	文本型
目标端口	整数型
超时毫秒	整数型

变量名	类 型	静态	数组	备 注
数据报	数据报
开始时间	整数型
响应数据	文本型
响应IP	文本型
响应端口	整数型

' 绑定随机本地端口
如果真 (数据报.绑定 (0) ＝ 假)
返回 (假)

' 发送UDP探测包
数据报.发送 (目标IP, 目标端口, 到字节集 ("UDP_PING_PROBE" ＋ 到文本 (取启动时间 ())))
开始时间 ＝ 取启动时间 ()
判断循环首 (取启动时间 () － 开始时间 ＜ 超时毫秒)
如果真 (数据报.取回数据 () ＞ 0)
响应数据 ＝ 到文本 (数据报.取数据 ())
数据报.取回地址 (响应IP, 响应端口)

' 验证响应来源
如果真 (响应IP ＝ 目标IP 且 响应端口 ＝ 目标端口)
返回 (真)

程序_延时 (50)
判断循环尾 ()
返回 (假)  ' 超时无响应

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

变量名	类 型	静态	数组	备 注
新超时	文本型

新超时 ＝ 输入框 ("设置超时时间 (毫秒):", "超时设置", 到文本 (超时时间))
如果真 (新超时 ≠ "")
超时时间 ＝ 到整数 (新超时)
编辑框_超时.内容 ＝ 到文本 (超时时间)

i支持库列表	支持库注释
sock	网络通讯支持库
EThread	多线程支持库

.版本 2<br /> .支持库 sock<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 超时时间, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     超时时间 ＝ 1000  ' 默认超时1秒<br /> <br /> .子程序 _按钮_检测_被单击<br /> .局部变量 IP地址, 文本型<br /> .局部变量 端口, 整数型<br /> .局部变量 TCP结果, 逻辑型<br /> .局部变量 UDP结果, 逻辑型<br /> <br /> IP地址 ＝ 编辑框_IP.内容<br /> 端口 ＝ 到整数(编辑框_端口.内容)<br /> <br /> TCP结果 ＝ TCP_Ping(IP地址, 端口, 超时时间)<br /> UDP结果 ＝ UDP_Ping(IP地址, 端口, 超时时间)<br /> <br /> 编辑框_TCP结果.内容 ＝ 选择(TCP结果, "端口开放", "端口关闭")<br /> 编辑框_UDP结果.内容 ＝ 选择(UDP结果, "端口开放", "端口关闭或过滤")<br /> <br /> .子程序 TCP_Ping, 逻辑型<br /> .参数 目标IP, 文本型<br /> .参数 目标端口, 整数型<br /> .参数 超时毫秒, 整数型<br /> .局部变量 客户Duan, 客户Duan<br /> .局部变量 开始时间, 整数型<br /> .局部变量 连接结果, 逻辑型<br /> <br /> 连接结果 ＝ 假<br /> 开始时间 ＝ 取启动时间()<br /> <br /> .如果真 (客户Duan.连接(目标IP, 目标端口))<br />     连接结果 ＝ 真<br />     客户Duan.断开连接()<br /> .否则<br />     ' 使用多线程避免界面卡死<br />     线程_启动(&TCP连接线程, 目标IP, 目标端口, 连接结果)<br />     <br />     .判断循环首 (取启动时间() － 开始时间 ＜ 超时毫秒)<br />         程序_延时(10)<br />         .如果真 (连接结果)<br />             跳出循环()<br />         .如果真结束<br />     .判断循环尾()<br /> .如果真结束<br /> <br /> 返回 (连接结果)<br /> <br /> .子程序 TCP连接线程<br /> .参数 目标IP, 文本型<br /> .参数 目标端口, 整数型<br /> .参数 连接结果, 逻辑型, 参考<br /> .局部变量 客户Duan, 客户Duan<br /> <br /> .尝试<br />     .如果真 (客户Duan.连接(目标IP, 目标端口))<br />         连接结果 ＝ 真<br />         客户Duan.断开连接()<br />     .如果真结束<br /> .异常<br />     连接结果 ＝ 假<br /> .尝试结束<br /> <br /> .子程序 UDP_Ping, 逻辑型<br /> .参数 目标IP, 文本型<br /> .参数 目标端口, 整数型<br /> .参数 超时毫秒, 整数型<br /> .局部变量 数据报, 数据报<br /> .局部变量 开始时间, 整数型<br /> .局部变量 响应数据, 文本型<br /> .局部变量 响应IP, 文本型<br /> .局部变量 响应端口, 整数型<br /> <br /> ' 绑定随机本地端口<br /> .如果真 (数据报.绑定(0) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 发送UDP探测包<br /> 数据报.发送(目标IP, 目标端口, 到字节集("UDP_PING_PROBE" ＋ 到文本(取启动时间())))<br /> <br /> 开始时间 ＝ 取启动时间()<br /> <br /> .判断循环首 (取启动时间() － 开始时间 ＜ 超时毫秒)<br />     .如果真 (数据报.取回数据() ＞ 0)<br />         响应数据 ＝ 到文本(数据报.取数据())<br />         数据报.取回地址(响应IP, 响应端口)<br />         <br />         ' 验证响应来源<br />         .如果真 (响应IP ＝ 目标IP 且 响应端口 ＝ 目标端口)<br />             返回 (真)<br />         .如果真结束<br />     .如果真结束<br />     程序_延时(50)<br /> .判断循环尾()<br /> <br /> 返回 (假)  ' 超时无响应<br /> <br /> .子程序 _按钮_设置_被单击<br /> .局部变量 新超时, 文本型<br /> <br /> 新超时 ＝ 输入框("设置超时时间(毫秒):", "超时设置", 到文本(超时时间))<br /> .如果真 (新超时 ≠ "")<br />     超时时间 ＝ 到整数(新超时)<br />     编辑框_超时.内容 ＝ 到文本(超时时间)<br /> .如果真结束

黑白帝

Sh1eng 发表于 2025-7-18 03:05
[e=1].版本 2
.支持库 sock
.支持库 EThread

大牛能否上传下源码

黑白帝

Sh1eng 发表于 2025-7-18 03:05
[e=1].版本 2
.支持库 sock
.支持库 EThread

刚才我按照你的写了有点问题，大牛能发一份源码dmeo吗