Enviar o SMS com VB.NET

Question

Enviar o SMS com VB.NET

Dim message As New MailMessage()
message.To.Add("[email protected]")
message.From = New MailAddress("[email protected]")
message.Subject = "Hi"
message.Body = "SMS"
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "password")
smtp.Send(message)

escrevi o código acima para enviar SMS da minha vb.net aplicação a um telefone celular.

Quando eu executar este código não estou recebendo nenhum erro, ao mesmo tempo Eu não estou recebendo nenhum SMS.

Qual pode ser o problema ?

1

sms vb.net vb.net-2010

Author: Neolisk, 2014-01-15

Source

5 answers

score 2 · Answer 1

Tenho uma forma perfeita de enviar SMS no visual basic.

A usar os comandos AT.

Comandos AT: são instruídos através dos quais pode enviar e receber mensagens SMS, e este é um exemplo:

Para enviar uma mensagem

Primeiro:

Escreva este código no topo

Imports System.IO.Ports
Imports System.IO

Em segundo lugar:

Escreva este código na classe pública de forma:

Dim SerialPort As New System.IO.Ports.SerialPort()
Dim CR As String

Terceiro:

Crie uma caixa de texto(TextmsgTextBox) para escrever a mensagem de texto, e TextBox2(MobileNumberTextBox) para indicar o número do telemóvel e o botão (SendBUT) para enviar a mensagem.

E escreva este código no evento botão clique.

If SerialPort.IsOpen Then
    SerialPort.Close()
End If
SerialPort.PortName = COM4
SerialPort.BaudRate = 9600
SerialPort.Parity = Parity.None
SerialPort.StopBits = StopBits.One
SerialPort.DataBits = 8
SerialPort.Handshake = Handshake.RequestToSend
SerialPort.DtrEnable = True
SerialPort.RtsEnable = True
SerialPort.NewLine = vbCrLf

Dim message As String
message = MsgRichTextBox.Text

Try
    SerialPort.Open()
Catch ex As Exception
    MsgBox("The modem with the port '" & SerialPort.PortName & "'is not plugged in!!" & vbcrlf & "Please plug the modem and try again.")
End Try

If SerialPort.IsOpen() Then
    SerialPort.Write("AT" & vbCrLf)
    SerialPort.Write("AT+CMGF=1" & vbCrLf)
    SerialPort.Write("AT+CMGS=" & Chr(34) & phoneNumBox.Text & Chr(34) & vbCrLf)
    SerialPort.Write(message & Chr(26))
    SentPicture.Visible = True
    SentLabel.Visible = True
    SentTimer.Start()
Else
    MsgBox("Port '" & SerialPort.PortName & "' is not available!")
End If

score 1 · Answer 2

Enviar SMS simples usando VB.NET + ao comando:


        Try
            With SerialPort1
                .Write("at+cmgf=1" & vbCrLf)
                Threading.Thread.Sleep(1000)
                .Write("at+cmgs=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
                .Write(TextBox2.Text & Chr(26))
                Threading.Thread.Sleep(1000)
            End With
        Catch ex As Exception

        End Try

score 0 · Answer 3

O nome do Porto muda de tempos em tempos e de computador para outro.

Vou mostrar-te o caminho por imagens.

1: Introduzir no Gestor de dispositivos a partir do Painel de controlo.

enter image description here

2: carregue com o botão direito no dispositivo e escolha as propriedades. enter image description here

3: Escolha o toque do Modem, procure o nome do porto e use-o na sua aplicação. enter image description here

score 0 · Answer 4

 Dim dt As New DataTable
        CreateDataTable(dt, "select * from Table where Id = 1")
        If (dt.Rows.Count > 0) Then
            Dim request As HttpWebRequest
            Dim response As HttpWebResponse = Nothing
            Dim url As String
            Dim senderid As String = dt.Rows(0).Item("SenderId").ToString()
            Dim password As String = dt.Rows(0).Item("Password").ToString()
            Dim host As String
            Dim originator As String = dt.Rows(0).Item("UserName").ToString()
            Try
                host = "http://smsidea.co.in/sendsms.aspx?"
                'originator = "3423434343"
                'password = "234hj"
                url = host + "mobile=" & HttpUtility.UrlEncode(originator) _
                         & "&pass=" + HttpUtility.UrlEncode(password) _
                         & "&senderid=" + HttpUtility.UrlEncode(senderid) _
                         & "&to=" + HttpUtility.UrlEncode(StrToNumber) _
                         & "&msg=" + HttpUtility.UrlEncode(StrBody)
                request = DirectCast(WebRequest.Create(url), HttpWebRequest)
                response = DirectCast(request.GetResponse(), HttpWebResponse)
                'MessageBox.Show("Response: " & response.StatusDescription)
            Catch ex As Exception
            End Try
        End If

score 0 · Answer 5

Vb.net código para enviar sms.

Tenta

        Dim url As String

        'paste your sms api code to url

        'url = "http://xxxxxxxxxx.com/SMS_API/sendsms.php?username=XXXX&password=XXXXX&mobile=" + mobile + "&sendername=XXXX&message=XXXXX&routetype=1"


        url="Paste your api code"



        Dim myReq As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        Dim myResp As HttpWebResponse = DirectCast(myReq.GetResponse(), HttpWebResponse)
        Dim respStreamReader As New System.IO.StreamReader(myResp.GetResponseStream())
        Dim responseString As String = respStreamReader.ReadToEnd()
        respStreamReader.Close()
        myResp.Close()
        MsgBox("ok")

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

Http://yii2ideas.blogspot.in/2017/11/how-to-send-sms-from-vb-net-application.html