Need Help with AT Command VB6

Asked By zebisky 0 points N/A Posted on - 12/07/2012

I want to develop a small application in vb6. The application in vb6 will receive and send bulk SMS.

I am using Micromax MMX 353G modem.

My problem is that the normal AT commands are not working with this modem.

I need someone to help me with at commands vb6 to receive SMS and also send in bulk? 

• Status: Open
• Question Views: 1103
• Answer Count: 2
• Vote Up 0 Vote Down

• Answer Accepted: Yes
• Question Category: Visual basic

Best Answer by Shifflett Laurel

Go To Solution

Best Answer

Best Answer

Answered By Shifflett Laurel 0 points N/A #168904

Need Help with AT Command VB6

Hello Zebisky,

I am realizing your problem. Firstly set your modem accurately by following the procedures.Modem-using-AT-Com

Write and run the following code:

If COM3 shows in device manager then put COM4 in following statement.

Dim SMSEngine As New SMSCOMMS("COM4")

Shiffletttttt = New Serial Port

        With Shiffletttttt

            . PortName = COMMPORT

            . Baud Rate = 19200

            .Parity = Parity.None

            . DataBits = 8

            . StopBits = StopBits. One

            .Handshake = Handshake.RequestToSend

            . DtrEnable = True

            . RtsEnable = True

            . NewLine = vbCrLf

        End With

        'This is  the set of AT commands to be written on the serial port

            Shiffletttttt.WriteLine("AT")

            'Set the command message format to text mode (1)

            Shiffletttttt.WriteLine("AT+CMGF=1" & vbCrLf)

            'Set service center address (which varies for service providers (idea, Airtel))

            Shiffletttttt.WriteLine("AT+CSCA=""+919822078000""" & vbCrLf)

            ' Enter the mobile number with whom you want to send the SMS

            Shiffletttttt.WriteLine("AT+CMGS=  + TextBox1.text + " & vbCrLf)

            _ContSMS = False

            Shiffletttttt. WriteLine ("+ TextBox1. Text +" & vbCrLf & Chr (26)) 'SMS sending

    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 Sub

Best of Luck

Shifflettttt Laurel

About Shifflett Laurel

Questions
2

Answers
154

Best Answers
78

• Vote Up 0 Vote Down

• Posted on - 01/23/2013
• Question Category: Visual basic

Answered By Franke Mary 10 points N/A #168903

Need Help with AT Command VB6

Hi Zebisky,

Follow this instruction:

> Drop an Adodc on a form.

> Click the ellipsis next to the ConnectionString property in the ADO Data Control’s Properties window to bring up the Property Page dialog box for this property.

> On the page that opens, select "Use ConnectionString" then click the Build button to bring up the Data Link Properties tabbed dialog box.

> On the Provider tab of the Data Link Properties tabbed dialog box, choose an OLE DB data provider, such as Microsoft Jet 3.51 OLE DB (for office 2000) depending on which version of office you are using. If you have office 2003 you'll choose Microsoft Jet 4.1 OLE DB.

> Then click OK.

Then on the Connection tab select the path to your access DB and click on a button "Test Connection".

It should tell you that you are successful.

Hope it will work.

Regards
Franke Mary

About Franke Mary

Questions
3

Answers
102

Best Answers
23

• Vote Up 0 Vote Down

• Posted on - 01/27/2013
• Question Category: Visual basic