winsock 2008 getdata

j'ai un probleme au niveau d'utilisation de winsock en vb2008 :pour la fonction getdata,peut-etre ne fonctionne pas.y-a-t-il une methode pour recuperer les donnees?pour mon code ,il est comme suit:

Code:

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

est-il juste ce code pour recuperer les donnees:c'est une connection client/serveur avec le protocole UDP.