Bonjour,

Je suis en train d'essayer de comprendre comment utiliser les socket.
J'ai tapé le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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