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 ?5 answers
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
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
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.
2: carregue com o botão direito no dispositivo e escolha as propriedades.
3: Escolha o toque do Modem, procure o nome do porto e use-o na sua aplicação.
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
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