SMS eller Short Messaging Service , er blevet allestedsnærværende med spredning af billige mobile computere og mobiltelefoner. Selvfølgelig er det vigtigste formål med SMS til at overføre korte tekstbeskeder fra én mobiltelefon til en anden. Men det er også muligt at sende beskeder til og fra mobiltelefoner via computer software -programmer. For eksempel kan en bank tilbyde en service , der kan acceptere tekstbeskeder fra kundernes telefoner, og sende en besked tilbage med deres konto . Instruktioner
1
Kopier og indsæt følgende subrutine i din formular klasse : Hej
Public Sub SendText ( telefonnummer som String , transportør som String , fra så String , emne som String , mailserver som String , msg som String ) Dim som String = Trim ( Fax ) Og Trim ( carrier ) TryDim meddelelsen som ny MailMessage ( fra, til , emne, msg ) Dim mySmtpClient da New SmtpClient ( mailserver ) mySmtpClient.UseDefaultCredentials = [ sande] mySmtpClient . Send ( meddelelse) MessageBox.Show ("The mailen er sendt til" og budskab . [ til] . ToString () , "Post" , MessageBoxButtons.OK , MessageBoxIcon.Information ) Fangst ex Som FormatExceptionMessageBox.Show (ex. stacktrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ fejl] ) Fangst ex Som SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ fejl] ) Fangst ex Som ExceptionMessageBox.Show (ex. . stacktrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ fejl] ) End Prøv
2
Kopier og indsæt følgende funktion opkald i et klik selv på knappen , der sender SMS-besked : < br >
SendText ( " 1235551234 ", " @ messaging.yourcarrier.com ", " [email protected] ", " Dette er en txt msg ! ", " mail.email.com ", " hvordan har du i dag , Frank ? ")
Du skal foretage luftfartsselskabet adressen ( @ messaging.yourcarrier.com ) afspejler modtagerens telefon luftfartsselskab .
3
kompilere din VB program , og klik på danne knappen for at sende din SMS-besked.