SMS eller Short Messaging Service , har blivit allmänt förekommande med spridningen av billiga mobila datorer och mobiltelefoner . Naturligtvis är det huvudsakliga syftet med SMS-meddelanden för att överföra korta textmeddelanden från en mobiltelefon till en annan . Men det är också möjligt att skicka meddelanden till och från mobiltelefoner via datorprogram . Till exempel kan en bank erbjuda en tjänst som kan ta emot textmeddelanden från kundernas telefoner och skicka ett meddelande tillbaka med sitt konto . Instruktioner
1
Kopiera och klistra in följande subrutinen i formuläret klass :
Public Sub SendTEXT ( telefonnummer som String , bärare som String , från som String , ämne som String , mailserver som String , msg som String ) Dim till som String = Trim ( telefonnummer ) och trim ( carrier ) TryDim meddelandet som nytt MailMessage ( från , till , ämne , msg ) Dim mySmtpClient som New SmtpClient ( mailserver ) mySmtpClient.UseDefaultCredentials = [Sann ] mySmtpClient . Skicka ( meddelande ) MessageBox.Show ( " The postmeddelande har skickats till " Och budskapet . [ till] . toString ( ) , " mail " , MessageBoxButtons.OK , MessageBoxIcon.Information ) Catch ex som FormatExceptionMessageBox.Show ( ex. stacktrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Fel ] ) Catch ex Som SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Fel ] ) Catch ex Som ExceptionMessageBox.Show ( ex. . stacktrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ Fel ] ) End Försök
2
Kopiera och klistra in följande funktionsanrop i klick även om knappen som skickar SMS- meddelandet :
SendTEXT ( " 1235551234 " , " @ messaging.yourcarrier.com " , " sender@email.com " , " Det här är en txt msg ! " , " mail.email.com " , " hur mår du idag , Frank ? " ) katalog
Du måste göra transportören adress ( @ messaging.yourcarrier.com ) speglar mottagarens telefon transportören .
3
Sammanställ din VB ansökan och klicka på bildning för att skicka ditt SMS .
