Envoie d'une chaine de caractère

Envoie d'une chaine de caractère - VB/VBA/VBS - Programmation

Marsh Posté le 19-01-2012 à 10:12:16    

Bonjour à tous,
j'aimerai faire communiquer deux applications, en envoyant par ex une chaine de caractère pour commencer et j'utilise les sockets.
mais j'ai un problème avec mon code vb.net :
voila l'erreur:

Citation :

Aucune connexion n’a pu être établie car l’ordinateur cible l’a expressément refusée 127.0.0.1:88


 
Sachant que j'utilise le même port dans le code de l'autre application, et je suis sur le même pc.
 
voila le code:

Code :
  1. Imports System.Net.Sockets
  2. Public Class Form1
  3.     Dim buffer As [Byte]()
  4.     Private Client As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP)
  5.     Private Sub BTNstartconnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click
  6.     Client.Connect("127.0.0.1", 88)
  7.     End Sub
  8.     Private Sub connexion_acceptee(ByVal ar As System.IAsyncResult)
  9.         MsgBox("client : " & Client.Connected)
  10.     End Sub
  11.     Public Sub ReceiveMessage()
  12.         If Not (Me.Client Is Nothing) AndAlso Me.Client.Connected Then
  13.             Dim Octetsrecus As Int32 = Me.Client.Receive(buffer, 0, buffer.Length, SocketFlags.None)
  14.             MsgBox("result:", Octetsrecus)
  15.         End If
  16.     End Sub
  17. End Class


 
Merci d'avance pour votre aide.

Reply

Marsh Posté le 19-01-2012 à 10:12:16   

Reply

Marsh Posté le 24-01-2012 à 10:57:01    

quelqu'un pour m'aider svp.

Reply

Marsh Posté le 01-02-2012 à 13:43:06    

L'appli serveur est t'elle lancée ? écoute t'elle sur le port 88 ?


---------------
Quand on aime on ne compte pas. Quel Dilemme lorsque l'on aime compter !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed