(débutant) Pb avec Numérotateur Tél. sous vb6...

Question

Bonjour à tous(tes),

je viens de réaliser un petit numérotateur téléphonique avec vb6 sous xp (modem analogique USRobotics)
Le problème est que je peux lancer un premier appel et tout se passe apparement normalement mais je ne peux relancer derrière un second appel.
Le modem ne numérote pas et toute l'interface ne répond plus non +.
Là je sèche.
 Voici mon script d'appel :

Private Sub Appeler_Click()

'Définition des paramètres du port
MSComm1.Settings = "300,N,8,1"
'Ouverture du port
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
    st = "Le port COM" + Str(MSComm1.CommPort) + " est indisponible."
    st = st + "Séléctionnez un autre port COM dans le menu Port."
    MsgBox st
End If
Connexion:
' Purge du tampon d'entrée
'MSComm1.InBufferCount = 0
'
' Composition du numéro
Cde = "ATDT" + Téléphone.Text + ";" + Chr$(13)
MSComm1.Output = Cde
'
' Attente de la chaine Ok en provenance du modem
ok = False
Do ' S'il y a des données dans le tampon, les lit.
    If MSComm1.InBufferCount Then
        modem = modem + MSComm1.Input
        If InStr(modem, "OK") <> 0 Then
            MsgBox "Décrochez votre téléphone et appuyez sur OK !"
            ok = True
        End If
    End If
Loop Until ok = True
'
' Déconnexion du modem
Cde2 = "ATH" + Chr$(13)
MSComm1.Output = Cde2
'
' Fermeture du port
MSComm1.PortOpen = False

ça fait quelques temps que je sèche...
Vous avez une idée?
Merci !

Nesco

stacco · Answer

essai peut etre de reinitialiser le modem apres l'appel avec un ATZ=0 on sait jamais...

stacco :o)

nesco25 · Answer

Merci, éffectivement, ce modem avait besoin de se "rafraichir" les idées.
Merci encore !

Nesco

(débutant) Pb avec Numérotateur Tél. sous vb6...

2 réponses

Discussions similaires