30/05/2011, 11:47
|
| | | Fecha de Ingreso: mayo-2008
Mensajes: 353
Antigüedad: 15 años, 11 meses Puntos: 3 | |
| enviar mensajes sms
Buenas, alguien a usado o hecho un programa para enviar mensajes tipo SMS por telefono desde una aplicacion vb6. Como es el codigo tengo un telefono motorola ve240 y conecto al PC hago esto y nada que funciona
With MSComm1
.CommPort = 5
.PortOpen = True 'must be the last
.Settings = "115200,N,8,1"
'.Handshaking = comRTS
'.RTSEnable = True
'.DTREnable = True
'.RThreshold = 1
'.SThreshold = 1
'.InputMode = comInputModeText
.InputLen = 0
End With
Private Sub MANDAR_Click()
MSComm1.Output = "AT+CMGF=1"
MSComm1.Output = Chr(13)
MSComm1.Output = "AT+CMGS="
MSComm1.Output = Chr(34)
MSComm1.Output = "+17864136545"
MSComm1.Output = Chr(34)
MSComm1.Output = Chr(13)
MSComm1.Output = "hello que hubo"
MSComm1.Output = Chr(26)
MSComm1.Output = Chr(13)
MSComm1.PortOpen = False
MsgBox "Message Send"
Una ayudita
End Sub |