Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If DateDiff(DateInterval.Second, mLastTick, Now) >= TICK_PERIOD Then
            Try
                ListBox1.Items.Clear()
                Using db As New BanHammer
                    Dim bl As BanList, IPs As New List(Of String), log As EventLog = New EventLog("Security")
                    For Each le As Object In (From v In log.Entries).ToList
                        ' Where v.TimeGenerated > DateAdd(DateInterval.Minute, -WOODPECKING_MINUTES, Now) 
                        ' And v.EntryType = EventLogEntryType.FailureAudit).ToList

                        Dim m As Match = Regex.Match(le.Message, "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}")
                        If m.Success Then IPs.Add(m.Groups(0).Value)
                    Next
                    For Each obj As Object In (From ip In IPs Group By ip Into Qty = Count() Select ip, Qty Where Qty >= WOODPECKER_FACTOR).ToList
                        Dim ip As String = obj.ip
                        Dim qty As Integer = (From v In db.BanList Where v.IP = ip).Count

                        ListBox1.Items.Add(ip & " " & qty)
                        If qty = 0 Then
                            bl = New BanList
                            bl.IP = obj.IP
                            bl.Expires = DateAdd(DateInterval.Day, BAN_DAYS, Now)
                            db.Attach(bl)
                        End If
                    Next
                    For Each bl In (From v In db.BanList Where v.Expires < Now).ToList()
                        db.DeleteObject(bl)
                    Next
                    db.SaveChanges()
                End Using
            Catch ex As Exception
                Dim log As EventLog = New EventLog("Application")
                log.WriteEntry("BanHammer error: " & ex.Message, EventLogEntryType.Error)
            End Try
            mLastTick = Now
        End If
    End Sub