求助 枚举套接字 的模块 或类似的发送封包子程序...

eric3513

枚举套接字.rar (118.64 KB, 下载次数: 183)

2011-12-12 10:52 上传

点击文件名下载附件
就像这样的软件

像软件中的功能一样
做个能枚举套接字功能，或者 像http://www.zuowg.com/wg/wg3/33.html 网页中的枚举套接字()与send()发送封包一样的功能
或者给个全破J的万挂作坊3.0的模块也行
这个功能是万挂作坊3.0中的功能 ！
[e]
.版本 2
.程序集 窗口程序集1, , ,  
.子程序 _窗口1_创建完毕
窗口1.标题 ＝ “枚举套接字 [” ＋ 取执行文件名 () ＋ “]”
.子程序 _组合框1_将弹出列表
.局部变量 套接字信息, 套接字信息, , "0"
.局部变量 项目文本, 文本型
.局部变量 计次, 整数型
组合框1.清空 ()
.计次循环首 (枚举套接字 (-1, 套接字信息), 计次)
    项目文本 ＝ “S=” ＋ 到文本 (套接字信息 [计次].套接字) ＋ “ 本地=” ＋ 整数型IP到文本型 (套接字信息 [计次].本地地址) ＋ “:” ＋ 到文本 (套接字信息 [计次].本地端口) ＋ “ 远程=” ＋ 整数型IP到文本型 (套接字信息 [计次].远程地址) ＋ “:” ＋ 到文本 (套接字信息 [计次].远程端口)
    组合框1.加入项目 (项目文本, 套接字信息 [计次].套接字)
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 套接字, 整数型
.局部变量 封包, 字节集
套接字 ＝ 组合框1.取项目数值 (组合框1.现行选中项)
.如果真 (套接字 ＞ 0)
    封包 ＝ 到字节集 (编辑框1.内容)
    ' 注意.TCP套接字用 send() 发送封包.UDP套接字用 sendto() 发送封包
    ' 发送的封包是被远端接收的.所以不要企图给本地端发送封包
    send (套接字, 封包, 取字节集长度 (封包), 0)
.如果真结束

[/e]

eric3513

真的没人会么 ？？？

逆天书生

观望呢。。。等着答案。。。