hi everbody
i am using visual basic 2005. i am write a modem control program and
get callerID value. i am send a AT command to modem.
Dim mscomm1 As New MSCommLib.MSComm
mscomm1.CommPort = 3
mscomm1.PortOpen = True
mscomm1.Output = "AT#CID=1"
mscomm1.Output = "AT%CCID=1"
mscomm1.Output = "AT+VCID=1"
mscomm1.Output = "AT#CC1"
mscomm1.Output = "AT*ID1"
every command return OK or ERROR.
Sub KontrolEt()
'control telephone line
Try
Dim m As String
Dim r As String = TextBox1.Text
m = r.Substring(123, 1)
If m = "0" Then
r = r.Substring(123, 11)
GoTo there
End If
If m = "0" Then
Timer1.Enabled = False
Me.BarButtonItem17.Enabled = True
mscomm1.PortOpen = False
TextBox1.Text = ""
MsgBox("no number")
frmMusteriSec.Show()
Else
r = r.Substring(123, 7)
End If
there:
Timer1.Enabled = False
mscomm1.PortOpen = False
TextBox1.Text = ""
frmSiparisAl.FormShow(1, "", m)
Catch ex As Exception
End Try
End Sub
telephone ring and my program error code : Exception from HRESULT:
0x800A1F52. what is this code. but this code run vb.net 2003 and no
problem