none
commande AT pour lire un message GSM RRS feed

  • Question

  • bonjour a tous

    Je développe une application en visual basic 2010 express qui Envoy et recoit des message via un modem gsm

    je peux envoyer des messages mais je ne sait comment lire des message qui arrive en temp reel et les afficher a l ecran

    voice mon code pour l'envoy d un message , merci d avance

    Imports System
    Imports System.Threading
    Imports System.ComponentModel
    Imports System.IO.Ports
    
    Public Class Form1
                    'connect your mobile/GSM modem to PC,
                    'then go in device manager and check under ports which COM port has been slected
                    'if say com1 is there then put com2 in following statement
        Dim SMSEngine As New SMSCOMMS("COM13")
        Dim i As Integer
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            SMSEngine.Open() 'open the port
            SMSEngine.SendSMS() 'send the SMS
                            
    End Class
    Public Class SMSCOMMS
        Private WithEvents SMSPort As SerialPort
        Private SMSThread As Thread
        Private ReadThread As Thread
        Shared _Continue As Boolean = False
        Shared _ContSMS As Boolean = False
        Private _Wait As Boolean = False
        Shared _ReadPort As Boolean = False
        Public Event Sending(ByVal Done As Boolean)
        Public Event DataReceived(ByVal Message As String)
    
        Public Sub New(ByRef COMMPORT As String)
            'initialize all values
            SMSPort = New SerialPort
            With SMSPort
                .PortName = COMMPORT
                .BaudRate = 19200
                .Parity = Parity.None
                .DataBits = 8
                .StopBits = StopBits.One
                .Handshake = Handshake.RequestToSend
                .DtrEnable = True
                .RtsEnable = True
                .NewLine = vbCrLf
            End With
        End Sub
        Public Function SendSMS() As Boolean
            If SMSPort.IsOpen = True Then
                'sending AT commands
                SMSPort.WriteLine("AT")
                SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) 'set command message format to text mode(1)
                SMSPort.WriteLine("AT+CSCA=""+919822078000""" & vbCrLf) 'set service center address (which varies for service providers (idea, airtel))
                SMSPort.WriteLine("AT+CMGS=  + TextBox1.text + " & vbCrLf) ' enter the mobile number whom you want to send the SMS
                _ContSMS = False
                SMSPort.WriteLine("+ TextBox2.text +" & vbCrLf & Chr(26)) 'SMS sending
                MessageBox.Show(":send")
                SMSPort.Close()
            End If
        End Function
    
        Public Sub Open()
            If Not (SMSPort.IsOpen = True) Then
                SMSPort.Open()
            End If
        End Sub
    
        Public Sub Close()
            If SMSPort.IsOpen = True Then
                SMSPort.Close()
            End If
        End Sub
    End Class
    


    taylor ndaya

    vendredi 29 novembre 2013 09:28

Toutes les réponses