Comment faire des appels téléphoniques avec visual basic

Automatiser appels téléphoniques avec VB.NET.

Avoir la connaissance de la façon de faire des appels téléphoniques à partir d`un Microsoft Visual Basic.NET (VB.NET) application peut vous faire gagner du temps si vous avez besoin de faire des appels en continu. VB.NET est un langage de programmation informatique utilisé pour créer mobile, Web et des applications de bureau. Faire des appels téléphoniques de VB.NET peuvent être accomplies en utilisant l`interface de programmation d`application téléphonique (TAPI). TAPI donne les programmeurs les couches nécessaires pour accéder au Microsoft Téléphonie DLL (bibliothèques de liens dynamiques). Téléphonie intègre des ordinateurs avec des périphériques tels que les caméras et les réseaux Internet.

Choses que vous devez

Microsoft Visual Basic Express

Démarrez Microsoft Visual Basic Express, cliquez sur "Nouveau projet..." dans le volet gauche de votre écran et sélectionnez "Application Windows Forms." Cliquez "D`ACCORD."
Double-cliquez sur "Bouton" sur le "Caisse à outils" d`ajouter un nouveau bouton. Double-cliquez sur "Étiquette" d`ajouter une étiquette. Ajouter une seconde étiquette en utilisant le même procédé. Double-cliquez sur "Zone de texte" pour ajouter une zone de texte.
Double-cliquez sur "Button1" pour ouvrir la "Form1.vb"module. Copiez et collez le texte suivant dans la première ligne du module:
Importations System.Windows.Forms

Copiez et collez le suivant pour déclarer la TAPI32 DLL sous "Public Class Form1" mais au-dessus du "Button1_Click" procédure:

Declare Function Auto tapiRequestMakeCall Lib "tapi32.dll" _(ByVal DestAddress As String, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Commentaire As String) As Integer
Const TAPIERR_NOREQUESTRECIPIENT Comme court = -2
Const TAPIERR_REQUESTQUEUEFULL Comme court = -3
Const TAPIERR_INVALDESTADDRESS Comme court = -4

le "Button1_Click" procédure a été créée lorsque vous double-cliqué "Button1" sur votre formulaire.

Copiez et collez le texte suivant à l`intérieur du "Button1_Click" procédure pour créer vos variables:

Dim phoneNum As String


Dim TResult Comme Court
Dim tmpStr As String

le "Button1_Click" procédure a été créée lorsque vous double-cliqué "Button1" sur votre formulaire.

Copiez et collez le suivant pour obtenir le numéro de téléphone sont entrés dans la zone de texte et appellent:

phoneNum = trim (TextBox1.Text)

EssaiTResult = tapiRequestMakeCall (phoneNum, "Composer un numéro", PhoneNum, "")
Catch ex Comme Exception
Label2.Text = "Erreur"
Essayez de fin

Copiez et collez le texte suivant pour vérifier les erreurs:

Si TResult lt; gt; 0 ThentmpStr = "Erreur"
Select Case TResult
TAPIERR_NOREQUESTRECIPIENT Case
tmpStr = tmpStr &Amp "Pas de fenêtres Téléphonie application de numérotation est en cours d`exécution et aucun n`a pu être commencé."
Case TAPIERR_REQUESTQUEUEFULL
tmpStr = tmpStr &Amp "La file d`attente des demandes en attente de numérotation de téléphonie Windows est plein."
TAPIERR_INVALDESTADDRESS Case
tmpStr = tmpStr &Amp "Le numéro de téléphone est pas valide."
Case Else
tmpStr = tmpStr &Amp "erreur Unkown."
End Select
Autre
tmpStr = "composition"
Fin si
Label2.Text = tmpStr
End Sub