Discussion :

[xavDIP]

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

[xavDIP]

En fait j'ai réussi à resoudre ce probleme...

Par contre maintenant j'en ai un autre, lors de l'execution j'ai un message d'erreur me disant que la connexion a été expressement refusée...
Est ce que l'un de vous saurait comment faire pour régler ça?

[Aspic]

Salut,

Ton code est bizarre pour l'utilisation des sockets...

Va voir la :
http://morpheus.developpez.com/reseauvbnet/

++

[xavDIP]

Salut,

Merci pour le lien, mais j'y suis déjà allé avant, mais je n'arrive pas a résoudre mon problème.

Le nouveau code que j'ai fait est le 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
 
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
        adresse = adresse.Parse("192.168.0.77")
        socket.Connect(New IPEndPoint(adresse, 80))
 
        System.Console.Write("espion")
        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)
 
        Dim MessageRecu(100) As Byte
        Dim OctetsRecus As Integer = socket.Receive(MessageRecu, 21, SocketFlags.None)
        socket.Shutdown(SocketShutdown.Both)
 
    End Sub
 
End Module

Et j'ai une fenetre qui me dit :
" An unhandled exception of type 'System.Net.Sockets.SocketException' occured in system.dll

Additional information : Aucune connexion n'a pu être établie car l'ordinateur cible l'a expressément refusée "

Et ça me surligne la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

socket.Connect(New IPEndPoint(adresse, 80))

[Pol63]

qu'y a t il de l'autre coté ?

[xavDIP]

Ben en fait je veux juste envoyer un message sur un socket et le lire via le meme poste.

Donc en fait des deux cotés, c'est mon pc qu'il y a...

C'est peut etre pas faisable... je sais pas, je n'y connais et comprends pas grand chose...

Merci.