Avendo la conoscenza di come fare telefonate da un Microsoft Visual Basic.NET (VB.NET) applicazione consente di risparmiare tempo se è necessario effettuare chiamate continuamente. VB.NET è un linguaggio di programmazione utilizzato per creare mobili, Web e applicazioni desktop di computer. Effettuare chiamate telefoniche da VB.NET può essere eseguita utilizzando la telefonia TAPI Application Programming Interface (). TAPI dà i programmatori gli strati necessari per accedere alla Microsoft telefonia dll (librerie a collegamento dinamico). Telefonia integra computer con periferiche quali fotocamere e reti Internet.

Istruzioni

1

Avviare Microsoft Visual Basic Express, fare clic su "Nuovo progetto..." nel riquadro sinistro dello schermo e selezionare "Applicazione Windows Form." Fare clic su "OK".

2

Fare doppio clic sul "Pulsante" su "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" aprire "Form1.vb"module. Copiare e incollare il seguente nella prima riga del modulo:

Imports System.Windows.Forms

4

Copiare e incollare il seguente per dichiarare la DLL TAPI32 sotto "Public Class Form1" ma sopra la procedura di "Button1_Click":

Declare Auto Function tapiRequestMakeCall Lib "TAPI32.dll" _

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

ByVal CalledParty As String, ByVal Comment As String) As Integer

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 Form.

5

Copiare e incollare il seguente all'interno della routine "Button1_Click" per creare le variabili:

Dim phoneNum As String

Dim tResult As Short

Dim tmpStr As String

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

6

Copia e incolla il seguente per ottenere il numero di telefono immesso nella casella di testo e chiamarlo:

Consente = Trim(TextBox1.Text)

Try

tResult = tapiRequestMakeCall(phoneNum, "Dial", phoneNum, "")

Catch ex As Exception

Label2.Text = "Error"

End Try7

Copiare e incollare il seguente per controllare gli errori:

If tResult <> 0 Then

tmpStr = "Error"

Select Case tResult

Case TAPIERR_NOREQUESTRECIPIENT

tmpStr = tmpStr & "No windows Telephony dialing application is running and none could be started."

Case TAPIERR_REQUESTQUEUEFULL

tmpStr = tmpStr & "The queue of pending Windows Telephony dialing requests is full."

Case TAPIERR_INVALDESTADDRESS

tmpStr = tmpStr & "The phone number is not valid."

Case Else

tmpStr = tmpStr & "Unkown error."

End Select

Else

tmpStr = "Dialing"

End If

Label2.Text = tmpStr

End Sub

End Class

8

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