Click here to Skip to main content
15,906,094 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: Help me , Please :(( Pin
coolestCoder18-Aug-06 0:28
coolestCoder18-Aug-06 0:28 
AnswerRe: Filling listbox on other page Pin
Guffa18-Aug-06 0:31
Guffa18-Aug-06 0:31 
AnswerRe: Help me , Please :(( Pin
FeRtoll18-Aug-06 13:43
FeRtoll18-Aug-06 13:43 
QuestionConnecting to UniSQL Database Pin
alien viper17-Aug-06 22:17
alien viper17-Aug-06 22:17 
Question.NET Pin
rahulnair17-Aug-06 21:43
rahulnair17-Aug-06 21:43 
AnswerRe: .NET Pin
Guffa17-Aug-06 22:14
Guffa17-Aug-06 22:14 
AnswerRe: .NET Pin
Christian Graus18-Aug-06 1:31
protectorChristian Graus18-Aug-06 1:31 
QuestionSMS Application Pin
Sathish_b8117-Aug-06 21:08
Sathish_b8117-Aug-06 21:08 
Hi
I have designed an application to send SMS via GSM Modem in vb6.0 using MSCOMM control. Used At commands to send the SMS.

The modem replies me with "OK" message for the common settings At commands ( AT + CMGF = 0 ), but getting the reply as "Error" for the At command (At + CMGS ) which is used to send the SMS.

Please help me out to solve this problem.

I used the following code in my application.


For SENDING SMS

MSComm1.CommPort = 3 (GSM modem is connected on the Port 3)
MSComm1.PortOpen = True
MSComm1.Settings = "115200, n, 8, 1"

' Send an 'AT' command to the phone ----> chr(13) -> carriage return
MSComm1.Output = "AT" & Chr$(13)
'strData$ = MSComm1.Output
' The phone will respond with an 'OK'

timedPause 8

' Set up the phone for a text message
'Do
DoEvents
MSComm1.Output = "AT+CMGF=0" & Chr$(13)
buffer$ = MSComm1.Input
MsgBox buffer$
'Loop Until InStr(buffer$, "OK")
buffer$ = ""
' The phone will respond with an 'OK'
timedPause 8

' Chr(34) --> Double Quotation
'Do
DoEvents
MSComm1.Output = "AT+CMGS= " & Chr(34) & txtDestinationNumber.Text & Chr(34) & Chr$(13) & Chr(10)

MSComm1.Output = txtDataToTransmit.Text & Chr$(26)
buffer$ = MSComm1.Input
MsgBox buffer$
'Loop Until InStr(buffer$, ">")

If buffer$ <> ">" Then
MsgBox "Sending Failed"
MSComm1.PortOpen = False
Exit Sub
End If
buffer$ = ""

MsgBox "SMS Sent"

MSComm1.PortOpen = False

Thanks in advance.

With Love,
Sathish
AnswerRe: SMS Application Pin
Coding C#18-Aug-06 1:56
Coding C#18-Aug-06 1:56 
GeneralRe: SMS Application Pin
FeRtoll18-Aug-06 13:44
FeRtoll18-Aug-06 13:44 
Question[Message Deleted] Pin
PREMSONBABY17-Aug-06 20:26
PREMSONBABY17-Aug-06 20:26 
AnswerRe: windows service Pin
Dave Sexton18-Aug-06 0:10
Dave Sexton18-Aug-06 0:10 
QuestionStrip out invalid characters from xml files [modified] Pin
Icharus17-Aug-06 17:10
Icharus17-Aug-06 17:10 
AnswerRe: Strip out invalid characters from xml files Pin
Christian Graus17-Aug-06 19:30
protectorChristian Graus17-Aug-06 19:30 
AnswerRe: Strip out invalid characters from xml files Pin
Guffa17-Aug-06 22:19
Guffa17-Aug-06 22:19 
AnswerRe: Strip out invalid characters from xml files Pin
Icharus18-Aug-06 8:05
Icharus18-Aug-06 8:05 
QuestionProgress Bar & ForeColor Pin
John Waclawski17-Aug-06 16:42
John Waclawski17-Aug-06 16:42 
AnswerRe: Progress Bar & ForeColor Pin
NGENEAR1118-Aug-06 16:32
NGENEAR1118-Aug-06 16:32 
AnswerRe: Progress Bar & ForeColor Pin
John Waclawski19-Aug-06 20:05
John Waclawski19-Aug-06 20:05 
QuestionProblem passing field from parent, to child form Pin
penguin500017-Aug-06 16:26
penguin500017-Aug-06 16:26 
AnswerRe: Problem passing field from parent, to child form Pin
Robotovich18-Aug-06 9:24
Robotovich18-Aug-06 9:24 
AnswerRe: Problem passing field from parent, to child form Pin
Scott Serl18-Aug-06 9:54
Scott Serl18-Aug-06 9:54 
QuestionGoogle search trouhh my app Pin
FeRtoll17-Aug-06 13:25
FeRtoll17-Aug-06 13:25 
AnswerRe: Google search trouhh my app Pin
Christian Graus17-Aug-06 14:08
protectorChristian Graus17-Aug-06 14:08 
GeneralRe: Google search trouhh my app Pin
FeRtoll17-Aug-06 14:23
FeRtoll17-Aug-06 14:23 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.