Envoie d'une chaine de caractère - VB/VBA/VBS - Programmation
MarshPosté 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 :
Imports System.Net.Sockets
Public Class Form1
Dim buffer As [Byte]()
Private Client As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP)
Private Sub BTNstartconnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click
Client.Connect("127.0.0.1", 88)
End Sub
Private Sub connexion_acceptee(ByVal ar As System.IAsyncResult)
MsgBox("client : " & Client.Connected)
End Sub
Public Sub ReceiveMessage()
If Not (Me.Client Is Nothing) AndAlso Me.Client.Connected Then
Dim Octetsrecus As Int32 = Me.Client.Receive(buffer, 0, buffer.Length, SocketFlags.None)
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:
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:
Merci d'avance pour votre aide.