bonjour,

j'ai déjà essayé de résoudre mon problème avec plusieurs petites solutions trouvé sur le net mais sans succès.

je vous explique donc mon problème :

j'ai un dongle bluetooth
un équipement bluetooth

le but : les relier par le bluetooth et les faire communiquer.

j'arrive à trouver mon équipement, à l'associer et à "ajouter" la liaison port com (visible par bthprops.cpl ds la console et dans l'onglet Ports COM).
je vois donc mon équipement associé à un port attribué au hasard.
de retour dans mon code, au moment d'initialiser le port, j'ai une erreur qui apparait me disant :

"Vous n'étiez pas connecté car il y avait un nom en double sur le réseau. Allez dans Système dans le Panneau de configuration et modifiez le nom de l'ordinateur et essayez à nouveau."


... lorsque je suis en pas-à-pas après avoir excécuté .open()

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
Private WithEvents portComVirtuel As New SerialPort
 
Public Sub InitPortCom(ByVal stNumPortSerie As String)
 
        Try
            If portComVirtuel.IsOpen = True Then
                portComVirtuel.Close()
            End If
 
 
            With portComVirtuel
                'Init des parametres
                .PortName = stNumPortSerie.Substring(0, 5)
                .BaudRate = 19200
                .Parity = IO.Ports.Parity.Even
                .Handshake = IO.Ports.Handshake.None
                .StopBits = IO.Ports.StopBits.One
 
 
                'Initialise le buffer
                .DiscardNull = True
 
                'Ouverture
                .Open()
 
            End With
 
        Catch ex As Exception
            MsgBox(ex.Message, , "Erreur à la connection")
        End Try
 
    End Sub
pourriez vous m'aider s'il vous plait
par avance merci