[Tutorial] How to make a CombatArms Cleaner!

[deathninjak0]

First of all most of the credits go to our rivalry site.

Required
* 3 GroupBoxes
* 10 CheckBoxes
* 1 Button
* 2 Labels


Rename your GroupBoxes to the following:

1. Extensions
2. Files
3. Misc.

Now put 6 CheckBoxes into Extensions. 2 into Files and 1 into Misc. Here's the long part, rename all the Tools to the following.

Extensions
*.txt
*.jpg
*.v3d
*.bin
*.dmp
*.dump

Files
EndingBanner.exe
CAV.exe

Misc.
1. Introduction

Other (in no GroupBox)
1. Check All

Labels
1. Status:
2. Waiting...

Buttons
1. Clean

Double click on Button1 (or Clean) and paste this code in...

Label2.Text = "Cleaned."
        If CheckBox1.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.txt")
        End If
        If CheckBox2.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.jpg")
        End If
        If CheckBox3.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.v3d")
        End If
        If CheckBox4.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.bin")
        End If
        If CheckBox5.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.dmp")
        End If
        If CheckBox6.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.dump")
        End If
        If CheckBox7.Checked = True Then
            On Error Resume Next
            System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal)
            Kill("C:\Nexon\Combat Arms\EndingBanner.exe")
        End If
        If CheckBox8.Checked = True Then
            On Error Resume Next
            System.IO.File.SetAttributes("C:\Nexon\Combat Arms\CAV.exe", System.IO.FileAttributes.Normal)
            Kill("C:\Nexon\Combat Arms\CAV.exe")
        End If
        If CheckBox9.Checked = True Then
            On Error Resume Next
            If Dir("C:\Nexon\Combat Arms\MOVIES") <> "" Then
                Rename("C:\Nexon\Combat Arms\Game\MOVIES", "C:\Nexon\Combat Arms\Game\CLEANED")
            End If
        End If

Double click on the Check All label and paste this in...

If CheckBox10.Checked = True Then
            CheckBox1.Checked = True
            CheckBox2.Checked = True
            CheckBox3.Checked = True
            CheckBox4.Checked = True
            CheckBox5.Checked = True
            CheckBox6.Checked = True
            CheckBox7.Checked = True
            CheckBox8.Checked = True
            CheckBox9.Checked = True
        Else
            CheckBox10.Checked = False
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            CheckBox4.Checked = False
            CheckBox5.Checked = False
            CheckBox6.Checked = False
            CheckBox7.Checked = False
            CheckBox8.Checked = False
            CheckBox9.Checked = False
        End If

Now Your all done!


Now debug/save, and you're all done,
Enjoy!

[guza44_44]

nice nice but mine is sooooo much better lmao :}

[deathninjak0]

I am just posting a simple TUT.

[guza44_44]

yes i know which is very good because these codes are valuable to many different things also i do my code differently then this code right here because im not familiar: (the Dir and the <>)

 Dir("C:\Nexon\Combat Arms\EndingBanner.exe") <> ""

[XGelite]

you forgot one thing. Ending banner and lots of those other files are read only, so they wont delete like that. You have to set the atribute of the files from read only to normal

heres a simple way:

System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\Ahnrpt.exe", _
    System.IO.FileAttributes.Normal)
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal)
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\v3warpds.v3d", System.IO.FileAttributes.Normal)
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\v3warpns.v3d", System.IO.FileAttributes.Normal)

there. ( thats not all the files, but you get the idea )

[deathninjak0]

ok thanks i'll fix it after I eat.

[guza44_44]

thats kinda why i just move the endingbanner in another location just incase people need it back for any reason..............BTW nice to see u back PixieCorp

[deathninjak0]

you forgot one thing. Ending banner and lots of those other files are read only, so they wont delete like that. You have to set the atribute of the files from read only to normal

heres a simple way:

System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\Ahnrpt.exe", _
    System.IO.FileAttributes.Normal)
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal)
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\v3warpds.v3d", System.IO.FileAttributes.Normal)
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\v3warpns.v3d", System.IO.FileAttributes.Normal)

there. ( thats not all the files, but you get the idea )

K, I just edit it, thanks.

[Pixie]

Thanks a lot, I will test later when I'm done making a project

[tabbyowns]

Cool Thanks ...

[-XpliCitt-]

Sorry, but that's not very efficient coding.
You could replace 90% of the 'if' codes with four lines of coding.

[deathninjak0]

Sorry, but that's not very efficient coding.
You could replace 90% of the 'if' codes with four lines of coding.

Sorry man, I'm a noob in vb 08 so yeah...

[wtfiwantthatname]

Why not just renamed everything that your trying to delete to .bak and have a restore button on the tool just in case something goes awry.

[†hêêlêmêñ†¹²]

Thanks deathninjak0. Now I don't have to look for a cleaner. Haha.

[deathninjak0]

Thanks deathninjak0. Now I don't have to look for a cleaner. Haha.

np, glad I can help