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

updates emails and urls

Browse Source
master
Dominic Reich 9 years ago
parent e52ba66982
commit 339af62239
2 changed files with 895 additions and 895 deletions
Show Stats Download Patch File Download Diff File

1624
WiW RCON Chat/Form1.resx
View File

File diff suppressed because it is too large Load Diff

166
WiW RCON Chat/Form1.vb
Unescape View File

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