Hvordan sende SMS ved hjelp av VB

SMS eller Short Messaging Service, har blitt allestedsnærværende med spredning av billige bærbare datamaskiner og mobiltelefoner. Selvfølgelig, det viktigste formålet med SMS-meldinger er å overføre tekstmeldinger fra en mobiltelefon til en annen. Men det er også mulig å sende meldinger til og fra mobiltelefoner via datamaskin programmer. For eksempel kan en bank tilbyr en tjeneste som kan ta imot tekstmeldinger fra kundetelefoner og sende en melding tilbake med sin saldo.

Bruksanvisning

1 Kopier og lim inn følgende subroutine inn skjemaet klassen:

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)
Prøve

Dim message As New MailMessage(from, to, subject, msg)
Dim mySmtpClient As New SmtpClient(mailServer)
mySmtpClient.UseDefaultCredentials = [True]
mySmtpClient.Send(message)
MessageBox.Show("The mail message has been sent to " And message.[To].ToString(), "Mail", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As FormatException

MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.[Error])

Catch ex As SmtpException

MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.[Error])

Catch ex As Exception

MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.[Error])

End Try

2 Kopier og lim inn følgende funksjonskall inn i klikk selv på knappen som sender SMS-meldingen:

SendText ( "1235551234", "@ messaging.yourcarrier.com", "[email protected]", "Dette er en txt msg!", "Mail.email.com", "hvordan er du i dag, Frank?")

Du må gjøre transportøren adresse (@ messaging.yourcarrier.com) reflekterer mottakerens telefon operatør.

3 Kompilere VB program og klikk på skjemaet for å sende SMS-melding.

Hint

• Ved hjelp av denne SMTP metoden for å sende tekstmeldinger kan ha forsinkelser på rundt ett minutt.