Att ha kunskap om hur man gör telefonsamtal från en Microsoft Visual Basic.NET ( VB.NET ) applikation kan spara tid om du behöver ringa kontinuerligt . VB.NET är en dator programmeringsspråk som används för att skapa mobil , webb och desktop applikationer . Ringa telefonsamtal från VB.NET kan åstadkommas med hjälp av Telephony Application Programming Interface ( TAPI ) . TAPI ger programmerare lagren som behövs för att komma åt Microsoft Telefoni DLL ( Dynamic Link Libraries ) . Telefoni integrerar datorer med enheter som kameror och nätverk Internet . Saker du behöver
Microsoft Visual Basic Express
Visa fler instruktioner
1
Starta Microsoft Visual Basic Express , klicka på " Nytt projekt ... " på vänster på skärmen och välj " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " knappen " på " Toolbox " för att lägga till en ny knapp . Dubbelklicka på " Label " för att lägga till en etikett . Lägg till en andra etikett med samma process . Dubbelklicka på " TextBox " för att lägga till en textruta .
3
Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Kopiera och klistra in följande i den allra första raden av modulen :
Import system.windows.forms
4
Kopiera och klistra in följande att förklara TAPI32 DLL under " Public Class Form1 " men ovanför " Button1_Click " förfarande :
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 så kort = -2
Const TAPIERR_REQUESTQUEUEFULL så kort = -3
Const TAPIERR_INVALDESTADDRESS så kort = -4
" Button1_Click " förfarande skapades när du dubbelklickar på " Button1 " på ditt formulär . och
5
Kopiera klistra in följande innanför " Button1_Click " förfarande för att skapa dina variabler :
Dim phoneNum As String
Dim tResult så kort
Dim tmpStr As String
" Button1_Click " förfarande skapades när du dubbelklickar klickade " Button1 " på Form
6
Kopiera och klistra in följande för att få telefonnumret in i textrutan och kalla det : .
phoneNum = Trim ( TextBox1.Text ) katalog
Prova
tResult = tapiRequestMakeCall ( phoneNum , " Ring " , phoneNum , " " ) katalog
Catch ex Som Exception
Label2.Text = " fel "
End Försök
7
Kopiera och klistra in följande att leta efter fel :
p Om tResult < > 0 Then
tmpStr = " Fel "
Välj ärende tResult
Case TAPIERR_NOREQUESTRECIPIENT
tmpStr = tmpStr & " inga fönster Telefoni uppringning körs och ingen kunde startas . "
Case TAPIERR_REQUESTQUEUEFULL
tmpStr = tmpStr & " The kö av väntande Windows Telefoni uppringning förfrågningar är full . "
Case TAPIERR_INVALDESTADDRESS
tmpStr = tmpStr & " telefonnumret är inte giltigt . "
Case Else
tmpStr = tmpStr & " Unkown fel . "
End Välj
Else
tmpStr = " uppringning"
End If
Label2.Text = tmpStr
End Sub
End Class
8
Press " F5 " för att köra programmet , ange ett telefonnummer i textrutan och klicka på " Button1 . " Addera
