[VB]Combat Arms Multi Tool Source

Dim url As String
        url = "http://thecaconline.net/cbl/cbl.php?player=" + TextBox1.Text
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.GetEncoding("windows-1252"))
        Dim Online As String
        Online = sr.ReadToEnd()
        If InStr(Online, "</S></FONT></A> ") Then
            Label2.Text = "BANNED"
            Label2.ForeColor = Color.Red
            Label2.Visible = True
        ElseIf InStr(Online, "cbl/images/clean.png") Then
            Label2.Text = "CLEAN"
            Label2.ForeColor = Color.Green
            Label2.Visible = True
        ElseIf InStr(Online, "cbl/images/dirty.png") Then
            Label2.Text = "DIRTY"
            Label2.ForeColor = Color.Red
            Label2.Visible = True
        End If
    End Sub

Public Class Cleaner
    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        Me.Close()
    End Sub

    Private Sub Cleaner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            CheckBox1.Checked = True
            CheckBox2.Checked = True
            CheckBox3.Checked = True
            CheckBox4.Checked = True
            CheckBox5.Checked = True
            CheckBox6.Checked = True
            CheckBox9.Checked = True
        Else
            If CheckBox7.Checked = False Then
                CheckBox1.Checked = False
                CheckBox2.Checked = False
                CheckBox3.Checked = False
                CheckBox4.Checked = False
                CheckBox5.Checked = False
                CheckBox6.Checked = False
                CheckBox9.Checked = False
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.txt")
        If CheckBox2.Checked Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.jpg")
            If CheckBox3.Checked Then
                On Error Resume Next
                Kill("C:\Nexon\Combat Arms\*.bin")
                If CheckBox4.Checked Then
                    On Error Resume Next
                    Kill("C:\Nexon\Combat Arms\*.v3d")
                    If CheckBox5.Checked Then
                        On Error Resume Next
                        Kill("C:\Nexon\Combat Arms\*.dmp")
                        If CheckBox6.Checked Then
                            On Error Resume Next
                            Kill("C:\Nexon\Combat Arms\*.dump")
                                If CheckBox9.Checked Then
                                    On Error Resume Next
                                Kill("C:\Nexon\Combat Arms\EndingBanner.exe")
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
End Class

 Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://www.*********.com/")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = (600)
        Me.LinkLabel1.Visible = Not Me.LinkLabel1.Visible
    End Sub