Originally Posted by
neofar
proof or gtfo o.o
i call bs
[php] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2.Enabled = True
If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And CheckBox7.Checked = False And CheckBox8.Checked = False And CheckBox9.Checked = False And CheckBox10.Checked = False Then
Label3.Text = "Select an option!"
Label3.ForeColor = Color.DeepSkyBlue
Button2.Enabled = False
Else
Label3.Text = "Cleaned!"
Label3.ForeColor = Color.Lime
End If
If CheckBox1.Checked = True Then
On Error Resume Next
Kill(TextBox1.Text & "\*.bin")
End If
If CheckBox2.Checked = True Then
On Error Resume Next
Kill(TextBox1.Text & "\*.dmp")
End If
If CheckBox3.Checked = True Then
On Error Resume Next
Kill(TextBox1.Text & "\*.dump")
End If
If CheckBox4.Checked = True Then
On Error Resume Next
Kill(TextBox1.Text & "\*.jpg")
End If
If CheckBox5.Checked = True Then
On Error Resume Next
Kill(TextBox1.Text & "\*.txt")
End If
If CheckBox6.Checked = True Then
On Error Resume Next
Kill(TextBox1.Text & "\*.v3d")
End If
If CheckBox7.Checked = True Then
On Error Resume Next
System.IO.File.SetAttributes(TextBox1.Text & "\CAV.exe", System.IO.FileAttributes.Normal)
Kill(TextBox1.Text & "\CAV.exe")
End If
If CheckBox8.Checked = True Then
On Error Resume Next
System.IO.File.SetAttributes(TextBox1.Text & "\EndingBanner.exe", System.IO.FileAttributes.Normal)
Kill(TextBox1.Text & "\EndingBanner.exe")
End If
If CheckBox9.Checked = True Then
On Error Resume Next
System.IO.File.SetAttributes(TextBox1.Text & "\Game\MOVIES\calogo.bik", System.IO.FileAttributes.Normal)
Kill(TextBox1.Text & "\Game\MOVIES\calogo.bik")
System.IO.File.SetAttributes(TextBox1.Text & "\Game\MOVIES\nalogo.bik", System.IO.FileAttributes.Normal)
Kill(TextBox1.Text & "\Game\MOVIES\nalogo.bik")
System.IO.File.SetAttributes(TextBox1.Text & "\Game\MOVIES\nelogo.bik", System.IO.FileAttributes.Normal)
Kill(TextBox1.Text & "\Game\MOVIES\nelogo.bik")
End If
End Sub[/php]
I coded that from scratch, its my cleaner, for my up-coming multitool. I win.
Good Fight.
And for the leechers, if you think you can just Copy and paste that into VB and get a cleaner, your wrong. I never gave the whole thing, so, if you do, you'll end up with a sloppy, crappy, cleaner that doesn't work.
Cheat Engine
