- log_viewer-eng.zip
- Log Viewer-ENG
- LogViewer
- log_viewer___executable__.zip
- Debug
- Log_viewer.zip
- log_viewer_source.zip
- Log Viewer
- LogViewer
- LogTail.suo
- LogViewer.sln
- LogViewer.suo
- LogViewer
- 1246630661_search.ico
- bin
- Debug
- Release
- CLS
- Frm
- Frm_Main.Designer.vb
- Frm_Main.resx
- Frm_Main.vb
- Log Viewer.vbproj
- Log Viewer.vbproj.user
- MDL
- My Project
- obj
- Debug
- Log Viewer.exe
- Log Viewer.pdb
- Log Viewer.vbproj.FileListAbsolute.txt
- Log Viewer.vbproj.GenerateResource.Cache
- Log Viewer.xml
- Log_Viewer.Frm_DizinIncele.resources
- Log_Viewer.Frm_Log.resources
- Log_Viewer.Frm_Main.resources
- Log_Viewer.Frm_RenkSecimi.resources
- Log_Viewer.Frm_WEvents.resources
- Log_Viewer.Resources.resources
- LogTail.exe
- LogTail.pdb
- LogTail.vbproj.FileListAbsolute.txt
- LogTail.vbproj.GenerateResource.Cache
- LogTail.xml
- ResolveAssemblyReference.cache
- TempPE
- My Project.Resources.Designer.vb.dll
- WindowsApplication1.Frm_Ayarlar.resources
- WindowsApplication1.Frm_Log.resources
- WindowsApplication1.Frm_Main.resources
- WindowsApplication1.FrmRenkSecimi.resources
- WindowsApplication1.Resources.resources
- Release
- build.force
- Log Viewer.exe
- Log Viewer.pdb
- Log Viewer.vbproj.FileListAbsolute.txt
- Log Viewer.vbproj.GenerateResource.Cache
- Log Viewer.xml
- Log_Viewer.Frm_Ayarlar.resources
- Log_Viewer.Frm_DizinIncele.resources
- Log_Viewer.Frm_KriterEKle.resources
- Log_Viewer.Frm_Log.resources
- Log_Viewer.Frm_Main.resources
- Log_Viewer.Frm_RenkSecimi.resources
- Log_Viewer.Frm_WEvents.resources
- Log_Viewer.FrmRenkSecimi.resources
- Log_Viewer.Resources.resources
- LogTail.vbproj.FileListAbsolute.txt
- LogTail.vbproj.GenerateResource.Cache
- TempPE
- My Project.Resources.Designer.vb.dll
- WindowsApplication1.Frm_Ayarlar.resources
- WindowsApplication1.Frm_Log.resources
- WindowsApplication1.Frm_Main.resources
- WindowsApplication1.FrmRenkSecimi.resources
- WindowsApplication1.Resources.resources
|
Public Class Frm_WEvents
#Region "On Tanimlar"
Dim Takip As System.Threading.Thread
Dim Cls_Aktif As Boolean = False
Dim Cls_ServerIsmi As String = String.Empty
Dim Cls_Logismi As String = String.Empty
#End Region
#Region "Form Olaylari"
Private Sub Frm_WEvents_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Cls_Aktif = False
End Sub
Private Sub Frm_WEvents_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoglariBul(Txt_Comp.Text)
For i As Int16 = 0 To Grd_Log.Columns.Count - 1
Grd_Log.Columns(i).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCellsExceptHeader
Next
Grd_Log.Columns("Bilgi").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LoglariBul()
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Cls_Aktif = CheckBox1.Checked
Txt_Ts.Enabled = Not (CheckBox1.Checked)
Cmb_ELog.Enabled = Not (CheckBox1.Checked)
Txt_Comp.Enabled = Not (CheckBox1.Checked)
If Cls_Aktif Then
Baslat()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LogGoster(Txt_Comp.Text, Cmb_ELog.Text)
End Sub
#End Region
#Region "Thereat"
Sub T_Takip()
Dim log As New WindowsEventLogReader
Dim sondanbironceki As New C_EventLog
Do
Dim son As New C_EventLog
son = log.SonLogBilgisi(Cls_Logismi, Cls_ServerIsmi)
If son IsNot Nothing Then
If son.Zaman <> sondanbironceki.Zaman And son.Mesaj <> sondanbironceki.Mesaj And son.Kaynak <> sondanbironceki.Kaynak Then
sondanbironceki.Zaman = son.Zaman
sondanbironceki.Kaynak = son.Kaynak
sondanbironceki.Tipi = son.Tipi
sondanbironceki.Mesaj = son.Mesaj
Ekle(son)
End If
End If
System.Threading.Thread.Sleep(Txt_Ts.Text)
Loop While Cls_Aktif
End Sub
#End Region
#Region "Sub"
Sub Baslat()
Takip = New System.Threading.Thread(AddressOf T_Takip)
Cls_Aktif = True
Cls_ServerIsmi = Txt_Comp.Text
Cls_Logismi = Cmb_ELog.Text
Takip.Start()
End Sub
Sub LoglariBul(Optional ByVal serverismi As String = "")
Try
Cmb_ELog.Items.Clear()
Dim E_list As New List(Of C_LogIsimleri)
Dim log As New WindowsEventLogReader
If Txt_Comp.Text <> "local" Then
E_list = log.LogKayitIsimleriniBul(Txt_Comp.Text)
Else
E_list = log.LogKayitIsimleriniBul()
End If
For Each c As C_LogIsimleri In E_list
Cmb_ELog.Items.Add(c.Logismi)
Next
Catch ex As Exception
MsgBox("Event Log Isimlerine UIasilamiyor.Hata : " & ex.ToString, MsgBoxStyle.Critical)
End Try
End Sub
Sub LogGoster(ByVal _server As String, ByVal _Logname As String)
Dim log As New WindowsEventLogReader
Dim a As New List(Of C_EventLog)
a = log.ListEventLog(_Logname, _server)
For i As Long = a.Count - 1 To a.Count - 100 Step -1
Try
Ekle(a(i))
Catch ex As Exception
End Try
Next
End Sub
Delegate Sub Ekle1(ByRef a As C_EventLog)
Sub Ekle(ByRef a As C_EventLog)
If Grd_Log.InvokeRequired Then
Dim d As New Ekle1(AddressOf Ekle)
Grd_Log.Invoke(d, New Object() {a})
Else
Dim r1 As New DataGridViewRow
Dim c1 As New DataGridViewTextBoxCell
Dim c2 As New DataGridViewImageCell
Dim c3 As New DataGridViewTextBoxCell
Dim c4 As New DataGridViewTextBoxCell
Dim c5 As New DataGridViewTextBoxCell
CellStil(c1, New Cls_SatirOZellik("", Color.Black, Color.White, 0)) : CellStil(c3, New Cls_SatirOZellik("", Color.Black, Color.White, 0)) : CellStil(c4, New Cls_SatirOZellik("", Color.Black, Color.White, 0))
' If yazistil.ImgIndex <> -1 Then
If a.Tipi = 4 Then 'info
c2.Value = MainF.img1.Images(31)
ElseIf a.Tipi = 1 Then ' error
c2.Value = MainF.img1.Images(4)
Else
c2.Value = MainF.img1.Images(3) 'excla
End If
r1.Cells.Add(c1)
r1.Cells.Add(c2)
r1.Cells.Add(c3)
r1.Cells.Add(c4)
r1.Cells.Add(c5)
Try
r1.Cells(0).Value = Grd_Log.Rows(Grd_Log.Rows.Count - 1).Cells(0).Value + 1
Catch ex As Exception
Dim say As Long = 0 ' _ssayisi - Txt_MAxLog.Text + 1
If say <= 0 Then say = 1
r1.Cells(0).Value = say
End Try
r1.Cells(2).Value = a.Kaynak
r1.Cells(3).Value = a.Zaman
r1.Cells(4).Value = a.Mesaj
Grd_Log.Rows.Add(r1)
End If
End Sub
#End Region
Private Sub Grd_Log_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Grd_Log.CellContentClick
End Sub
Private Sub Grd_Log_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles Grd_Log.RowsAdded
On Error Resume Next
If Grd_Log.Rows.Count > 300 Then
Grd_Log.Rows.RemoveAt(0)
End If
Grd_Log.Rows(Grd_Log.Rows.Count - 2).Selected = False
Grd_Log.Rows(Grd_Log.Rows.Count - 1).Selected = True
Grd_Log.FirstDisplayedScrollingRowIndex = Grd_Log.RowCount - 1
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.