Evo ga :
Code:
Public Sub CidDisable()
On Error GoTo CommErrorMain
Instring1 = ""
cmdEnable.Enabled = False
CidStatus = "Disableing"
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
MSComm1.Output = "ATZ0S82=74" & vbCr
' mnuEnable.Enabled = True
' mnuDisable.Enabled = False
AddToLog("Disableing...")
Timer1.Enabled = True
Exit Sub
CommErrorMain:
CommError(Err.Number)
End Sub
Public Sub CidEnable()
On Error GoTo CommErrorMain
cmdEnable.Enabled = False
Instring1 = ""
CidStatus = "Enableing"
MSComm1.CommPort = Port
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
MSComm1.Output = "ATZ0S82=76S42=3" & vbCr
' mnuEnable.Enabled = False
' mnuDisable.Enabled = True
AddToLog("Enableing...")
Timer1.Enabled = True
Exit Sub
CommErrorMain:
CommError(Err.Number)
End Sub
Public Sub CommError(ByVal errortohandle As Integer)
Select Case errortohandle
Case 0 : Resume Next
Case 20 : Resume Next
Case 8002
cmdEnable.Enabled = True
MsgBox("The Comm port" & Port & " does not exist", vbCritical)
CidStatus = "Disabled"
AddToLog("Disabled")
Exit Sub
Case 8005
cmdEnable.Enabled = True
MsgBox("The Comm port " & Port & " is in use.", vbCritical)
CidStatus = "Disabled"
AddToLog("Disabled")
' Exit Sub
Case 8012
MsgBox("netMod is in use.")
cmdEnable.Enabled = True
If MyBase.WindowState = vbNormal Then cmdEnable.Focus()
CidStatus = "Disabled"
AddToLog("Disabled")
Exit Sub
' DODATI ZA AUTO ENABLE
Case Else
MsgBox("ERROR " & Err.Number & " : " & Err.Description, vbCritical)
Exit Sub
End Select
End Sub
Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
Times = Times + 1
Instring = Instring & MSComm1.Input
If Times = 4 Then
MSComm1.PortOpen = False
Timer1.Enabled = False
cmdEnable.Enabled = True
Times = 0
If CidStatus = "Enableing" Then
AddToLog("Greska pri Enable-ovanju")
CidStatus = "Disabled"
' mnuEnable.Enabled = True
' mnuDisable.Enabled = False
ElseIf CidStatus = "Disabling" Then
AddToLog("Greska pri Disable-ovanju")
CidStatus = "Enabled"
' mnuEnable.Enabled = False
' mnuDisable.Enabled = True
Else
AddToLog("Neka Greska")
End If
Exit Sub
End If
If InStr(Instring, "OK") Then
AddToLog(Mid(Instring, InStr(Instring, "OK"), 2))
If CidStatus = "Enableing" Then
CidStatus = "Enabled"
cmdEnable.Text = "Disable"
End If
If CidStatus = "Disableing" Then
CidStatus = "Disabled"
cmdEnable.Text = "Enable"
MSComm1.PortOpen = False
End If
Timer1.Enabled = False
Instring = ""
Times = 0
cmdEnable.Enabled = True
End If
End Sub
Dim brojRingova As Integer
Private Sub Timer2_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer2.Elapsed
If CidStatus <> "Enabled" Then Exit Sub
Instring1 = MSComm1.Input
' AddToLog("'" & Instring1 & "'")
' AddToLog("Instring = " & Instring1)
Do While InStr(Instring1, vbCrLf) > 0 And Len(Instring1) > 2
If InStr(Instring1, vbCrLf) = 1 Then Instring1 = Mid(Instring1, 3)
If InStr(Instring1, vbCrLf) = 0 Then Instring1 = Instring1 & vbCrLf
Line = Mid(Instring1, 1, InStr(Instring1, vbCrLf) - 1)
If InStr(Line, "RING") Then
If InStr(Line, ";") Then
'STA KAD ZVONI PRVI PUT
SNumber = Mid(Line, InStr(Line, " ") + 1, InStr(Line, ";") - InStr(Line, " ") - 1)
PhoneNumber = Mid(Line, InStr(Line, ";") + 1)
brojRingova = 1
AddToLog("Incoming: " & phBook.NadjiKoJe(PhoneNumber, 1) & " (" & PhoneNumber & ")" & " Line: " & SNumber)
Else
' SAMO ZVONI - NEKI VIZUELNI EFEKAT
'AddToLog("ringg")
brojRingova = brojRingova + 1
End If
End If
If InStr(Line, "NO CARRIER") Then
'PREKID
'AddToLog("Prekinuto")
lstMissed.Items.Add(phBook.NadjiKoJe(PhoneNumber, 1) & " (" & PhoneNumber & ")" & " Line: " & SNumber & " Rings: " & brojRingova)
' phBook.DodajMissedUdb(PhoneNumber, SNumber, brojRingova)
brojRingova = 0
End If
Instring1 = Mid(Instring1, Len(Line) + 1)
Line = ""
Loop
Instring1 = ""
Timer2.Enabled = False
Timer3.Enabled = False
Timer3.Enabled = True
End Sub
Private Sub Timer3_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer3.Elapsed
Timer2.Enabled = True
Timer3.Enabled = False
End Sub
Private Sub MSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSComm1.OnComm
Timer2.Enabled = True
End Sub