Å ha kunnskap om hvordan man skal foreta telefonsamtaler fra en Microsoft Visual Basic.NET ( VB.NET ) søknad kan spare tid hvis du trenger for å ringe kontinuerlig. VB.NET er et programmeringsspråk som brukes til å lage mobil, web og desktop-applikasjoner . Å gjøre 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 -telefoni DLL-filer ( dynamisk kobling biblioteker ) . Telefoni integreres datamaskiner med enheter som kameraer og Internett nettverk . Du trenger
Microsoft Visual Basic Express
Vis flere instruksjoner
en

start Microsoft Visual Basic Express , klikker du "New Project ... " på ruten til venstre på skjermen , og velg "Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " Button" på " Toolbox" for å legge til en ny knapp . Dobbeltklikk på " Label" for å legge til en etikett. Legg til en ny etikett med den samme prosessen. Dobbeltklikk på " TextBox " for å legge til en tekstboks .
3

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

Importen system.windows.forms
4

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

Erklærer Auto Function tapiRequestMakeCall Lib " TAPI32.dll "_

( ByVal DestAddress As String , ByVal AppName As String , _
< p > ByVal CalledParty As String , ByVal Kommentar As String ) As Integer

Konst TAPIERR_NOREQUESTRECIPIENT Som Short = -2

Konst TAPIERR_REQUESTQUEUEFULL Som Short = -3

Konst TAPIERR_INVALDESTADDRESS Som Short = -4

" button1_click " prosedyre ble opprettet da du dobbeltklikket " Button1 " på skjemaet.
5

Kopier og lim inn følgende inne i " button1_click " prosedyre for å opprette variabler :

Dim phoneNum As String

Dim tResult Som Short

Dim tmpStr As String

" button1_click " prosedyre ble opprettet da du dobbeltklikker klikket " Button1 " på Form din
6

Kopier og lim inn følgende for å få inn nummeret som vises i tekstboksen og kaller det : .

phoneNum = Trim ( TextBox1.Text )

Prøv

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

Catch ex As Exception

Label2.Text = " feil "

End Prøv
7

Kopier og lim inn følgende for å se etter feil : en p Hvis tResult < > 0 Then

tmpStr = "Feil "

Velg sak tResult

sak TAPIERR_NOREQUESTRECIPIENT

tmpStr = tmpStr & " Ingen vinduer Telefoni oppringing programmet kjører , og ingen kunne settes i gang . "

sak TAPIERR_REQUESTQUEUEFULL

tmpStr = tmpStr & " The kø av ventende Windows Telefoni oppringingsmodi forespørsler er full. "

sak TAPIERR_INVALDESTADDRESS

tmpStr = tmpStr & " telefonnummeret er ikke gyldig . "

sak Else

tmpStr = tmpStr &" Ukjent feil ".

End Velg

Else

tmpStr = " oppringing"

End If

Label2.Text = tmpStr

End Sub

End Class
8

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