SMS oder Short Messaging Service , allgegenwärtig geworden mit der Verbreitung von billigen mobilen Computern und Handys. Natürlich ist der Hauptzweck der SMS , kurze Textnachrichten von einem Handy zum anderen zu übertragen . Es ist aber auch möglich, Nachrichten zu und von Telefonen über Computer- Software-Programme zu senden. Zum Beispiel könnte eine Bank bieten einen Service, der SMS-Nachrichten von Kunden Telefone akzeptieren können und senden eine Nachricht zurück mit ihrem Kontostand. Anleitung
1
Kopieren Sie den folgenden Subroutine in das Formular -Klasse :
Public Sub SendText ( phoneNumber als String, Träger als String, aus wie String, Subjekt als String, Mailserver als String, msg As String) Dim als String = Trim ( phoneNumber ) Und Trim ( Träger) TryDim Nachricht As New MailMessage ( von, nach , Betreff, msg ) Dim As New mySmtpClient SmtpClient ( Mailserver ) mySmtpClient.UseDefaultCredentials = [wahren] mySmtpClient . Nachricht (message) MessageBox.Show ( Und die Meldung "Die Nachricht wurde gesendet " . [To] . ToString () , "Mail" , MessageBoxButtons.OK , MessageBoxIcon.Information ) Fange ex As FormatExceptionMessageBox.Show (ex. StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error] ) Fange ex As SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error] ) Fange ex As ExceptionMessageBox.Show (ex. . StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ Error] ) End Try
2
Kopieren Sie den folgenden Aufruf der Funktion in dem Klick noch der Knopf, der die SMS-Nachricht sendet :
SendText ( " 1235551234 ", " @ messaging.yourcarrier.com ", " sender@email.com ", " Dies ist eine txt msg! ", " mail.email.com ", "Wie geht es Ihnen heute , Frank ? ")
Sie müssen die Träger -Adresse ( @ messaging.yourcarrier.com ) spiegeln die Telefonnummer des Empfängers Träger.
3
Kompilieren Ihre VB-Anwendung und klicken Sie auf die bilden Schaltfläche, um Ihre SMS -Nachricht zu senden .