[Tutorial]How to make a CA Cleaner[Leeched]
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...
Double click on the Check All label and paste this in...
Now Your all done!
Now debug/save, and you're all done,
Enjoy!
Press thanks if i helped !
* 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...
Code:
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
Code:
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 debug/save, and you're all done,
Enjoy!
Press thanks if i helped !