begin process at 2012 02 13 18:22:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Périphériques

 > TÉLÉPHONER À PARTIR D'UN MODEM EN VB

TÉLÉPHONER À PARTIR D'UN MODEM EN VB


 Information sur la source

Note :
5,5 / 10 - par 2 personnes
5,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Périphériques Niveau :Débutant Date de création :24/12/2002 Date de mise à jour :21/02/2003 11:00:32 Vu / téléchargé :11 442 / 1 730

Auteur : aria95

Ecrire un message privé
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

 Description

La première mise à disposition de ce source fut rejetée :
Source supprimée

Désolé, cette source a été supprimée pour les raisons suivantes :
- Soit ce n'etait pas une source
- Soit ce n'etait qu'une publicité
- Soit le zip ne comportait qu'un fichier .exe
- Soit le zip contenait un virus
- Soit cette source n'etait pas "correcte" Virus, Hack, Piratage etc...
- Soit cette source a été postée en double
Ou pour une autre bonne raison dans ce genre.

ALORS QUE RIEN DE TOUT CELA NE CORRESPOND..
Je tente une seconde fois



Source

  • Private Sub DialButton_Click()
  • On Error GoTo TraiteErreur
  • Select Case DialButton.BackColor
  • Case &HC0FFC0
  • If IsNull(Data1.Recordset.Fields("Tel")) = False Or Len((Data1.Recordset.Fields("Tel"))) > 9 Then
  • DialButton.BackColor = &HFF&
  • MSComm1.PortOpen = True
  • ' Envoie la commande Attention au modem.
  • MSComm1.Output = "AT &F E0 H0 Q0 V1 &D2" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "AT X4" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "AT #CLS=8 #VLS=4 #VRN=0" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "ATM2" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "ATDT" & Data1.Recordset.Fields("Tel") & ";" & vbCrLf ' Vérifie que
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • If InStr(Buffer$, "NO DIALTONE") Then
  • Erreur 18
  • GoTo Coupe
  • End If
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "AT #CLS=8 #VLS=6 #VTD=3F,3F,3F" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "ATA" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "VCON" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "AT#VLS=6" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • MSComm1.Output = "AT#SPK=1,03,3" & vbCr
  • Do
  • DoEvents
  • If MSComm1.PortOpen = False Then Exit Sub
  • Buffer$ = Buffer$ & MSComm1.Input
  • Loop Until InStr(Buffer$, "OK" & vbCrLf)
  • Buffer$ = ""
  • DialButton.Enabled = True
  • Else
  • MSComm1.PortOpen = False
  • DialEncours = False
  • End If
  • Case &HFF&
  • Coupe:
  • DialButton.BackColor = &HC0FFC0
  • MSComm1.PortOpen = False
  • End Select
  • Exit Sub
  • TraiteErreur:
  • 'Resume err
  • DialButton.BackColor = &HC0FFC0
  • Resume Next
  • If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
  • DialEncours = False
  • Erreur 16
  • Exit Sub
  • End Sub
Private Sub DialButton_Click()
On Error GoTo TraiteErreur
Select Case DialButton.BackColor
    Case &HC0FFC0
        If IsNull(Data1.Recordset.Fields("Tel")) = False Or Len((Data1.Recordset.Fields("Tel"))) > 9 Then
            DialButton.BackColor = &HFF&
            MSComm1.PortOpen = True
            ' Envoie la commande Attention au modem.
            
            MSComm1.Output = "AT &F E0 H0 Q0 V1 &D2" & vbCr
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "AT X4" & vbCr
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "AT #CLS=8 #VLS=4 #VRN=0" & vbCr
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "ATM2" & vbCr
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "ATDT" & Data1.Recordset.Fields("Tel") & ";" & vbCrLf ' Vérifie que
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                    If InStr(Buffer$, "NO DIALTONE") Then
                        Erreur 18
                        GoTo Coupe
                    End If
                
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "AT #CLS=8 #VLS=6 #VTD=3F,3F,3F" & vbCr
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "ATA" & vbCr
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "VCON" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "AT#VLS=6" & vbCr
                Do
                    DoEvents
                    If MSComm1.PortOpen = False Then Exit Sub
                    Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            
            MSComm1.Output = "AT#SPK=1,03,3" & vbCr
                Do
                    DoEvents
                        If MSComm1.PortOpen = False Then Exit Sub
                        Buffer$ = Buffer$ & MSComm1.Input
                Loop Until InStr(Buffer$, "OK" & vbCrLf)
            Buffer$ = ""
            DialButton.Enabled = True
        Else
            MSComm1.PortOpen = False
            DialEncours = False
        End If
    Case &HFF&
Coupe:
        DialButton.BackColor = &HC0FFC0
        MSComm1.PortOpen = False
End Select

Exit Sub

TraiteErreur:
    'Resume err
DialButton.BackColor = &HC0FFC0
Resume Next
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
DialEncours = False
Erreur 16
Exit Sub
End Sub


 

 Conclusion

remplacer Data1.Recordset.Fields("Tel")  par le numéro de téléphone désiré
DialButton sera le bouton de prise de ligne

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) LIRE ET CHANGER LA LUMINOSITÉ DES ÉCRANS LCD (DE PORTABLE) C... par ShareVB
Source avec Zip Source avec une capture VISUAL BASIC ET MICROPROCESSEUR MBED par ccllee
Source avec Zip Source avec une capture Source .NET (Dotnet) VARIATEUR SECTEUR 11 VOIES SUR PORT SERIE OU USB par mays
Source avec Zip Source avec une capture PILOTER LES PORTS PARALLELES. par djebbipgm
Source avec Zip PILOTER LES PORT COMM DE PC par djebbipgm

Commentaires et avis

Commentaire de LordBob le 24/12/2002 14:12:27

avec un zip ca aurrai été beaucoup mieux

Commentaire de aria95 le 24/12/2002 14:49:58

Avec un zip ? Ne connais-tu pas la fonction Windows copier-collé ?
Si peu de ligne ne mérite pas un zip...

Si des améliorations peuvent être apportées... Ne vous génez pas..!

Commentaire de PatriceVB le 24/12/2002 16:31:31 administrateur CS

Cette source a été supprimée car tu l'avais postée sur ASPFrance alors qu'il s'agit d'une source VB (et non asp)...
Voilà l'explication, on ne supprime pas les sources sans raison, ne t'inquiète pas. De toute façon si tu penses qu'une de tes sources a été supprimée sans raison valable contacte un admin, il te répondra.
Pour contacter les admins : http://www.vbfrance.com/moderateurs.aspx
Choisis en un de connecté, il te répondra dès que possible.
@+
PatriceVB
Admin du réseau Codes-Sources.

Commentaire de aria95 le 24/12/2002 17:40:30

Merci de l'info, et désolé de m'être "gouré", peut-être que j'agit trop vite...
Merci tout de même...

Je fais partie de ces développeur qui recherchaient la solution pour avoir un téléphone main libre à partir de Vb alors je me suis empressé de proposer ma solution...

Bonnes fêtes à tous


Claude

Commentaire de nicodragon le 02/01/2003 16:31:58

.

Commentaire de JLN le 04/01/2003 09:46:35

Je voudrai pas me rendre critique mais si j'analyse rapidement ce source ce n'est qu'un dialer et dans la genre il y a plus court non ?

Commentaire de aria95 le 06/01/2003 08:59:12

Tout à fait d'accord avec toi, JLN dans la fonction telephone, c'est un dialer et je n'ai rien inventer, en revanche le petit plus c'est d'utiliser un modem "mains libres",  et à ma connaissance il n'en existe que deux auxquels on peut appliquer des commandes...
D'ici quelques jours je joindrai (en Zip), la doc des commandes...

Commentaire de vstudio le 23/03/2003 09:01:50

On attend la suite des commandes

Commentaire de yoman64 le 12/08/2003 21:38:07

trop cool je cherchais justement les commandes modem

Commentaire de JLN le 13/08/2003 06:55:07

Je testerai ca sur le OLITEC Self Memory 2000 et je porterai l'info ici. Sinon c'est effectivement plus qu'un simple dialer... Alors continu Aria95 tu nous interresses.

Bonne prog à tous
JLN

Commentaire de x0x le 17/07/2004 16:23:25

pas mal , sinon faut une source pour avoir 8/10

Commentaire de hammami1980 le 10/03/2005 14:56:17

Slt,

quelqu'un pourrai m'aider pour faire un soft me permettant de téléphoner et recevoir des appels depuis le modem de mon Pc , en faite remplacer mon téléphone fixe.
mon email:habdelkrim2004@yahoo.fr
Merci

Commentaire de ankou22 le 28/09/2005 22:06:59

Bonsoir,

pour yoman64 et les autres, j'ai trouvé ce lien qui contient la Référence des commandes AT voix

http://madchat.org/reseau/Commande%20AT%20VOCAL.htm

Pour ma part je cherche un exemple pour executer un fichier wav par l'intermédiaire d'un modem. pour utiliser comme repondeur telephonique ou envoi d'alerte  

aria95 peux tu présiser de kel model il s'agit ???

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,515 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales