Question

vb中winsock向某IP某端口发送数据包

也就是说现在我知道某IP地址和与其连接的端口 ，我怎么用vb中winsock发送16进制的数据包？

Answer 1

VB中有Byte数组，可以利用这个数组发送数据吧
Dim OutBytes() as Byte

追问

那IP地址和与其连接的端口怎么设置（就是他应该赋值给哪个属性 是RemoteHost和RemotePort？）
还有个封包打开ID怎么设置
我是新手 麻烦说下

追答

1. 设置是连接方式或非连接方式
2. 然后IP地址和端口，的确是RemoteHost，RemotePort
3. 如果是连接方式的话，需要先执行Connect命令，如果非连接这步可以跳过
4. 发送数据

你说的封包打开ID？这个不明白。
也许有蛮长时间未接触这个，有新的操作方法。

追问

对不起 我还是没弄好 最后问一下吧 我用WPE截下了这个封包

我要怎么VB编程将封包"00 01 02”（这是随意写的）

放送给这个IP地址（麻烦把程序写一下）

麻烦了

追答

你还是没将清除，需要用什么方式通讯，是连接TCP还是不连接UDP的。
我UDP方式给你举例吧。

在Winsock控件编辑时，
Protocol 选1 – sckUDPProtocol
RemoteHost 填要连接到的机器的主机名或IP
RemotePort填远程端口
在 Form_load 事件中绑定本地端口
Private Sub Form_Load()
Winsock1.Bind 1000, LocalIP ‘ 这里1000是本地端口，LocalIP是本地IP地址
End Sub

再做个发送按钮
Private Sub Command1_Click()
Dim a() as binary
Redim a(2)
a(0) = 0
a(1) = 1
a(2) = 2
Winsock1.SendData aEnd Sub

追问

Option Explicit

 

Private Sub Form_Load()

        c.Bind 1518, "192.168.1.101"

End Sub

 

Private Sub Command1_Click()

Dim Buf() As Byte

ReDim Buf(43)

Buf(0) = &H6C

。

Buf(25) = &H64

。

Buf(42) = &H73（因为字数限制我就省略了中间的数据）

c.SendData Buf

End Sub

这是我写的   为什么没有效果（我发送过去不仅游戏中没有效果，而且用WPE截取也没有记录）

 

 

 

追答

1. 应在局域网内测试，以排除网络链路的问题
2. 检查WPE工具是否设置了正确的抓包参数

Answer 2

这个童鞋，这个你百度一下，实例大把的多(或者百度“VB网络编程”)，何必呢？

Answer 3

vb的有个 网络控件的吧！

追问

我知道 winsock嘛 但不会用啊