[Debutant] vb.net 2003 et socket
Bonjour,
Je suis en train d'essayer de comprendre comment utiliser les socket.
J'ai tapé le code suivant
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
Option Strict On
Imports System.Net.Sockets
Imports System.Net
Module Module1
Sub Main()
Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim adresse As System.Net.IPAddress
socket.Connect(New IPEndPoint(adresse.Parse("192.168.0.73"), 80))
System.Console.Write("espion" + vbCrLf)
Dim connected As Boolean = socket.Connected()
System.Console.WriteLine(connected)
System.Console.WriteLine(adresse)
Dim Message As Byte() = System.Text.Encoding.ASCII.GetBytes("Test envoi de données")
Dim OctetsEnvoyes As Integer = socket.Send(Message, 0, Message.Length, SocketFlags.None)
socket.Shutdown(SocketShutdown.Both)
Dim socket2 As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
socket2.Connect(New IPEndPoint(adresse.Parse("192.168.0.73"), 80))
Dim MessageRecu As Byte()
Dim OctetsRecus As Integer = socket2.Receive(MessageRecu, 21, SocketFlags.None)
socket2.Shutdown(SocketShutdown.Both)
End Sub
End Module |
Le probleme que j'ai est que lorsque je veux lire le message envoyé, j'utilise la fonction receive... Lorsque je compile, j'ai une erreur me disant que MessageRecu est "NULL"...
Je n'arrive pas à initialiser la taille de MessageRecu....
Si quelqu'un a une idée, ça me serait super utile car là je suis quand même bien bloqué...
Bien à vous,
XavDIP