Πώς να κάνετε τηλεφωνικές κλήσεις με το Visual Basic

Έχοντας τη γνώση για το πώς να κάνουν τηλεφωνικές κλήσεις από το Microsoft Visual Basic.NET ( VB.NET ) εφαρμογή μπορεί να σας εξοικονομήσει χρόνο, αν χρειαστεί να κάνετε κλήσεις συνεχώς . VB.NET είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για τη δημιουργία κινητών , Web και desktop εφαρμογές . Πραγματοποίηση τηλεφωνικών κλήσεων από VB.NET μπορεί να επιτευχθεί με τη χρήση της Programming Interface Telephony Application ( TAPI ) . TAPI δίνει στους προγραμματιστές τα στρώματα που απαιτούνται για την πρόσβαση στις Τηλεφωνία DLLs Microsoft ( βιβλιοθήκες δυναμικής σύνδεσης ) . Τηλεφωνία ενσωματώνει υπολογιστές με συσκευές όπως φωτογραφικές μηχανές και τα δίκτυα Ιnternet . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας και επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " κουμπί" για την " Toolbox " για να προσθέσετε ένα νέο κουμπί . Κάντε διπλό κλικ στο " Ετικέτα " για να προσθέσετε μια ετικέτα . Προσθέστε ένα δεύτερο σήμα με την ίδια διαδικασία . Κάντε διπλό κλικ στο " πλαίσιο κειμένου " για να προσθέσετε ένα πλαίσιο κειμένου .
Εικόνων 3

διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Αντιγραφή και επικόλληση του παρακάτω στην πρώτη γραμμή της ενότητας:

εισαγωγές System.Windows.Forms
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω για να κηρύξει την Tapi32 DLL υπό τον τίτλο " Δημόσια Τάξη Φόρμα1 ", αλλά πάνω από το " Button1_Click " διαδικασία :

κηρύξει Λειτουργία Auto tapiRequestMakeCall Lib " Tapi32.dll " _

( ByVal DestAddress As String , ByVal AppName As String , _

ByVal CalledParty Όπως String , ByVal σχόλιο As String ) As Integer

Const TAPIERR_NOREQUESTRECIPIENT Όπως Short = -2

Const TAPIERR_REQUESTQUEUEFULL Όπως Short = -3

Const TAPIERR_INVALDESTADDRESS Όπως Βραχυκύκλωμα = -4

Η διαδικασία της « Button1_Click " δημιουργήθηκε όταν κάνετε διπλό κλικ στο κουμπί " Button1 " στη φόρμα σας .
5

αντιγραφή και επικόλληση του παρακάτω μέσα της διαδικασίας " Button1_Click " για να δημιουργήσετε μεταβλητές σας :

Dim phoneNum Όπως String Dim

tResult Όπως Short

Dim tmpStr Όπως String

Η διαδικασία " Button1_Click " δημιουργήθηκε όταν κάνετε διπλό κλικ " Button1 " στη φόρμα σας
Η 6

αντιγραφή και επικόλληση του παρακάτω για να πάρετε τον αριθμό τηλεφώνου εγγράφεται στο πλαίσιο κειμένου και να το ονομάσουμε : .

phoneNum = Trim ( TextBox1.Text )

Δοκιμάστε

tResult = tapiRequestMakeCall ( phoneNum , " Κλήση" , phoneNum , "")

Catch ex Όπως Εξαίρεση

Label2.Text = " σφάλμα "

End Δοκιμάστε
Η 7

αντιγραφή και επικόλληση του παρακάτω, για να ελέγξετε για σφάλματα :

Αν tResult <> 0 τότε

tmpStr = " Σφάλμα "

Select Case tResult

υπόθεση TAPIERR_NOREQUESTRECIPIENT

tmpStr = tmpStr & " καμία αίτηση κλήσης παράθυρα τηλεφωνίας εκτελείται, και κανένας δεν μπορούσε να ξεκινήσει . "