Come effettuare chiamate telefoniche con Visual Basic

April 19

Come effettuare chiamate telefoniche con Visual Basic


Avere la conoscenza di come fare telefonate da un Microsoft Visual Basic.NET (VB.NET) applicazione può risparmiare tempo se avete bisogno di effettuare chiamate in modo continuo. VB.NET è un linguaggio di programmazione utilizzato per creare mobili, web e applicazioni desktop. Fare telefonate da VB.NET può essere realizzato utilizzando il Telephony Application Programming Interface (TAPI). TAPI dà i programmatori gli strati necessari per accedere alla Microsoft Telephony DLL (librerie di collegamento dinamico). Telefonia integra i computer con dispositivi come macchine fotografiche e le reti Internet.

istruzione

1 Avviare Microsoft Visual Basic Express, fai clic su "Nuovo progetto ..." nel riquadro a sinistra dello schermo e selezionare "Applicazione Windows Form." Fai clic su "OK".

2 Fare doppio clic su "pulsante" a "Toolbox" per aggiungere un nuovo pulsante. Fare doppio clic su "etichetta" per aggiungere un'etichetta. Aggiungere una seconda etichetta utilizzando lo stesso processo. Fare doppio clic su "TextBox" per aggiungere una casella di testo.

3 Fare doppio clic su "Button1" per aprire il modulo "Form1.vb". Copia e incolla il seguente nella prima riga del modulo:

Imports System.Windows.Forms

4 Copia e incolla il seguente per dichiarare la DLL TAPI32 in "Public Class Form1" ma soprattutto la procedura di "Button1_Click":

Declare Auto Function tapiRequestMakeCall Lib "TAPI32.dll" _

(ByVal DestAddress As String, ByVal AppName come stringa, _

ByVal CalledParty As String, ByVal commento come stringa) come numero intero

Const TAPIERR_NOREQUESTRECIPIENT As Short = -2

Const TAPIERR_REQUESTQUEUEFULL As Short = -3

Const TAPIERR_INVALDESTADDRESS As Short = -4

La procedura di "Button1_Click" è stata creata quando si fa doppio clic "Button1" sul modulo.

5 Copia e incolla il seguente all'interno della procedura di "Button1_Click" per creare le variabili:

Dim phoneNum As String

Dim TResult Come Corto

Dim tmpStr As String

La procedura di "Button1_Click" è stata creata quando si fa doppio clic "Button1" sul modulo.

6 Copiare e incollare il seguente per ottenere il numero di telefono inserito nella casella di testo e lo chiamano:

phoneNum = Trim (TextBox1.Text)

Try

TResult = tapiRequestMakeCall (phoneNum, "Componi", phoneNum, "")

Fermo ex come eccezione

Label2.Text = "Errore"

End Try

7 Copia e incolla il seguente per controllare gli errori:

If tResult <> 0 Then

tmpStr = "Errore"

Select Case TResult

caso TAPIERR_NOREQUESTRECIPIENT

tmpStr = tmpStr & amp; "No applicazione delle finestre di composizione di telefonia è in esecuzione, e nessuno potrebbe essere avviato."

caso TAPIERR_REQUESTQUEUEFULL

tmpStr = tmpStr & amp; "La coda di attesa di richieste di composizione di Windows di telefonia è pieno."

caso TAPIERR_INVALDESTADDRESS

tmpStr = tmpStr & amp; "Il numero di telefono non è valido."

Case Else

tmpStr = tmpStr & amp; "Errore Unkown".

End Select

Altro

tmpStr = "Composizione"

Finisci se

Label2.Text = tmpStr

End Sub

End Class

8 Premere il tasto "F5" per eseguire il programma, quindi immettere un numero di telefono nella casella di testo e fare clic su "Button1".


Articoli Correlati