调用API函数实现的UDP+ICMP协议发包工具

线程数量 ＝ 到数值 (线程数量) ＋ 1
标签8.标题 ＝ “当前线程：” ＋ 到文本 (线程数量) ＋ “个”
.判断循环首 (是否继续)
函数_超级延时 (发包速度)
处理事件 ()
函数_发送数据包 (服务端句柄, 到文本 (取字节集长度 (数据信息)), 取字节集长度 (数据信息), 0, 地址信息, 16)
.判断循环尾 ()

.如果真 (组合框1.内容 ＝ “UDP”)
服务端句柄 ＝ 函数_创建套接字 (#AF_INET, #SOCK_DGRAM, #IPPROTO_UDP)
.如果真结束
.如果真 (组合框1.内容 ＝ “ICMP”)
服务端句柄 ＝ 函数_创建套接字 (#AF_INET, #SOCK_RAW, #IPPROTO_ICMP)
.如果真结束
.如果真 (组合框1.内容 ＝ “SYN”)
信息框 (“SYN未开发”, 0, )