Ciao a tutti!

Sto cercando di creare un prg che riceva dei dati (log)da un fw e quindi me li inserisca in un db etc, etc....

ho settatto il fw affinchè mi invii (al mio ip) su una certa porta i dati, ed ho iniziato il prg :


Private Sub Form_Load()

Winsock1.LocalPort = 514
Winsock1.Listen

End Sub

Private Sub Winsock1_DataArrival(ByVal BytesTotali As Long)

MsgBox "Dati in arrivo"
Dim Dati As String
Winsock1.GetData Dati, vbString
TextBox2.Text = Trim$(Dati)
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Errore: " & Number & vbCrLf & Description, vbCritical
End Sub
ma qui sembra tutto morto

qualche consiglio??

Grazie in anticipo!!