please need help in sms sending probmel in asp.net?

Question

2.00/5 (1 vote)

See more:

DEAR ALL
please i need help in ASP.net
i try to send sms from AT Command and i successful in VB.net
but when i wirte and use same code in ASP.net so it is getting error just it goes else not read in if as i wrote code bellow you may see this

VB

Dim SerialPort1 As New SerialPort   ('i have to write this because in asp.net serial port not import)
        Try
            If SerialPort1.IsOpen Then
                With SerialPort1
                    .Write("AT" & vbCrLf)
                    .Write("AT+CMGF=1" & vbCrLf)
                    .Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
                    .Write(TextBox2.Text & Chr(26))
                    MsgBox("sms Sent")

                End With
            Else
                MsgBox("ERROR MSG ON PORT")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

I tried this code and this is not works just it show msg this one
MsgBox("ERROR MSG ON PORT")

please i need help

Posted 19-Sep-13 7:52am

irfanansari

Updated 19-Sep-13 8:12am

ridoy

v3

Add a Solution

Comments

Richard C Bishop 19-Sep-13 14:08pm

ASP.Net is not a language. The code you have written is VB.Net, VB.Net is apart of ASP.Net.

[no name] 19-Sep-13 16:42pm

Well obviously you are getting that error message because the port is not open.

irfanansari 20-Sep-13 14:28pm

but i have open port when i connect it you may see this code
Try
With SerialPort1
.PortName = ComboBox1.Text
.BaudRate = 9600
.Parity = Parity.None
.StopBits = StopBits.One
.DataBits = 8
.Handshake = Handshake.RequestToSend
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
.Open()
MsgBox("Connected")

End With
Catch ex As Exception
MsgBox(ex.Message)

End Try
then i use this when try to send sms
Try
If SerialPort1.IsOpen Then
With SerialPort1
.Write("AT" & vbCrLf)
.Write("AT+CMGF=1" & vbCrLf)
.Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
.Write(RichTextBox1.Text & Chr(26))
MsgBox("sms Sent")

End With
Else
MsgBox("ERROR MSG ON PORT")
End If
Catch ex As Exception
MsgBox(ex.Message)

End Try

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CPallini · Answer 1 · 2013-09-19T09:22:00

Solution 1

By change, are you trying to use the serial port of another computer? See this page: Read serial port COMM1[^].

Posted 19-Sep-13 9:22am

CPallini

Comments

irfanansari 20-Sep-13 6:15am

No Sir i Am using Serial Port My Own Computer as i Am using in vb.net and its works fine