[VB6] Lettura log & winsock

[tyson69]

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!!

[Meldon]

Scusa, ma non ho capito esattamente dove e che problema hai riscontrato.

[tyson69]

Ciao!

beh in sostanza nel "Winsock1_DataArrival" non arriva nulla.....

io invece dovrei riuscire ad intercettare i log che il firewall mi invia al mio ip su quella determinata porta.....


Grazie x l'interessamento!

[tyson69]

....mi sorge un dubbio....

ma l'oggetto winsock mi permette di gestire una situazione del genere??

[Meldon]

Sinceramente non ne sono sicuro. Poi devi essere sicuro che il Firewall invii dati proprio su quelle porta.

Purtroppo non saprei dirti altro.

[tyson69]

beh riguardo all'invio dei dati da parte del fw ne sono certo, anche perchè con un syslogger riesco tranquillamente a ricevere i dati....