Hvordan telefonere med Visual Basic

Å ha kunnskap om hvordan å foreta telefonsamtaler fra en Microsoft Visual Basic.NET (VB.NET) program kan du spare tid hvis du trenger å ringe kontinuerlig. VB.NET er et programmeringsspråk som brukes til å lage mobile, web og desktop-applikasjoner. Foreta telefonsamtaler fra VB.NET kan oppnås ved hjelp av Telephony Application Programming Interface (TAPI). TAPI gir programmerere lagene som trengs for å få tilgang til Microsoft Telephony DLL-filer (Dynamic Link Libraries). Telefoni integrerer datamaskiner med enheter som kameraer og Internett-nettverk.

Bruksanvisning

1 Start Microsoft Visual Basic Express, klikk på "Nytt prosjekt ..." på ruten til venstre på skjermen og velg "Windows Forms Application". Klikk på "OK".

2 Dobbeltklikk på "Button" på "Toolbox" for å legge til en ny knapp. Dobbeltklikk på "Label" for å legge til en etikett. Legg til en annen etikett ved hjelp av den samme prosessen. Dobbeltklikk på "TextBox" for å legge til en tekstboks.

3 Dobbeltklikk på "Button1" for å åpne "Form1.vb" modul. Kopier og lim inn følgende i den aller første linje av modulen:

import System.Windows.Forms

4 Kopier og lim inn følgende å erklære TAPI32 DLL under "Public Class Form1", men over "button1_click" prosedyre:

Declare Auto Function tapiRequestMakeCall Lib "TAPI32.dll" _

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

ByVal CalledParty As String, ByVal Kommentar As String) As Integer

Const TAPIERR_NOREQUESTRECIPIENT Som Short = -2

Const TAPIERR_REQUESTQUEUEFULL Som Short = -3

Const TAPIERR_INVALDESTADDRESS Som Short = -4

Den "button1_click" prosedyren ble opprettet når du dobbeltklikker på "Button1" på skjemaet.

5 Kopier og lim inn følgende på innsiden av "button1_click" prosedyre for å lage dine variabler:

Dim phoneNum As String

Dim tResult Som Short

Dim tmpStr As String

Den "button1_click" prosedyren ble opprettet når du dobbeltklikker på "Button1" på skjemaet.

6 Kopier og lim inn følgende for å få telefonnummeret som er angitt i tekstboksen og kaller det:

phoneNum = Trim (TextBox1.Text)

Try

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

Catch ex As Exception

Label2.Text = "Feil"

End Try

7 Kopier og lim inn følgende for å se etter feil:

If tResult <> 0 Then

tmpStr = "Feil"

Velg Sak tResult

sak TAPIERR_NOREQUESTRECIPIENT

tmpStr = tmpStr & amp; "Ingen vinduer Telefoni oppringingsprogrammet er i gang, og ingen kunne startes."

sak TAPIERR_REQUESTQUEUEFULL

tmpStr = tmpStr & amp; "Køen av ventende Windows Telefoni oppringings forespørsler er full."

sak TAPIERR_INVALDESTADDRESS

tmpStr = tmpStr & amp; "Telefonnummeret er ikke gyldig."

sak Else

tmpStr = tmpStr & amp; "Ukjent feil".

End Select

Ellers

tmpStr = "Ringe"

Slutt om

Label2.Text = tmpStr

End Sub

End Class

8 Trykk "F5" for å kjøre programmet, og deretter skrive inn et telefonnummer i tekstboksen og klikk "Button1."