怎么用WINSOCK获取其他应用发送过来的UDP数据包

如何用WINSOCK获取其他应用发送过来的UDP数据包？
本人想编写一个Cisco防火墙日志监控软件，因为Cisco防火墙日志是以UDP形式发送到指定的主机，能否用VB调用WINSOCK来获取由防火墙发送过来的UDP数据包，并进行后续实时分析和记录？
谢谢！

------解决方案--------------------
Public Sub InitSocket()

Const localport As Long = 1010 ' 该端口为防火墙发送数据的目标端口

Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.localport = localport
Winsock1.Bind localport

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim aData() As Byte
Winsock1.GetData aData(), vbByte + vbArray
'...
End Sub

------解决方案--------------------
把端口设定与CISCO发送的端口一样就可以
不过还要绑定哦!!