Foro de elhacker.net

Hace 2 días que estoy intentando que esto me funcione...

No encontré absolutamente nada en el foro sobre este control.


Si encontré unos ... 1200 ejemplos distintos... pero obviamente me falta algo porque no logro hacer que me funcione.

Paso a explicar... estoy intentando manejar el celular desde la pc, ¿para que? bueno, mando muchos sms por día y me queda más cómodo escribirlos en un teclado de pc que en el celular.

Así que estoy intentando hacer un programa que me permita desde el pc enviar sms (con el celular conectado por usb).

Bueno, mis primeras pruebas fueron 100% exitosas, utilicé hyperterminal para conectarme al COM correspondiente y luego jugué con comandos AT hasta lograr enviar el SMS con éxito.

Pongo los comandos y describo cada línea:


Ahora lo quiero hacer en VB6... y me encuentro con importantes inconvenientes.

Primero que nada creé una función con un "sleep" improvisado... el código sería algo así:


Luego agregué el control MSComm y un botón con el siguiente código:


Pero esto NO me funciona... aunque está igual de seteado que el hyperterminal...

Por otro lado, si pretendo enviar sms desde un programa, debo saber el "index" del mensaje a enviar, en el caso del hyperterminal como lo hago a mano ví que el index del mensaje a enviar era "14398", para luego utilizar CMSS=14398 para enviar el sms, pero si lo hago con el soft ¿como hago que determine este número para luego usarlo en CMSS?

Podría usar MSComm.Input = RichTextBox1.Text y mid para sacar el contenido, pero no funciona tampoco, obviamente estoy haciendo algo mal.

¿Un poco de luz?  ;-)

.
No estas respectando la sintasis de los comandos AT, Prueba con esto:

Alternativa al OCX.
Clase para los puertos Com hecha por Coco/Cocus (http://infrangelux.sytes.net/FileX/?file=clsCom.cls&dir=/BlackZeroX/Programacion/vb6/Modulos%20de%20Clase/Puertos%20Com).

 
Option Explicit
 
Private WithEvents obj_clscom           As clsCom
 
'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandecido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////
'   // http://infrangelux.sytes.net/Blog/index.php?option=com_content&view=article&id=6:artwait&catid=2:catprocmanager&Itemid=8
'   /////////////////////////////////////////////////////////////
 
Private Declare Function WaitMessage Lib "user32" () As Long
 
Enum eTime
    Horas = 3600
    Minutos = 60
    Segundos = 1
End Enum
 
Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
    vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
    Do While vDateE > Time
        Call WaitMessage
        If Not UseAllProc Then DoEvents
    Loop
End Sub
Private Sub Form_Load()
    Set obj_clscom = New clsCom
    With obj_clscom
        .ComPort = 4
        .ComSettings = "57600,N,8,1"    ' 57600 bps, sin paridad, 8 bits de data, 1 bit de stop
        .TimerDelay = 1000              ' 1000ms = 1 Segundo para chequear si entro data
        .TimerEnabled = True
        If .InitCom Then
            Call .WriteCom("AT" & vbCr)
' wait()
            Call .WriteCom("AT+CMGF=1" & vbCr)
' wait()
            Call .WriteCom("AT+CMGS=" & Chr(34) & "0445526651140" & Chr(34) & vbCr) ' // Segun el protocolo lo que nos retorna es +CMGS: <Num. Identificador>
' wait()
            Call .WriteCom("Espero una jalada en mi cel, aun que ya no tengo credito xP" & Chr(26))    ' 26 = Ctrl+Z ( Segun el protocolo AT )
        End If
    End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Set obj_clscom = Nothing
End Sub
 
Private Sub obj_clscom_DataReceived(ByVal strData As String)
    Debug.Print strData
    If InStr(1, strData, "+CMGS:") > 0 Then
        If InStr(1, strData, "OK") > 0 Then
            Dim str_Ret()       As String
            str_Ret() = Split(Replace(Replace(strData, vbCr, ""), "OK", ""), " ")
            Call obj_clscom.WriteCom("AT+CMSS=" & Val(str_Ret(1)) & vbCr)
        End If
    End If
End Sub
 
 

Temibles Lunas!¡.

y porque ahora temibles?? xD

.

OJO el codigo que puse es funcional al 100%

Tan solo con el comando
Enviara el SMS

No conozco, ni me figura en mis libros el comando:
Pero lo agregue a como creo que va.

Temibles Lunas!¡.

BlackZeroX, ¿como decirlo sin sonar gay?

Sos un tierno  :-*

Tuve que cambiar algunos comandos AT pero funcionó EXCELENTE  ;-)

gay :xD

DoEvents! :P

Uy! ese me conoce  :-[

De paso por si alguien más está intentando hacer lo mismo que yo explico la diferencia entre CMGW y CMGS es que con CMGW el mensaje se guarda en el storage area de "mensajes salientes" y hasta que no usás CMSS=Numero_Index no se envía el mensaje.

Yo venía utilizando CMGW + CMSS y tenía un grave problema que era como obtener las respuestas para obtener el numero index del mensaje a enviar, ahora con el CMGS quedó solucionado.

Esos libros mágicos de BlackZeroX son increíbles... debe tener una biblioteca de 9000m2...  :o

Ahora noto una gran diferencia más en el CMSS... estoy haciendo las pruebas enviandome un sms a mi mismo, el mensaje llega, y lo puedo leer, PERO NO QUEDA GUARDADO EN NINGUN LADO jajajaja, es increíble... se puede leer 1 única vez, y no queda ningún rastro del mensaje luego de salir del mensaje, simplemente desaparece.

.
Tu como crees que le enviaba mensajes a la Mr. Frogs sin que tuviera evidencias de quien le envio el mensajito xP.

Con:
lo guardas

Dulces Lunas!¡.

Jajaja, si, si, ya ví, pero lo raro... es que se entiende que no kede en la bandeja de salida porque no se está guardando el mensaje... pero ¡¿en la de entrada tampoco?!

HOLA!!!

No se si me estoy metiendo mal, pero los mensajes que conozco que no se guardan en ninguna casilla son las notificaciones de red.

GRACIAS POR LEER!!!

No es por el tipo de mensaje sino por la forma en que se envía (al menos en cuanto a la bandeja de salida se refiere), ahora voy a probar mandando sms a otro numero y fijandome si queda en la de entrada o no :P

Perdon, son novato...
Podrían decirme como sería el proyecto completo para el envio de sms?
Utilizo la clase para los puertos com y el código de BlackZeroX  sería un formulario?
Muchas gracias por compartir esta valiosa información

Tenés mi código ahí arriba, el cual funciona perfecto, sólo hay que cambiar el AT+CMGW por AT+CMGS que ese era mi problema.

De todas formas, no todos los celulares soportan todos los comandos AT... deberías revisar la lista de comandos AT permitidos por tu cel.

hola todos
si me lo permitis hay una manera para lo que quieres sin utilizar visual basic.
pero necesitas de un movil nokia yo tengo un n73 y me va perfecto.

utilizo este programa
http://mobileways.de/products/remotepro/remote-professional/ (http://mobileways.de/products/remotepro/remote-professional/)

pudes manejar el movil desde el ordenador y escribir los mensajes.
funciona tanto por cable usb o bluethoot.
si lo quieres el programa te lo puedo pasar full si no lo encuentras.


perdon si esta mal mi respuesta al no responer nada con relacion a vsial basic lo hago para ayudar tambien a las personas que quieren manejar el movil con el ordenador y los comandos AT se les quedan grandes o no les funcionan.

un saludo a todos

Tu respuesta esta fuera de lugar (es muy tonta) debido a que estas en un foro de PROGRAMACIÓN, mas no de software existente...

P.D.: ¿Revisaste la fecha de las publicaciones?

Dulces Lunas!¡.