Hvordan at foretage telefonopkald med Visual Basic

Automatiser telefonopkald med VB.NET . telefon billede ved Matthieu FABISIAK fra & lt; a href = 'http: //www.fotolia.com'> Fotolia.com & lt; / a & gt;

have viden om, hvordan at foretage telefonopkald fra en Microsoft Visual Basic.NET (VB.NET) ansøgning kan spare dig tid, hvis du har brug for at foretage opkald kontinuerligt.VB.NET er en computer programmering sprog, der bruges til at oprette mobile, web og desktop applikationer.Foretage telefonopkald fra VB.NET kan opnås ved hjælp af Telephony Application Programming Interface (TAPI).TAPI giver programmørerne lagene er nødvendige for at få adgang til Microsoft Telefoni DLL'er (dynamisk link biblioteker).Telefoni integrerer computere med enheder som kameraer og internet-netværk.

hvad du har brug

  • Microsoft Visual Basic Express

Instruktioner

  1. Start MicrosoftVisual Basic Express, klik på "Nyt projekt ..." i 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 et andet mærke 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" modul.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:

    Erklær Auto Funktion 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

    Den "Button1_Click" procedure blev oprettet, da du dobbeltklikker klikket "Button1" på din formular.

  5. Kopier og indsæt følgende inde proceduren "Button1_Click" for at oprette dine variabler:

    Dim phoneNum As String

    Dim tResult så kort

    Dim tmpStr As String

    Den "Button1_Click" procedure blev oprettet, da du dobbeltklikker klikkes"Button1" på din formular.

  6. Kopier og indsæt følgende for at få det telefonnummer indtastes i tekstfeltet og kalder det:

    phoneNum = Trim (TextBox1.Text)

    Prøv

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

    Catch ex Som Undtagelse

    Label2.Text = "Fejl"

    End Prøv

  7. Kopier og indsæt følgende for at kontrollere for fejl:

    Hvis tResult & amp; lt; & gt;0 Så

    tmpStr = "Fejl"

    Select Case tResult

    Case TAPIERR_NOREQUESTRECIPIENT

    tmpStr = tmpStr & amp; amp;"Ingen ansøgning vinduer Telefoni opkald kører, og ingen kunne startes."

    Case TAPIERR_REQUESTQUEUEFULL

    tmpStr = tmpStr & amp; amp;"Køen af ​​verserende Windows Telefoni anmodninger opkald er fuld."

    Case TAPIERR_INVALDESTADDRESS

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

    Case Else

    tmpStr = tmpStr & amp; amp;"Ukendt fejl."

    End Select

    Else

    tmpStr = "Opkald"

    End If

    Label2.Text = tmpStr

    End Sub

    End Class

  8. Tryk på "F5" for at køre dit program og derefter indtaste et telefonnummernummer i tekstfeltet og klik på "Button1."

Ressourcer

  • Microsoft: Microsoft Telefoni Oversigt
218
0
3
Visual Basics Programming