bossamiral2 Ctrl+Alt+Del | Code :
- Private Sub start1()
- Dim sendbuffer(2048) As Byte
- Dim mybuffer(2048) As Byte
- Dim i As Integer
- Dim s As String
- Dim c As String = ""
- sendbuffer = Encoding.ASCII.GetBytes("START" )
- sock1.Send(sendbuffer, sendbuffer.GetLength(0), SocketFlags.None)
- While i = 0
- sock1.Receive(mybuffer, 0, sock1.Available, SocketFlags.None)
- s = Encoding.ASCII.GetString(mybuffer)
- c += s
- i = InStr(1, s, "*", CompareMethod.Text)
- End While
- RaiseEvent Endrecieve(c)
- End Sub
|
En pas à pas je vois mon texte dans la varaible s, mais la copy dans la variable c ne se fait pas j'ai toujours une chaine vide.
Quelqu'un sait pourquoi ????? |
FORUM HardWare.fr
