dominic/wiw-rcon-chat
1
0
Fork 0
Code Issues Pull requests Releases Activity

updates emails and urls

Browse source
This commit is contained in:
Dominic Reich 2016-05-23 19:06:22 +02:00
parent e52ba66982
commit 339af62239
2 changed files with 895 additions and 895 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1624
WiW RCON Chat/Form1.resx
View file

File diff suppressed because it is too large Load diff

166
WiW RCON Chat/Form1.vb
View file

@ -1,84 +1,84 @@
Imports System
Imports System.Diagnostics
Public Class frmMain
Private Sub button_AddToFilter_Click(sender As Object, e As EventArgs) Handles button_AddToFilter.Click
If txt_FilterInput.Text <> "" Then
listbox_Filters.Items.Add(txt_FilterInput.Text)
txt_FilterInput.Text = Nothing
End If
End Sub
Private Sub button_RemoveFromFilter_Click(sender As Object, e As EventArgs) Handles button_RemoveFromFilter.Click
On Error Resume Next
listbox_Filters.Items.Remove(listbox_Filters.SelectedItem)
listbox_Filters.SetSelected(0, True)
End Sub
Private Sub button_SortAndFilter_Click(sender As Object, e As EventArgs) Handles button_SortAndFilter.Click
If txt_Input.Text = "" Then
Exit Sub
End If
txt_Output.Text = ""
Dim aInput As Array = txt_Input.Lines
'Dim aOutput() As Array
Array.Reverse(aInput)
ProgressBar1.Value = 0
ProgressBar1.Maximum = Int(aInput.Length)
For Each _inputlines As String In aInput
ProgressBar1.Increment(1)
If chkbox_NoServerMessages.Checked = True And _inputlines.ToString.Contains("Server") Then
Continue For
End If
If listbox_Filters.Items.Count > 0 Then
' run filters on _inputlines
For Each _filter As String In listbox_Filters.Items
If _inputlines.ToString.Contains(_filter) Then
txt_Output.AppendText(_inputlines + vbNewLine)
End If
Next
Else
txt_Output.AppendText(_inputlines + vbNewLine)
End If
Next
Dim strInputLines As String = Int(aInput.Length)
Dim strOutputLines As String = Int(txt_Output.Lines.Length) - 1
lbl_LinesInput.Text = " Input Lines: " + strInputLines
lbl_LinesOutput.Text = "Output Lines: " + strOutputLines
End Sub
Private Sub link_Email_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Email.LinkClicked
On Error GoTo showerr
link_Email.LinkVisited = True
System.Diagnostics.Process.Start("mailto:Dominic Reich <dominic@tmsn.at>")
Exit Sub
showerr:
MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Private Sub link_Website_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Website.LinkClicked
On Error GoTo showerr
link_Website.LinkVisited = True
System.Diagnostics.Process.Start("http://tmsn.at/?tools&rcon-chat")
Exit Sub
showerr:
MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Private Sub txt_FilterInput_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_FilterInput.KeyDown
If e.KeyCode = Keys.Enter Then
button_AddToFilter_Click(txt_FilterInput, Nothing)
End If
End Sub
Private Sub button_ClearFilters_Click(sender As Object, e As EventArgs) Handles button_ClearFilters.Click
On Error Resume Next
listbox_Filters.Items.Clear()
End Sub
Imports System
Imports System.Diagnostics
Public Class frmMain
Private Sub button_AddToFilter_Click(sender As Object, e As EventArgs) Handles button_AddToFilter.Click
If txt_FilterInput.Text <> "" Then
listbox_Filters.Items.Add(txt_FilterInput.Text)
txt_FilterInput.Text = Nothing
End If
End Sub
Private Sub button_RemoveFromFilter_Click(sender As Object, e As EventArgs) Handles button_RemoveFromFilter.Click
On Error Resume Next
listbox_Filters.Items.Remove(listbox_Filters.SelectedItem)
listbox_Filters.SetSelected(0, True)
End Sub
Private Sub button_SortAndFilter_Click(sender As Object, e As EventArgs) Handles button_SortAndFilter.Click
If txt_Input.Text = "" Then
Exit Sub
End If
txt_Output.Text = ""
Dim aInput As Array = txt_Input.Lines
'Dim aOutput() As Array
Array.Reverse(aInput)
ProgressBar1.Value = 0
ProgressBar1.Maximum = Int(aInput.Length)
For Each _inputlines As String In aInput
ProgressBar1.Increment(1)
If chkbox_NoServerMessages.Checked = True And _inputlines.ToString.Contains("Server") Then
Continue For
End If
If listbox_Filters.Items.Count > 0 Then
' run filters on _inputlines
For Each _filter As String In listbox_Filters.Items
If _inputlines.ToString.Contains(_filter) Then
txt_Output.AppendText(_inputlines + vbNewLine)
End If
Next
Else
txt_Output.AppendText(_inputlines + vbNewLine)
End If
Next
Dim strInputLines As String = Int(aInput.Length)
Dim strOutputLines As String = Int(txt_Output.Lines.Length) - 1
lbl_LinesInput.Text = " Input Lines: " + strInputLines
lbl_LinesOutput.Text = "Output Lines: " + strOutputLines
End Sub
Private Sub link_Email_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Email.LinkClicked
On Error GoTo showerr
link_Email.LinkVisited = True
System.Diagnostics.Process.Start("mailto:Dominic Reich <dr@klamm.io>")
Exit Sub
showerr:
MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Private Sub link_Website_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Website.LinkClicked
On Error GoTo showerr
link_Website.LinkVisited = True
System.Diagnostics.Process.Start("http://klamm.io")
Exit Sub
showerr:
MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Private Sub txt_FilterInput_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_FilterInput.KeyDown
If e.KeyCode = Keys.Enter Then
button_AddToFilter_Click(txt_FilterInput, Nothing)
End If
End Sub
Private Sub button_ClearFilters_Click(sender As Object, e As EventArgs) Handles button_ClearFilters.Click
On Error Resume Next
listbox_Filters.Items.Clear()
End Sub
End Class