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?Â
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
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
