[VB]Combat Arms Multi Tool Source

[Yepikiyay]

Credits: Br33Zzii, Dennis, acid_buRn, freedompeace, XGelite

CBL Detector:

Dim url As String
        url = "https://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

Cleaner:

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

Flashing LinkLabel:

 Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("https://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

well that its!

[Blubb1337]

You may add a sample project.

Very basic, thanks for the release though.

[Yepikiyay]

You may add a sample project.

Very basic, thanks for the release though.

im not at home and i dont have vb i wiped my HDD's 2 days ago

['Bruno]

nice, this time you placed it on the right section

plus this is a easy way for leechers to C&P and claim their code.. but still. thanks for share.

[MugNuf]

I don't think that CBL Detector works anymore.

Pretty dumb way to make a cleaner, but i guess it works =/.

The flashing label is kinda cool.

Its all basic except the CBL Detector.

[Jason]

[php]

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
[/php]

fail kill commands. If checkbox1 isn't checked then nothing else will clean. Give each Kill it's own "If -> End If" wrappers.

Also this makes killing a lot easier

[php]
Private Sub Killa (ByVal ext as String)

Kill("C:\Nexon\Combat Arms\" & ext)

End Sub
[/php]
Then whenever you kill shit.

say to remove endingbanner:

[php]
killa("EndingBanner.exe")
[/php]

chyeah.

[tempta43]

Epic Leech.
I've seen this on like 10 websites.

['Bruno]

Epic Leech.
I've seen this on like 10 websites.

well.. he is giving credits..

[Lolland]

Nice tutorial... kinda.

Err, copy and paste much?

[Yepikiyay]

Nice tutorial... kinda.

Err, copy and paste much?

Yea but o have credit where credit was due