At have viden om, hvordan man kan gøre telefonopkald fra en Microsoft Visual Basic.NET ( VB.NET ) program kan spare dig tid, hvis du har brug for at foretage opkald kontinuerligt. VB.NET er en computer programmeringssprog, der anvendes til at skabe mobil, web og desktop applikationer . Foretage telefonopkald fra VB.NET kan opnås ved hjælp af Telephony Application Programming Interface ( TAPI ) . TAPI giver programmører lagene for at få adgang til Microsoft Telefoni DLL (dynamic link biblioteker ) . Telefoni integrerer computere med anordninger såsom kameraer og internetbaserede net . Ting du skal
Microsoft Visual Basic Express
Vis Flere Instruktioner
1
Start Microsoft Visual Basic Express , klik på " Nyt projekt ... " på den venstre rude på skærmen, og vælg " Windows Forms Application ". Klik på "OK".
2
Dobbeltklik på " Button " på " Toolbox" for at tilføje en ny knap . Dobbeltklik på " Label" for at tilføje en etiket. Tilføj en anden etiket ved hjælp af den samme proces . Dobbeltklik på " TextBox " for at tilføje en tekstboks.
3
Dobbeltklik på " Button1 " for at åbne " Form1.vb "-modulet . Kopier og indsæt følgende i den allerførste linje i modulet :
Import System.Windows.Forms
4
Kopier og indsæt følgende at erklære Tapi32 DLL under " Public Class Form1 ", men over" Button1_Click " procedure : Hej
Erklær 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
Const TAPIERR_NOREQUESTRECIPIENT Som Short = -2
Const TAPIERR_REQUESTQUEUEFULL Som Short = -3
Konst TAPIERR_INVALDESTADDRESS Som Short = -4
" Button1_Click " procedure blev oprettet, da du dobbeltklikker klikkede på " Button1 " på din formular .
5.
Kopier og indsæt følgende inde i " Button1_Click " procedure for at oprette dine variabler :
Dim phoneNum As String
Dim tResult Som Short
Dim tmpStr As String
" Button1_Click " procedure blev oprettet, da du dobbeltklikker klikkede på " Button1 " på din formular
6
Kopier og indsæt følgende for at få telefonnummeret indtastet i tekstfeltet og kalder det : .
phoneNum = Trim ( TextBox1.Text )
Prøv
tResult = tapiRequestMakeCall ( phoneNum " Dial " , phoneNum , "")
Fang ex Som Exception
Label2.Text = " fejl "
End Prøv
7
Kopier og indsæt følgende for at kontrollere for fejl : Hej p Hvis tResult < > 0 Then
tmpStr = "Fejl "
Vælg Case tResult
Case TAPIERR_NOREQUESTRECIPIENT
tmpStr = tmpStr & " Ingen windows Telefoni opkald applikation kører , og ingen kunne startes . "
Case TAPIERR_REQUESTQUEUEFULL
tmpStr = tmpStr & " køen af verserende Windows Telefoni opkald anmodninger er fuld. "
Case TAPIERR_INVALDESTADDRESS
tmpStr = tmpStr & " telefonnummeret er ikke gyldig. "
Case Else
tmpStr = tmpStr &" Unkown fejl. "
End Vælg
Else
tmpStr = " Opkald "
End If
Label2.Text = tmpStr
End Sub
End Class
8
Press " F5 " for at køre dit program , og indtast derefter et telefonnummer i tekstfeltet, og klik på " Button1 . "