Attribute VB_Name = "EventLog"
'------------------------------------------------------------------------------
' SMSC client .NET components COM sample code
'
' Copyright (c) 2003-2013 Tops. All rights reserved.
'------------------------------------------------------------------------------

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SETSEL = &HB1
Private Const EM_SCROLLCARET = &HB7

Enum EventDirection
    edOutgoing
    edIncoming
End Enum

Sub AddEvent(LogWindow As TextBox, Text As String, Optional Details As String = "", Optional Direction As EventDirection = edOutgoing)
    Dim Prefix As String
    Dim Lines() As String
    Dim i As Long
    
    If Direction = edIncoming Then
        Prefix = "<<< "
    Else
        Prefix = ">>> "
    End If
        
    LogWindow.Text = LogWindow.Text & Prefix & Text & vbCrLf
    If Details <> "" Then
        Lines = Split(Details, vbCr)
        For i = 0 To UBound(Lines)
            LogWindow.Text = LogWindow.Text & "       " & Lines(i) & vbCrLf
        Next
    End If
    SendMessage LogWindow.hwnd, EM_SETSEL, Len(LogWindow.Text), Len(LogWindow.Text)
    SendMessage LogWindow.hwnd, EM_SCROLLCARET, 0, 0
End Sub

Sub AddConnectingEvent(LogWindow As TextBox)
    AddEvent LogWindow, "Connecting (this may take a while)."
End Sub

Sub AddConnectedEvent(LogWindow As TextBox)
    AddEvent LogWindow, "Connected"
End Sub

Sub AddConnectionErrorEvent(LogWindow As TextBox, ErrorCode As Long)
    AddEvent LogWindow, "Connection failed. Error: " & ErrorCode
End Sub

Sub AddDisconnectedEvent(LogWindow As TextBox, Reason As Long)
    AddEvent LogWindow, "Disconnected. Reason: " & Reason
End Sub

Sub AddInitializedEvent(LogWindow As TextBox)
    AddEvent LogWindow, "Initialized"
End Sub

Sub AddInitializationErrorEvent(LogWindow As TextBox, ErrorCode As Long)
    AddEvent LogWindow, "Initialization failed. Error: " & ErrorCode
End Sub

Sub AddMessageSubmitedEvent(LogWindow As TextBox, Optional MessageID As String = "", Optional TimeStamp As Date = 0)
    Dim Details As String
    
    Details = ""
    If MessageID <> "" Then Details = Details & "MessageID: " & MessageID & vbCr
    If TimeStamp <> 0 Then Details = Details & "TimeStamp: " & TimeStamp & vbCr
    Details = Left(Details, Len(Details) - 1)
    
    AddEvent LogWindow, "Message submited", Details
End Sub

Sub AddMessageSubmissionErrorEvent(LogWindow As TextBox, ErrorCode As Long)
    AddEvent LogWindow, "Message submit failed. Error: " & ErrorCode
End Sub

Sub AddMessageReceivedEvent(LogWindow As TextBox, Destination As String, Originator As String, SMText As String, Encoding As EncodingEnum, UserDataHeader As String, Optional TimeStamp As Date = 0)
    Dim Details As String
    
    Details = ""
    Details = Details & "Destination: " & Destination & vbCr
    Details = Details & "Originator: " & Originator & vbCr
    Details = Details & "SMText: " & SMText & vbCr
    Details = Details & "Encoding: " & Encoding & vbCr
    If UserDataHeader <> "" Then Details = Details & "UDH: " & UserDataHeader & vbCr
    If TimeStamp <> 0 Then Details = Details & "TimeStamp: " & TimeStamp & vbCr
    Details = Left(Details, Len(Details) - 1)
    
    AddEvent LogWindow, "Message received", Details, edIncoming
End Sub

Sub AddStatusReportReceivedEvent(LogWindow As TextBox, Destination As String, SMStatus As Byte, FailureReason As Long, Optional Originator As String = "", Optional MessageID As String = "", Optional MessageTimeStamp As Date = 0, Optional TimeStamp As Date = 0)
    Dim Details As String
    
    Details = ""
    If MessageID <> "" Then Details = Details & "MessageID: " & MessageID & vbCr
    If MessageTimeStamp <> 0 Then Details = Details & "MessageTimeStamp: " & MessageTimeStamp & vbCr
    Details = Details & "Destination: " & Destination & vbCr
    If Originator <> "" Then Details = Details & "Originator: " & Originator & vbCr
    Details = Details & "SMStatus: " & SMStatus & vbCr
    Details = Details & "FailureReason: " & FailureReason & vbCr
    If TimeStamp <> 0 Then Details = Details & "TimeStamp: " & TimeStamp & vbCr
    Details = Left(Details, Len(Details) - 1)
    
    AddEvent LogWindow, "Status report received", Details, edIncoming
End Sub