comment mettre en œuvre pour l'envoi de SMS en VB.Net?

Ne sais pas si je comprends ce que vous dites. Mais je pense que vous avez tout simplement envie d'envoyer un message SMS dans votre VB .Net application. Par exemple, je pense que ce que votre demande est de savoir comment envoyer un SMS à partir de votre VB .Net application vers un autre numéro de téléphone. Si c'est le cas, vous devriez faire de même, comme vous le feriez lors de l'envoi d'E-Mails avec VB .Net et d'utiliser les passerelles SMS. https://en.wikipedia.org/wiki/List_of_SMS_gateways

De retenir un seul numéro de téléphone peut exister si l'envoi d'un message sms à [email protected] et [email protected] ne fonctionne. Un seul message est reçu, parce que les autres passerelles SMS n'avez pas de numéro pour elle. Donc, essayez de créer une liste de toutes les passerelles SMS et ayant à l'utilisateur de taper leur numéro et l'envoi du message avec les utilisateurs enregistrés [email protected] va travailler.

    'Now lets test the E-Mail functionality on our phone gap site. This section does just that.
Dim email As New MailMessage
Dim mailfrom As String
Dim mailto As String
mailfrom = lblAddress.Text
mailto = tbNumber.Text
email.To.Add(mailto)
email.From = New MailAddress(mailfrom)
email.Body = tbmsgBody.Text
Dim sendserver As String
sendserver = lblSMTP.Text
Dim SMTP As New SmtpClient(sendserver)
Dim username As String
Dim password As String
username = lblUName.Text
password = lblPW.Text
If lblSSL.Text = "Yes" Then
SMTP.EnableSsl = True
Else : SMTP.EnableSsl = False
End If
SMTP.Credentials = New System.Net.NetworkCredential(username, password)
Dim portnum As String
portnum = lblPort.Text
SMTP.Port = portnum
SMTP.Send(email)
MessageBox.Show("Message Sent")
ElseIf cbAction.Visible = True And cbAction.Text = "Send" And tbSubject.Visible = False Then
'The idea behind this section is mainly to use the SMS Gateways and using the same E-Mail Form. Since their will only always be just one phone. We can try to send the same message to all of of the SMS gateways for that number. Obviously only one message will ever be recieved and the sender of the message will get a whole bunch of delivery failure messages. But at least one will get to the actual phone number.
Dim email As New MailMessage
Dim mailfrom As String
Dim mailto As String
mailfrom = lblAddress.Text
mailto = tbNumber.Text
'Now lets add our SMS Gateways
'Since this is a SMS and MMS portion their will be no need to add a subject feild.
email.Bcc.Add(mailto + "@myboostmobile.com")
email.Bcc.Add(mailto + "@vtext.com")
email.Bcc.Add(mailto + "@sms.airfiremobile.com")
email.Bcc.Add(mailto + "@msg.acsalaska.com")
email.Bcc.Add(mailto + "@sms.alltelwireless.com")
email.Bcc.Add(mailto + "@mms.alltelwireless.com")
email.Bcc.Add(mailto + "@message.Alltel.com")
email.Bcc.Add(mailto + "@text.wireless.alltel.com")
email.Bcc.Add(mailto + "@mms.alltel.net")
email.Bcc.Add(mailto + "@paging.acswireless.com")
email.Bcc.Add(mailto + "@txt.att.net")
email.Bcc.Add(mailto + "@mmode.com")
email.Bcc.Add(mailto + "@mms.att.net")
email.Bcc.Add(mailto + "@txt.att.net")
email.Bcc.Add(mailto + "@cingularme.com")
email.Bcc.Add(mailto + "@mobile.mycingular.com")
email.Bcc.Add(mailto + "@page.att.net")
email.Bcc.Add(mailto + "@sms.smartmessagingsuite.com")
email.Bcc.Add(mailto + "@bellsouth.cl")
email.Bcc.Add(mailto + "@sms.bluecell.com")
email.Bcc.Add(mailto + "@mms.myblueworks.com")
email.Bcc.Add(mailto + "@cellcom.quiktxt.com")
email.Bcc.Add(mailto + "@csouth1.com")
email.Bcc.Add(mailto + "@cwemail.com")
email.Bcc.Add(mailto + "@sms.cvalley.net")
email.Bcc.Add(mailto + "@cingular.com")
email.Bcc.Add(mailto + "@cingular.com")
email.Bcc.Add(mailto + "@mobile.mycingular.com")
email.Bcc.Add(mailto + "@cingulartext.com")
email.Bcc.Add(mailto + "@sms.cleartalk.us")
email.Bcc.Add(mailto + "@sms.mycricket.com")
email.Bcc.Add(mailto + "@mms.mycricket.com")
email.Bcc.Add(mailto + "@cspire1.com")
email.Bcc.Add(mailto + "@sms.edgewireless.com")
email.Bcc.Add(mailto + "@SMS.elementmobile.net")
email.Bcc.Add(mailto + "@mobile.gci.net")
email.Bcc.Add(mailto + "@gscsms.com")
email.Bcc.Add(mailto + "@hawaii.sprintpcs.com")
email.Bcc.Add(mailto + "@myhelio.com")
email.Bcc.Add(mailto + "@iwirelesshometext.com")
email.Bcc.Add(mailto + "@mobile.kajeet.net")
email.Bcc.Add(mailto + "@text.longlines.com")
email.Bcc.Add(mailto + "@mymetropcs.com")
email.Bcc.Add(mailto + "@messaging.sprintpcs.com")
email.Bcc.Add(mailto + "@pm.sprint.com")
email.Bcc.Add(mailto + "@messaging.nextel.com")
email.Bcc.Add(mailto + "@page.nextel.com")
email.Bcc.Add(mailto + "@tmomail.net")
email.From = New MailAddress(mailfrom)
email.Subject = tbSubject.Text
email.Body = tbmsgBody.Text
Dim sendserver As String
sendserver = lblSMTP.Text
Dim SMTP As New SmtpClient(sendserver)
Dim username As String
Dim password As String
username = lblUName.Text
password = lblPW.Text
If lblSSL.Text = "Yes" Then
SMTP.EnableSsl = True
Else : SMTP.EnableSsl = False
End If
SMTP.Credentials = New System.Net.NetworkCredential(username, password)
Dim portnum As String
portnum = lblPort.Text
SMTP.Port = portnum
SMTP.Send(email)
MessageBox.Show("Message Sent")

Vous pouvez afficher l'intégralité du code source sur https://github.com/LinuxPhreak/PhoneGap-Emulators