作者shadow710 (雪豆)
看板Visual_Basic
标题[VB6 ] 如何抓取封包
时间Wed Apr 4 20:40:32 2007
我这有一台机器接着分享器 他会发送(广播)一个封包
始用的PROT是80 要怎样才可以用我的电脑接收他发送的封包?
我试过使用VB研究小站的方法改了一部份
不过没有成功
Private Sub Form_Load()
Winsock1.LocalPort = 3333
'设定自己Winsock的通讯埠
Winsock1.RemotePort = 80
'设定对方Winsock的通讯埠
Winsock1.Bind
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'Winscok收到资料时会呼叫的副程式
Dim TmpStr As String
Winsock1.GetData TmpStr, vbString
'Winsock的GetData要设为vbString，把送来的资料转为字串
Text1.Text = TmpStr & vbCrLf & Text1.Text
End Sub
恳请高手帮助 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.210.2.94