SMS eller Short Messaging Service , har blitt allestedsnærværende med spredning av billige bærbare datamaskiner og mobiltelefoner. Selvfølgelig er det viktigste formålet med SMS -meldinger for å overføre tekstmeldinger fra en mobiltelefon til en annen. Men det er også mulig å sende meldinger til og fra mobiltelefoner via programvareprogrammer . For eksempel kan en bank tilbyr en tjeneste som kan ta imot tekstmeldinger fra kundenes telefoner og sende en melding tilbake med sin saldo. Instruksjoner
en
Kopier og lim inn følgende subrutine inn skjemaet klasse : en
Public Sub SendText ( telefonnummer som String, transportør som String , fra så String, faget som String, mailserver som String, msg som String ) Dim til som String = Trim ( telefonnummer ) Og Trim ( carrier) TryDim melding som ny MailMessage ( fra, til , emne, msg ) Dim mySmtpClient som ny SmtpClient ( mailserver ) mySmtpClient.UseDefaultCredentials = [ Ekte ] mySmtpClient . Send (melding ) MessageBox.Show ( " The postmeldingen er sendt til" Og budskapet . [ til] . toString ( ) , "Mail " , MessageBoxButtons.OK , MessageBoxIcon.Information ) Catch ex As FormatExceptionMessageBox.Show ( ex. StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Feil ] ) Catch ex As SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Feil ] ) Catch ex As ExceptionMessageBox.Show ( ex. . StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ Feil ] ) Avslutt Prøv
2
Kopier og lim inn følgende funksjon samtale i klikk selv på knappen som sender SMS-melding :
SendText ( " 1235551234 ", " @ messaging.yourcarrier.com ", " sender@email.com ", " Dette er en txt msg ! ", " mail.email.com " , "hvordan er du i dag , Frank ? ")
Du må gjøre carrier adresse ( @ messaging.yourcarrier.com ) gjenspeile mottakerens telefonnummer carrier .
3
Kompiler VB programmet og klikk på danne knappen for å sende SMS -melding.