[Debutant] vb.net 2003 et socket

Version imprimable

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

28/05/2007, 19h52
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?
28/05/2007, 23h45
Aspic

Salut,

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

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

++

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:

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:

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

29/05/2007, 15h14
Pol63

qu'y a t il de l'autre coté ?
29/05/2007, 15h19
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.
29/05/2007, 15h38
Aspic

Ton message d'erreur veux dire que soit l'IP est fausse soit le port n'est pas le meme que celui du serveur.

PS: si tu as un routeur chez toi, le serveur doit listen sur l'ip de ton routeur !! et le client doit se connecter sur ta vrai ip !! (pas celle en 192.168.XXX.XXX)

++
29/05/2007, 15h46
xavDIP

En fait il n'y a pas un routeur mais un switch.

Sinon je vais quand meme essayer ta solution.
Par contre comment je peux trouver ma vrai adresse IP? C'est pas celle qui est donnée par IPConfig?

MErci beaucoup.
29/05/2007, 15h48
Pol63

localhost est le nom de domaine de l'ip locale, ca devrait aller
par contre une fois que tu fais socket.connect il faut attendre que la connexion soit acceptée, par ton autre programme qui fera socket.accept
29/05/2007, 17h29
xavDIP

Bon j'y arrive pas, c'est pas grave je vais essayer d'utiliser les classes TcpClient, UdpClient et TcpListener.

Donc si tout va bien je crierai encore au secours...

Merci en tout cas.

A plus pour de nouvelles aventures!

Bon comme promis, je crie encore à l'aide....

J'essaye d'utiliser les classes que j'ai citées dans le post d'avant mais comme d'habitude j'y arrive pas...

Voici le code que j'ai écrit :

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
33
34
35
36
37
 
Option Strict On
 
Imports System.Net
Imports System.Net.Sockets
 
Module Module1
 
    Sub Main()
        Dim tcpClient As New System.Net.Sockets.TcpClient
        Dim adresseListener As IPAddress
        adresseListener = adresseListener.Parse("127.0.0.1")
        Dim tcpList As New System.Net.Sockets.TcpListener(adresseListener, 80)
 
        Dim MessageEnvoye As NetworkStream
        Dim MessageRecu As NetworkStream
 
        Dim BufferEnvoi As Byte() = System.Text.Encoding.ASCII.GetBytes("Test envoie de donnees")
        Dim BufferReception As Byte()
 
        tcpList.Start() 'début de l'écoute
        tcpClient.Connect("127.0.0.1", 80) 'le client se connecte au serveur
        tcpList.AcceptTcpClient() ' le serveur accpete la connexion du client
 
        MessageEnvoye.Write(BufferEnvoi, 0, BufferEnvoi.Length) 'le client envoi le NetworkStream
 
        MessageRecu.Read(BufferReception, 0, BufferEnvoi.Length) 'lecture du NetworkStream
        MessageEnvoye.Close()
        MessageRecu.Close()
 
        tcpClient.Close()
        System.Console.WriteLine(MessageRecu)
        tcpList.Stop()
 
    End Sub
 
End Module

Je ne sais pas du tout dans quel ordre il faut faire les choses pour que ça fonctionne correctement...:oops:

Le message d'erreur que j'ai lors de la compilation est :

Additional information: Une seule utilisation de chaque adresse de socket (protocole/adresse réseau/port) est habituellement autorisée

Et la ligne de code surlignée est la suivante :

Code:

1
2
 
tcpList.Start()

Merci beaucoup,

X@v'

29/05/2007, 18h12
Aspic

Mais non utilise les sockets !!

Pour trouver ta vrai Ip tu va sur www.whatismyip.com
29/05/2007, 18h17
xavDIP

Ok,

Est ce que tu pourrais me dire la difference entre les deux methodes que j'essaie d'utiliser?

Pourquoi est ce qu'il vaut mieux que j'utilise les sockets?

Merci.

X@v'
29/05/2007, 18h41
xavDIP

J'ai une erreur sur ma method socketServeur.Listen...

qu'est ce que je dois lui passer comme argument, car il me dit qu'il me faut un backlog As Integer donc moi, bete et discipliné, je lui mets un entier, mais il ne l'accepte pas... (j'ai essayé avec 1, 2, 20, 256...ou autres valeurs arbitraires et farfelues), il me dit que l'argument fourni n'est pas valide...

Sinon, j'ai créé 2 Projets Console, un qui fait office de client (c'est lui qui envoie le message) et le second qui fait office de serveur ( c'est lui qui reçoit le message). tu aurais fait comme ça toi?

Le but de la manip est juste de comprendre comment utiliser les sockets, car au bout de tout ça, je compte faire un petit service qui enverrai periodiquement une sorte de ping afin de vérifier le fonctionnement des clients...

Voila, Merci encore
29/05/2007, 19h21
xavDIP

Salut,

Juste un détail qui a son importance, nous avons un pare feu en entrée donc le site que tu m'as donné ne voit pas ma vraie adresse IP mais plutot celle du parefeu, non?

Je me suis connecté sur un autre poste pour essayer et il m'a retourné exactement la meme IP...

Bon enfin bref...

Merci encore
29/05/2007, 22h12
Aspic

Citation:

Envoyé par xavDIP

Ok,

Est ce que tu pourrais me dire la difference entre les deux methodes que j'essaie d'utiliser?

Pourquoi est ce qu'il vaut mieux que j'utilise les sockets?

Merci.

X@v'

Je ne suis pas expert en reseau mais en .NET on m'a toujours conseillé les Sockets et ca marche très bien !
30/05/2007, 08h50
Pol63

le pare feu n'a pas d'adresse ip enfin le pc où est le pare feu si mais la n'est pas la question

whatismyip.com retrouve ton ip internet
sur un réseau, tous les pc ont la meme ip internet et chacun une adresse ip locale

le principe d'une connexion socket :
client.connect
serveur.accept
à ce moment là, la connexion est établie et chacun peut envoyer
x.send
y.receive
un envoie et l'autre recoit

en vb6 j'utilisais l'objet winsock (qui doit etre encore utilisable en .net mais c'ests pas le but)
bref cet objet avait des évènement, que n'ont pas socket, tcpclient et tcplistener
les évènement était connexionrequest et data_arrival
sur connexionrequest on faisait connexion.Accept
et sur data_arrival on faisait receive en gros

j'ai pas encore eut à utiliser tcpclient et tcplisetener donc j'ai pas de code fonctionnel à te fournir, si j'ai 2 min j'essaierais de faire fonctionner
mais le peu que je m'étais deja renseigné, il fallait à mon avis s'orienter vers beginreceive par exemple qui permet de "créer" un evenement receive et de le renvoyer vers une sub et donc il y a surement une méthode qui permet de faire la meme chose pour accepter la connexion
car le serveur doit l'accepter seulement quand le client essaye de la créer
c'est pour ca que ton code ne peut pas fonctionner en l'état

une technique plus simple mais moins propre serait ptete de faire un timer à 100 ou 200
pour voir s'il y a une connexion en attente et faire accept (il doit y avoir une propriété pour dire l'état de la connexion)
et pour voir si le buffer est plein et faire un receive
30/05/2007, 10h40
Aspic

Tu t'en sors sinon je te fais une petite classe serveur/client en socket ... :lol:
30/05/2007, 11h27
Pol63

j'ai commencé mais j'ai été interrompu, j'sais pas quand je pourrais donner la source ...
et je ne comprends pas l'objet tcplistener alors je suis parti avec socket qu'a l'air plus complet

j'arrive à faire la connexion

voici le code de form1 qui est serveur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
    Private Serveur As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP)
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.Show()
        Dim hostIP As System.Net.IPAddress = System.Net.Dns.GetHostAddresses("localhost")(1) ' localhost renvoie toujours 127.0.0.1 qui est une ip locale
        Dim ep As New System.Net.IPEndPoint(hostIP, 150)
        Serveur.Bind(ep)
        Serveur.Listen(5) 'le backlog y disent que c'est le max de la file d'attente des clients qui attendent
        Serveur.BeginAccept(New System.AsyncCallback(AddressOf connexion_requested), Serveur)
    End Sub
 
    Private Sub connexion_requested(ByVal ar As System.IAsyncResult)
        Serveur.Accept()
    End Sub

voici le code de form2 qui est client :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
    Private Client As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP) 'trafic ip standard
 
 
    Private Sub BTNstartconnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNstartconnexion.Click
        Client.BeginConnect("localhost", 150, New System.AsyncCallback(AddressOf connexion_acceptee), Client)
    End Sub
 
    Private Sub connexion_acceptee(ByVal ar As System.IAsyncResult)
        MsgBox("client : " & Client.Connected)
    End Sub

client.connected passe bien à true avant de déclencher l'évènement connexion_acceptee

par contre pour envoyer il faut apparement un tableau d'octet, plutot contraignant ...
enfin j'ai pas trop de temps pour tester l'envoie pour l'instant

30/05/2007, 13h41
Aspic

POur l'envoi on est obliger de passer par un tableau de bytes donc il faut encoder les données avec la classe Encoding du namespace System.Text :)
30/05/2007, 13h56
xavDIP

Bonjour,

Désolé pour la réaction tardive, mais la ou je suis le matin je n'ai pas accès au net...

Donc je vais essayer avec ce que tu m'as donné comme source et je vais voir ce que ça donne.

Je vous tiens au courant,

Merci encore.

X@v'
30/05/2007, 14h01
Pol63

à priori si c'est juste pour savoir si l'autre logiciel est bien en cours d'execution, tu as meme pas besoin d'envoyer des choses
tu te fais un évènement qui intercepte la fin de connexion
dans cet évènement tu relances une connexion, si elle échoue, alors l'autre n'est plus là ...
30/05/2007, 14h29
xavDIP

Salut,

J'ai testé le code, j'ai fait quelques modifs car il y avait quleques petits pb... par contre je sais pas si je les ai faites correctement.

En tout cas, ça à l'air de fonctionner à une erreur près me disant : "Accept CallBack", mais si je fais "break" ça me sort une autre fenetre me disant "There is no source code available for the current location.".

Je clique alors sur "OK", je reclique sur le petit triangle (celui a coté de Pause et Stop), et la ça me sort le messagebox contenant "Client : True".

Alors je sais pas trop ce que c'est qaue cette erreur d'Accept CallBack, mais je vais essayer de trouver.

Merci,

Xav'

WHAOUHH!!! ça marche !! :yaisse2:

Merci les gars, sans vous je n'aurai pas réussi à faire ça...
J'ai modifié un peu le code, mais trois fois rien, j'ai meme compris ce que sont les callback...enfin a peu près!!

Du coup, au cas ou il y ait quelqu'un qui se pose les memes questions que moi, je mets le code :

Pour le Form1.vb :

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
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Serveur As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP)
 
    Private Sub connexion_requested(ByVal ar As System.IAsyncResult)
        Serveur.EndAccept(ar)
        MessageBox.Show("Connexion Acceptée")
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Form2 As New Form2
        Form2.Show()
        Dim Addr As IPAddress
        Addr = Addr.Parse("192.168.0.77")
        Dim hostIP As System.Net.IPAddress = Addr ' localhost renvoie toujours 127.0.0.1 qui est une ip locale
        Dim ep As New System.Net.IPEndPoint(hostIP, 150)
        Serveur.Bind(ep)
        Serveur.Listen(5) 'le backlog y disent que c'est le max de la file d'attente des clients qui attendent
        Serveur.BeginAccept(New System.AsyncCallback(AddressOf connexion_requested), Serveur)
    End Sub
 
    Private Sub btnQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click
        Me.Close()
    End Sub
End Class

Pour le Form2.vb :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Strict On
 
Imports System.Net
Imports System.Net.Sockets
 
Public Class Form2
    Inherits System.Windows.Forms.Form
 
    Private Client As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP) 'trafic ip standard
    Dim addr As System.Net.IPAddress
 
    Private Sub connexion_acceptee(ByVal ar As IAsyncResult)
        Client.EndConnect(ar)
        MsgBox("client : " & Client.Connected)
    End Sub
 
    Private Sub BTNstartconnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNstartconnexion.Click
        addr = addr.Parse("192.168.0.77")
        Client.BeginConnect(New IPEndPoint(addr, 150), New System.AsyncCallback(AddressOf connexion_acceptee), Client)
 
    End Sub
End Class

Du coup il ne reste plus qu'a créer un projet, 2 Windows Form (Form1 et Form2), Copier-Coller le code.

(Petite précision : ce code à été fait sous VIsual Studio 2003 avec le Framework .NET 1.1)

A plus et merci encore:D :D :D :D :D

X@v'

30/05/2007, 15h25
Pol63

moi j'étais sous 2005 et framework 2 c'est ptete pour ca que t'as eu une erreur en reprenant le code

sinon les callback, j'ai appelé ca des évnements car à priori ca renvoie sur une sub choisie dans un cas précis
et avec un peu de chance dans un nouveau thread ...