Πώς να στείλετε SMS χρησιμοποιώντας VB

SMS ή σύντομη υπηρεσία μηνυμάτων , έχει γίνει πανταχού παρούσα με τη διάδοση των φθηνών φορητών υπολογιστών και κινητών τηλεφώνων . Φυσικά , ο κύριος σκοπός των μηνυμάτων SMS είναι να μεταφέρει σύντομων μηνυμάτων κειμένου από το ένα κινητό τηλέφωνο στο άλλο. Αλλά είναι επίσης δυνατό να στείλει μηνύματα προς και από κινητά τηλέφωνα , μέσω των προγραμμάτων λογισμικού ηλεκτρονικών υπολογιστών . Για παράδειγμα , μια τράπεζα μπορεί να προσφέρει μια υπηρεσία που μπορεί να δεχτεί μηνύματα κειμένου από τα τηλέφωνα των πελατών και να στείλετε ένα μήνυμα πίσω με το υπόλοιπο του λογαριασμού τους . Οδηγίες
Η 1

Αντιγράψτε και επικολλήστε την ακόλουθη υπορουτίνα στην κατηγορία φόρμα σας :

Public Sub SendText ( PhoneNumber ως String , String ως φορέας , από την ως String , με την επιφύλαξη ως String , όπως mailserver String , msg ως String ) Dim ως String = Trim ( PhoneNumber ) και Trim ( φορέα) TryDim μήνυμα ως νέο MailMessage ( από, προς , θέμα, msg ) Dim mySmtpClient As New SmtpClient ( mailserver ) mySmtpClient.UseDefaultCredentials = [ True ] mySmtpClient . Αποστολή (μήνυμα ) MessageBox.Show ( " Το μήνυμα ηλεκτρονικού ταχυδρομείου έχει σταλεί " Και το μήνυμα . [Να] . ToString ( ) , " Mail " , MessageBoxButtons.OK , MessageBoxIcon.Information ) Catch ex Όπως FormatExceptionMessageBox.Show ( π.χ. stacktrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ σφάλμα ] ) Catch ex Όπως SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ σφάλμα ] ) Catch ex Όπως ExceptionMessageBox.Show ( π.χ. . stacktrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ σφάλμα ] ) End Try 2

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

SendText ( " 1235551234 " , " @ messaging.yourcarrier.com " , " sender@email.com " , "Αυτό είναι ένα msg txt " , " mail.email.com " , " πώς είστε σήμερα , Φρανκ; " )

πρέπει να κάνετε το διεύθυνση του μεταφορέα ( @ messaging.yourcarrier.com ) αντανακλούν τηλέφωνο φορέα του παραλήπτη .
εικόνων 3

μεταγλώττισης VB εφαρμογή σας και κάντε κλικ στο κουμπί φόρμα για να στείλετε μήνυμα SMS σας .
Η
εικόνων