Como enviar uma array por winsock???

 

 

Um abraço à todos

Não conheço uma forma direta, mas vc pode mandar o array separado por virgulas e depois remontar.

PE:

dim ArrayTeste as variant

Dim Buffer as string

ArrayTeste = array("a","b","c","d","e")

Buffer = Join(ArrayTeste,",") & ","

 

Para Remontar:

 

Dim ArrayMontado() As Variant
Dim Pos01 As Integer
Dim x As Integer

x = 0
Pos01 = 0
For i = 1 To Len(Buffer)
     If Mid(Buffer, i, 1) = "," Or i = Len(Buffer) Then
        ReDim Preserve ArrayMontado(x)
        ArrayMontado(x) = Mid(Buffer, Pos01 + 1, i - (Pos01 + 1))
        x = x + 1
        Pos01 = i
     End If
Next i