如何在VB.Net中實現短信發送？

Question

我需要一些想法（一些代碼）來實現使用Visual Basic 2010中開發的Windows應用程序在手機上發送短信。
我已經完成了電子郵件發送，但是我不知道發送短信。

我已經使用PHP中的免費API發送了短信。 但是在vb.net中，我想在沒有API的情況下進行操作。 （我想將mobille連接到我的應用程序）

因此，任何有見識的評論對我都將有很大幫助...謝謝。

Answer 1

不知道我是否完全理解你的意思。 但是我認為您只是想在VB .Net應用程序中發送一條SMS消息。 例如，我認為您要問的是如何從VB .Net應用程序向另一個電話號碼發送SMS消息。 如果是這種情況，您應該執行與使用VB .Net發送電子郵件並使用SMS網關時相同的操作。 https://zh.wikipedia.org/wiki/List_of_SMS_gateways

請記住，只有一個電話號碼可以存在，因此只能將短信發送到8005551212@vzwpix.com和8005551212@pm.sprint.com。 僅收到一條消息，因為其他SMS網關沒有編號。 因此，嘗試創建所有SMS網關的列表，並讓用戶鍵入其號碼，然后在用戶輸入number@gateway.com的情況下發送消息。

    '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")

您可以在https://github.com/LinuxPhreak/PhoneGap-Emulators上查看完整的源代碼