Gracias por la respuesta.
Hace un tiempo obtuve lo siguiente:
oCom = CREATEOBJECT("MSCOMMLib.MSComm")
oCom.CommPort = 4
oCom.Settings = "9600,N,8,1"
oCom.PortOpen = .T.
oCom.Output ="ATZ" + CHR(13)
oCom.Output ="AT+CMGF=1" + CHR(13)
INKEY(.1)
oCom.Output = "AT+CMGS=" + "xxxxxxxxx" + CHR(13)
oCom.Output = "Prueba"
oCom.Output = CHR(26)
oCom.PortOpen = .F.
THISFORM.RELEASE
INKEY(.1)
messagebox("mensaje exitoso ",0+48,"seguridad")
THISFORM.RELEASE
Algo parecido funciona correctamente en VB. Y con hyperterminal también.
Mi pedido es sobre esta rutina en especial. Porque no funciona?????
Gracias nuevamente
Hace un tiempo obtuve lo siguiente:
oCom = CREATEOBJECT("MSCOMMLib.MSComm")
oCom.CommPort = 4
oCom.Settings = "9600,N,8,1"
oCom.PortOpen = .T.
oCom.Output ="ATZ" + CHR(13)
oCom.Output ="AT+CMGF=1" + CHR(13)
INKEY(.1)
oCom.Output = "AT+CMGS=" + "xxxxxxxxx" + CHR(13)
oCom.Output = "Prueba"
oCom.Output = CHR(26)
oCom.PortOpen = .F.
THISFORM.RELEASE
INKEY(.1)
messagebox("mensaje exitoso ",0+48,"seguridad")
THISFORM.RELEASE
Algo parecido funciona correctamente en VB. Y con hyperterminal también.
Mi pedido es sobre esta rutina en especial. Porque no funciona?????
Gracias nuevamente