By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
438,646 Members | 2,063 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 438,646 IT Pros & Developers. It's quick & easy.

VB-SMS Help

P: 6
Hi Friends,

I need Help to Develope a VB based SMS Service application. Can any one Help me.

Discription
========

I want to develop one Visual Basic Base SMS application using Mscomm Componenet and "AT" command and I have a GSM Modem for this task to handle SMS services. but i have problem that i dont know the modem settings means is require any specific setting to handle this task(for ex. any SMTP,POP3 Configration etc.). below i put little code which i develope to send a message. My GSM modem connect with the Server(Com1).

Please Let me know if further informatin is required.

Code
=====

With MSComm1
.CommPort = 1
.Settings = "9600,N,8,1"
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeBinary
.InputLen = 0
.PortOpen = True 'must be the last
End With
MSComm1.Output = "AT" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGS= " & Chr(34) & "+1234567(Receipt Phone Number)" & Chr(34) & ",129" & Chr$(13) & Chr(10)
MSComm1.Output = "Testing..."
MSComm1.PortOpen = False

Please Help Me.

Thanks in Advance.

Regards & Thanks,
Dhaval Patel
Nov 21 '06 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.