精易论坛

标题: 求助枚举套接字的模块或类似的发送封包子程序... [打印本页]

作者: eric3513 时间: 2011-12-12 11:03
标题: 求助枚举套接字的模块或类似的发送封包子程序...
本帖最后由 eric3513 于 2011-12-12 11:10 编辑

枚举套接字.rar (118.64 KB, 下载次数: 183)
像软件中的功能一样
做个能枚举套接字功能，或者像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 时间: 2011-12-12 18:41
真的没人会么？？？

作者: 逆天书生 时间: 2012-6-5 16:00
观望呢。。。等着答案。。。

欢迎光临精易论坛 (https://125.confly.eu.org/)