Mscomm et écoute modem

**castorcharly** · 21/04/2010, 17h01

Bonjour,

je suis à la recherche d'info sur la manière de programmer un composant mscomm sous VB6, pour que le modem décroche sur un appel.

Actuellement, j'ai programmé un petit bout de code qui me montre que l'appel arrive bien, vu que je vois la chaîne "RING" s'afficher au fur et à mesure des sonneries, mais le modem ne décroche pas !

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Public Function InitPortCom() As Boolean
    InitPortCom = False
    With MSComm1
        If .PortOpen = True Then .PortOpen = False
            .Settings = "57600,N,8,1"
            .InBufferSize = 100
            .OutBufferSize = 1000
            .Handshaking = 2
            .EOFEnable = False
            .NullDiscard = False
            .RTSEnable = True
            .RThreshold = 1
            .SThreshold = 1
            .InputMode = comInputModeText
            .InputLen = 0
            .CommPort = 3
            On Error GoTo MessErr
            If .PortOpen = False Then .PortOpen = True
            On Error GoTo 0
            InitPortCom = True
            Exit Function
 
MessErr:
            MsgBox "No response from the selected COM port " & Trim(Str(ComPort)) & "! Please you must select an active COM port. Now the COM port 1 will be selected", vbCritical + vbOKOnly, "Error Message"
            .CommPort = 1
   On Error GoTo 0
    End With
 
End Function
 
Private Sub MSComm1_OnComm()
Dim buf As String
    Select Case MSComm1.CommEvent
        Case comEventBreak      ' On a reçu un signal d’interruption (Break)
            connected = False
 
        Case comEventCDTO       ' Timeout de la porteuse
        Case comEventCTSTO      ' Timeout du signal CTS (Clear To Send)
        Case comEventDSRTO      ' Timeout du signal de réception
        Case comEventFrame      ' Erreur de trame
        Case comEventOverrun    ' Des données ont été perdues
        Case comEventRxOver     ' Tampon de réception saturé
        Case comEventRxParity   ' Erreur de parité
        Case comEventTxFull     ' Tampon d’envoi saturé
        Case comEventDCB        ' Erreur de réception DCB (jamais vu)
 
        ' Liste des événements possibles qui sont, eux, normaux
        Case comEvCD            ' Changement dans la broche CD (porteuse)
        Case comEvCTS           ' Changement dans broche CTS
        Case comEvDSR           ' Changement dans broche DSR (réception)
        Case comEvRing          ' Changement dans broche RING (sonnerie)
 
        Case comEvSend          ' Il y a des caractères à envoyer
 
        Case comEvReceive
            Call ShReceiptEx(MSComm1.Input)
 
    End Select
 
End Sub
 
Private Sub ShReceiptEx(value As String)
    RichTextBox1.Text = RichTextBox1.Text + value
 
End Sub