1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub ws_DataArrival(ByVal Sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles ws.DataArrival
Dim tDest As Object
Dim found As Object
Dim t As Integer
Dim iPoste As Object
Dim tablo As Object
StrData = ""
ws.GetData(StrData)
Dim fso As New Scripting.FileSystemObject
If debugT = True Then
If fso.FileExists(My.Application.Info.DirectoryPath & "\traceUDP.txt") Then fso.DeleteFile(My.Application.Info.DirectoryPath & "\traceUDP.txt")
FileOpen(99, My.Application.Info.DirectoryPath & "\traceUDP.txt", OpenMode.Append)
PrintLine(99, StrData)
FileClose(99)
End If |
Partager