[VB6 ] 如何抓取封包
我這有一台機器接著分享器 他會發送(廣播)一個封包
始用的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