Prijem sms poruka preko MScomm uz koristenje AT komandi u VBS

Code:

Function action
Dim SMSSend
Dim SMS
SMS = "Hello World!"

If HMIRuntime.Tags("hp_senzor_glassbreak").Read = 1 Then


Set SMSSend = HMIRuntime.Screens("pocetna").ScreenItems("Control2")

       
       'podesavanja i otvaranje porta
    SMSSend.CommPort = 1
       SMSSend.Settings = "115200,N,8,1"
       SMSSend.InputLen = 0
       SMSSend.Handshaking = 0
       SMSSend.PortOpen = True
       
       'komanda ate1 uspostavljanje komunikacije sa eha
       SMSSend.Output = "atE1" & Chr(13)
      
      
       
       'provera u kom rezimu modem radi
       SMSSend.Output = "AT+CMGF=1" & Chr(13)
      
       
       'formiranje i slanje poruke
       SMSSend.Output = "AT+CMGS=064123456" & Chr(13) 
    
       SMSSend.Output = SMS + Chr(26)      
     
       ' zatvaranje porta
       SMSSend.PortOpen = False
     
   
End If  
End Function

Code:

Public Function Parse_SMS() As Boolean
Dim StartPoint As Long
Dim EndPoint As Long
Dim Buffer1 As String
Dim Buffer2 As String
Buffer1 = Message_Buffer
StartPoint = InStr(1, Buffer1, "+CMGR:", vbTextCompare)
EndPoint = InStr(1, Buffer1, vbCrLf & "OK", vbTextCompare)
If StartPoint <> 0 And EndPoint > StartPoint Then
   I = StartPoint
   While I < EndPoint
    Buffer2 = Buffer2 & Mid(Buffer1, I, 1)
    I = I + 1
   Wend
   Parse_SMS = True
   Message_Buffer = Buffer2
   Exit Function
End If
Parse_SMS = False
End Function

Code:

MSComm1.Settings = "19200,n,8,1" 'probaj sa razlicitim vrednostima prvog parametra -> 19200