Crear cuenta
If Not MSComm1.Open ThenMSComm1.PortOPen = True
End If
MSComm1.IDPort = 1 ' 1>com1, 2>com2, 3>com3...
MSComm1.TypeSend = CommTextStringMethod
MSComm1.Provider = "901904020" ' Ese es Wanadoo, cada cual que elija...
MSComm1.RecipientCountryCode = "34" ' España
MSComm1.Recipient = "666666666" ' Teléfono receptor del mensajeMSComm1.OutPutToRecipient = "Saludos" ' Mensaje de texto (ojo! hasta 120)
MSComm1.SendRecipient
Do While MsComm1.FullRecipient
DoEvents
Loop
MSComm1.ClearRecipient
MSComm1.CloseProvider
MSComm1.RefreshPort
MSComm1.PortOpen = False
Public Sub Dial(num As String)
On Error Resume Next
Dim Communications 'As MSCommLib.MSComm Set Communications = CreateObject("MSCommLib.MSComm")
DialString$ = "ATDT" + num + ";" + Chr$(13)
Communications.CommPort = 3
Communications.Settings = "300,N,8,1"
On Error Resume Next
Communications.PortOpen = True
If Err Then
MsgBox Err.Description
' MsgBox "COM1: not available. Change the CommPort property to another port."
Exit Sub
End If
' Flush the input buffer. Communications.InBufferCount = 0
' Dial the number.
Communications.Output = DialString$
' Wait for "OK" to come back from the modem. Do
dummy = DoEvents()
' If there is data in the buffer, then read it.
If Communications.InBufferCount ThenFromModem$ = FromModem$ + Communications.Input
' Check for "OK". If InStr(FromModem$, "OK") Then
' Notify the user to pick up the phone.
Beep
' MsgBox "Please pick up the phone and either press Enter or click OK" Exit Do
End If
End If
Loop
' Disconnect the modem.
Communications.Output = "ATH" + Chr$(13)
' Close the port. Communications.PortOpen = False
End SubPublic Class Form1
Public Respuesta As String
Public T As String
Public telefono As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
telefono = InputBox("Introduce el nº de destino", "Nº Telefono")
Try
SMSPort.Open()
Catch
MsgBox("NO SE HA PODIDO CONECTAR AL PUERTO", MsgBoxStyle.Critical, "ERROR")
End Try
If SMSPort.IsOpen ThenMe.Text = "Conectado por el puerto " & SMSPort.PortName
Else
Me.Text = "NO CONECTADO AL PUERTO" & SMSPort.PortName
End If
Dim T As String
T = ""
SMSPort.Write(T & vbCrLf)
T = "at+cmgf=1"
SMSPort.Write(T & vbCrLf)
T = "at+cmgs=" & """" & telefono & """"
SMSPort.Write(T & vbCrLf)
T = "texto prueba" & ""
SMSPort.Write(T & vbCrLf)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Respuesta = SMSPort.ReadExisting
TextBox1.Text = Respuesta
SMSPort.Close()
Timer1.Enabled = False
End Sub
End Class