Het hebben van de kennis van hoe om te bellen vanuit een Microsoft Visual Basic.NET ( VB.NET ) applicatie kunt u tijd besparen als je nodig hebt om te bellen voortdurend te maken . VB.NET is een programmeertaal gebruikt om mobiele , web en desktop applicaties te maken . Telefoneren vanuit VB.NET kan worden bereikt met behulp van de Telephony Application Programming Interface ( TAPI ) . TAPI geeft de programmeurs de lagen nodig om toegang tot de Microsoft Telephony DLL's ( dynamic link libraries ) . Telefonie integreert computers met apparaten zoals camera's en internet-netwerken . Wat je nodig hebt
Microsoft Visual Basic Express
Toon Meer Aanwijzingen
1 Start Microsoft Visual Basic Express , klikt u op " New Project ... " aan de linkerkant van uw scherm en selecteer " Windows Forms Application . " Klik op "OK . "
Dubbelklik op " Button " 2 op de " Toolbox " om een nieuwe knop toe te voegen . Dubbelklik op "Label" om een label toe te voegen . Een tweede label via hetzelfde proces . Dubbelklik op " TextBox " om een tekstvak toe te voegen .
Dubbelklik op " Button1 " 3 op de " Form1.vb " module te openen . Kopieer en plak de volgende in de allereerste regel van de module : Imports
System.Windows.Forms
Kopieer 4 en plak de volgende aan de TAPI32 DLL verklaren onder " Public Class Form1 " maar boven de " Button1_Click " procedure :
Declare Auto-functie tapiRequestMakeCall Lib " Tapi32.dll " _
( ByVal DestAddress als Koord , ByVal AppName als Koord , _
ByVal CalledParty als Koord , ByVal Reactie As String ) As Integer Const TAPIERR_NOREQUESTRECIPIENT
Zoals Korte = -2 Const TAPIERR_REQUESTQUEUEFULL
Zoals Korte = -3 Const
TAPIERR_INVALDESTADDRESS Zoals Korte = -4
de " Button1_Click " procedure werd gemaakt wanneer u dubbelklikt op " Button1 " op uw formulier .
Kopieer 5 en plak het volgende in het " Button1_Click " procedure te creëren uw variabelen : Dim phoneNum
als Koord
Dim tResult Zoals Korte Dim tmpStr
als Koord
De " Button1_Click " procedure werd gemaakt wanneer u dubbelklikt geklikt " Button1 " op uw formulier
Copy 6 en plak de volgende om het telefoonnummer in het tekstvak wordt ingevoerd te krijgen en noemen het : . phoneNum
= Trim ( TextBox1.Text ) op Probeer tResult = tapiRequestMakeCall ( phoneNum , " Dial " , phoneNum , " Nieuws" ) Catch ex
als Uitzondering Label2.Text
= " fout " End of Probeer
Copy 7 en plak de volgende om te controleren op fouten :
Als tResult < > 0 Then
= "Fout "
Select Case tResult
Case TAPIERR_NOREQUESTRECIPIENT
tmpStr = tmpStr & " Geen ramen Telefonie dialing applicatie draait en niemand kon worden gestart . "
tmpStr Case TAPIERR_REQUESTQUEUEFULL
tmpStr = tmpStr & " De wachtrij van hangende Windows Telefonie dialing verzoeken is vol . " Case
TAPIERR_INVALDESTADDRESS
tmpStr = tmpStr & " Het telefoonnummer is niet geldig . " Case
Else tmpStr = tmpStr & Breakfast " Unkown error . " End of Selecteer
Else tmpStr
= " Kiezen " End
Als Label2.Text End Sub End Class
Press 8
= tmpStr
" F5 " om uw programma uit te voeren , voert u een telefoonnummer in het tekstvak en klik op ' Button1 . "
|
