Make your CA Texture Remover

[Ugleh]

Now, Im going to give you the full source code, along with the set up. The source itself I tried to make neat for this purpose, of giving it out.

The Setup
The setup is simple, simply create this below, and ill tell you the rest afterword.


Now I will tell you what settings to edit for each component.

Nexon Text Field

• Give the name "FolderText" and the Text "C:\Nexon"

Folder Dialog

• Rename it to "FolderDialog"
• Selected path is "C:\Nexon"

Guns Label

• Give the TEXT and NAME to "Guns"

Map Textures Label

• Give the TEXT "Map Textures" and NAME to "Map"

Characters Label

• Give the TEXT "Characters" and NAME to "Chara"

Attachments Label

• Give the TEXT "Attachments (Silencers, exc)" and NAME to "Attach"

Gun Sounds Label

• Give the TEXT "Gun Sounds" and NAME to "GunSound"

Waiting Label

• Give the TEXT "Waiting" and NAME to "Waiting"
• Color is Dark Red

Remove Button

• Give the NAME and TEXT "Remove"

Revert Button

• Give the NAME "Revert" and TEXT "Revert to Normal"

The Code
Just select everything in Form1.vb (code) and delete, then paste this.

Option Explicit On
Imports System.IO


Public Class Form1
    Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
    Private Sub FolderText_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FolderText.Click
        FolderDialog.ShowDialog()
        FolderText.Text = FolderDialog.SelectedPath

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FolderText.Text = FolderDialog.SelectedPath
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click
        Dim Location As String
        Dim MoveLocation As String
        Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
        MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
        Dim GunsFile1 As String
        GunsFile1 = "GUNS_T_HH.rez"
        Dim GunsFile2 As String
        GunsFile2 = "GUNS_T_PV_AR.rez"
        Dim GunsFile3 As String
        GunsFile3 = "GUNS_T_PV_ETC.rez"
        Dim GunsFile4 As String
        GunsFile4 = "GUNS_T_PV_HAND.rez"
        Dim GunsFile5 As String
        GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
        Dim GunsFile6 As String
        GunsFile6 = "GUNS_T_PV_MELEE.rez"
        Dim GunsFile7 As String
        GunsFile7 = "GUNS_T_PV_OPTION.rez"
        Dim GunsFile8 As String
        GunsFile8 = "GUNS_T_PV_Pistol.rez"
        Dim GunsFile9 As String
        GunsFile9 = "GUNS_T_PV_SG.rez"
        Dim GunsFile10 As String
        GunsFile10 = "GUNS_T_PV_SMG.rez"
        Dim GunsFile11 As String
        GunsFile11 = "GUNS_T_PV_SR.rez"
        Dim GunsFile12 As String
        GunsFile12 = "GUNS_T_PV_Throwing.rez"
        Dim GunsFile13 As String
        GunsFile13 = "GUNS_T_PV_MG.rez"

        If Guns.Checked = True Then
            On Error Resume Next
            File.Move(Location + GunsFile1, MoveLocation + GunsFile1)
            Waiting.Text = "Removing guns (10%)"
            File.Move(Location + GunsFile2, MoveLocation + GunsFile2)
            Waiting.Text = "Removing guns (20%)"
            File.Move(Location + GunsFile3, MoveLocation + GunsFile3)
            Waiting.Text = "Removing guns (30%)"
            File.Move(Location + GunsFile4, MoveLocation + GunsFile4)
            Waiting.Text = "Removing guns (40%)"
            File.Move(Location + GunsFile5, MoveLocation + GunsFile5)
            Waiting.Text = "Removing guns (50%)"
            File.Move(Location + GunsFile6, MoveLocation + GunsFile6)
            Waiting.Text = "Removing guns (60%)"
            File.Move(Location + GunsFile7, MoveLocation + GunsFile7)
            Waiting.Text = "Removing guns (70%)"
            File.Move(Location + GunsFile8, MoveLocation + GunsFile8)
            File.Move(Location + GunsFile9, MoveLocation + GunsFile9)
            Waiting.Text = "Removing guns (80%)"
            File.Move(Location + GunsFile10, MoveLocation + GunsFile10)
            File.Move(Location + GunsFile11, MoveLocation + GunsFile11)
            Waiting.Text = "Removing guns (90%)"
            File.Move(Location + GunsFile12, MoveLocation + GunsFile12)
            File.Move(Location + GunsFile13, MoveLocation + GunsFile13)
            Waiting.Text = "Removing guns (100%)"
        End If

        Dim MapFile1 As String
        MapFile1 = "TEXFX.REZ"
        Dim MapFile2 As String
        MapFile2 = "PROPS.REZ"
        Dim MapFile3 As String
        MapFile3 = "SHADERS.REZ"
        Dim MapFile4 As String
        MapFile4 = "TEXTURESCRIPTS.REZ"
        Dim MapFile5 As String
        MapFile5 = "TEXTURES.REZ"
        Dim MapFile6 As String
        MapFile6 = "PREFABS.REZ"


        If Map.Checked = True Then
            On Error Resume Next
            File.Move(Location + MapFile1, MoveLocation + MapFile1)
            Waiting.Text = "Removing Maps (20%)"
            File.Move(Location + MapFile2, MoveLocation + MapFile2)
            Waiting.Text = "Removing Maps (30%)"
            File.Move(Location + MapFile3, MoveLocation + MapFile3)
            Waiting.Text = "Removing Maps (50%)"
            File.Move(Location + MapFile4, MoveLocation + MapFile4)
            Waiting.Text = "Removing Maps (60%)"
            File.Move(Location + MapFile5, MoveLocation + MapFile5)
            Waiting.Text = "Removing Maps (80%)"
            File.Move(Location + MapFile6, MoveLocation + MapFile6)
            Waiting.Text = "Removing Maps (100%)"

        End If

        Dim GunSoundFile1 As String
        GunSoundFile1 = "GUNS_SND_AR.rez"
        Dim GunSoundFile2 As String
        GunSoundFile2 = "GUNS_SND_ETC.rez"
        Dim GunSoundFile3 As String
        GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
        Dim GunSoundFile4 As String
        GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
        Dim GunSoundFile5 As String
        GunSoundFile5 = "GUNS_SND_MELEE.rez"
        Dim GunSoundFile6 As String
        GunSoundFile6 = "GUNS_SND_MG.rez"
        Dim GunSoundFile7 As String
        GunSoundFile7 = "GUNS_SND_OPTION.rez"
        Dim GunSoundFile8 As String
        GunSoundFile8 = "GUNS_SND_Pistol.rez"
        Dim GunSoundFile9 As String
        GunSoundFile9 = "GUNS_SND_SG.rez"
        Dim GunSoundFile10 As String
        GunSoundFile10 = "GUNS_SND_SHELLS.rez"
        Dim GunSoundFile11 As String
        GunSoundFile11 = "GUNS_SND_SMG.rez"
        Dim GunSoundFile12 As String
        GunSoundFile12 = "GUNS_SND_SR.rez"
        Dim GunSoundFile13 As String
        GunSoundFile13 = "GUNS_SND_Throwing.rez"

        If GunSound.Checked = True Then
            On Error Resume Next
            File.Move(Location + GunSoundFile1, MoveLocation + GunSoundFile1)
            Waiting.Text = "Removing gun sounds (10%)"
            File.Move(Location + GunSoundFile2, MoveLocation + GunSoundFile2)
            Waiting.Text = "Removing gun sounds (20%)"
            File.Move(Location + GunSoundFile3, MoveLocation + GunSoundFile3)
            Waiting.Text = "Removing gun sounds (30%)"
            File.Move(Location + GunSoundFile4, MoveLocation + GunSoundFile4)
            Waiting.Text = "Removing gun sounds (40%)"
            File.Move(Location + GunSoundFile5, MoveLocation + GunSoundFile5)
            Waiting.Text = "Removing gun sounds (50%)"
            File.Move(Location + GunSoundFile6, MoveLocation + GunSoundFile6)
            Waiting.Text = "Removing gun sounds (60%)"
            File.Move(Location + GunSoundFile7, MoveLocation + GunSoundFile7)
            Waiting.Text = "Removing gun sounds (70%)"
            File.Move(Location + GunSoundFile8, MoveLocation + GunSoundFile8)
            File.Move(Location + GunSoundFile9, MoveLocation + GunSoundFile9)
            Waiting.Text = "Removing gun sounds (80%)"
            File.Move(Location + GunSoundFile10, MoveLocation + GunSoundFile10)
            File.Move(Location + GunSoundFile11, MoveLocation + GunSoundFile11)
            Waiting.Text = "Removing gun sounds (90%)"
            File.Move(Location + GunSoundFile12, MoveLocation + GunSoundFile12)
            File.Move(Location + GunSoundFile13, MoveLocation + GunSoundFile13)
            Waiting.Text = "Removing gun sounds (100%)"
        End If

        Dim AttatchT As String
        AttatchT = "ATTACH_T.rez"
        If Attach.Checked = True Then
            On Error Resume Next
            File.Move(Location + AttatchT, MoveLocation + AttatchT)
            Waiting.Text = "Removing Attatchments (100%)"
        End If

        Dim CharFile1 As String
        CharFile1 = "CHARS_T_BODY.rez"
        Dim CharFile2 As String
        CharFile2 = "CHARS_T_FACE.rez"
        Dim CharFile3 As String
        CharFile3 = "CHARS_T_HAND.rez"
        Dim CharFile4 As String
        CharFile4 = "CHARS_T_HEAD.rez"
        If Chara.Checked = True Then
            On Error Resume Next
            File.Move(Location + CharFile1, MoveLocation + CharFile1)
            File.Move(Location + CharFile2, MoveLocation + CharFile2)
            File.Move(Location + CharFile3, MoveLocation + CharFile3)
            File.Move(Location + CharFile4, MoveLocation + CharFile4)
        End If
        Waiting.Text = "Done"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Revert.Click
        Waiting.Text = "Reverting..."
        Dim Location As String
        Dim MoveLocation As String
        Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
        MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
        Dim CharFile1 As String
        CharFile1 = "CHARS_T_BODY.rez"
        Dim CharFile2 As String
        CharFile2 = "CHARS_T_FACE.rez"
        Dim CharFile3 As String
        CharFile3 = "CHARS_T_HAND.rez"
        Dim CharFile4 As String
        CharFile4 = "CHARS_T_HEAD.rez"
        Dim GunsFile1 As String
        GunsFile1 = "GUNS_T_HH.rez"
        Dim GunsFile2 As String
        GunsFile2 = "GUNS_T_PV_AR.rez"
        Dim GunsFile3 As String
        GunsFile3 = "GUNS_T_PV_ETC.rez"
        Dim GunsFile4 As String
        GunsFile4 = "GUNS_T_PV_HAND.rez"
        Dim GunsFile5 As String
        GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
        Dim GunsFile6 As String
        GunsFile6 = "GUNS_T_PV_MELEE.rez"
        Dim GunsFile7 As String
        GunsFile7 = "GUNS_T_PV_OPTION.rez"
        Dim GunsFile8 As String
        GunsFile8 = "GUNS_T_PV_Pistol.rez"
        Dim GunsFile9 As String
        GunsFile9 = "GUNS_T_PV_SG.rez"
        Dim GunsFile10 As String
        GunsFile10 = "GUNS_T_PV_SMG.rez"
        Dim GunsFile11 As String
        GunsFile11 = "GUNS_T_PV_SR.rez"
        Dim GunsFile12 As String
        GunsFile12 = "GUNS_T_PV_Throwing.rez"
        Dim GunsFile13 As String
        GunsFile13 = "GUNS_T_PV_MG.rez"
        Dim MapFile1 As String
        MapFile1 = "TEXFX.REZ"
        Dim MapFile2 As String
        MapFile2 = "PROPS.REZ"
        Dim MapFile3 As String
        MapFile3 = "SHADERS.REZ"
        Dim MapFile4 As String
        MapFile4 = "TEXTURESCRIPTS.REZ"
        Dim MapFile5 As String
        MapFile5 = "TEXTURES.REZ"
        Dim MapFile6 As String
        MapFile6 = "PREFABS.REZ"
        Dim GunSoundFile1 As String
        GunSoundFile1 = "GUNS_SND_AR.rez"
        Dim GunSoundFile2 As String
        GunSoundFile2 = "GUNS_SND_ETC.rez"
        Dim GunSoundFile3 As String
        GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
        Dim GunSoundFile4 As String
        GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
        Dim GunSoundFile5 As String
        GunSoundFile5 = "GUNS_SND_MELEE.rez"
        Dim GunSoundFile6 As String
        GunSoundFile6 = "GUNS_SND_MG.rez"
        Dim GunSoundFile7 As String
        GunSoundFile7 = "GUNS_SND_OPTION.rez"
        Dim GunSoundFile8 As String
        GunSoundFile8 = "GUNS_SND_Pistol.rez"
        Dim GunSoundFile9 As String
        GunSoundFile9 = "GUNS_SND_SG.rez"
        Dim GunSoundFile10 As String
        GunSoundFile10 = "GUNS_SND_SHELLS.rez"
        Dim GunSoundFile11 As String
        GunSoundFile11 = "GUNS_SND_SMG.rez"
        Dim GunSoundFile12 As String
        GunSoundFile12 = "GUNS_SND_SR.rez"
        Dim GunSoundFile13 As String
        GunSoundFile13 = "GUNS_SND_Throwing.rez"
        Dim AttatchT As String
        AttatchT = "ATTACH_T.rez"

        On Error Resume Next
        File.Move(MoveLocation + AttatchT, Location + AttatchT)
        File.Move(MoveLocation + GunsFile1, Location + GunsFile1)
        File.Move(MoveLocation + GunsFile2, Location + GunsFile2)
        File.Move(MoveLocation + GunsFile3, Location + GunsFile3)
        File.Move(MoveLocation + GunsFile4, Location + GunsFile4)
        File.Move(MoveLocation + GunsFile5, Location + GunsFile5)
        File.Move(MoveLocation + GunsFile6, Location + GunsFile6)
        File.Move(MoveLocation + GunsFile7, Location + GunsFile7)
        File.Move(MoveLocation + GunsFile8, Location + GunsFile8)
        File.Move(MoveLocation + GunsFile9, Location + GunsFile9)
        File.Move(MoveLocation + GunsFile10, Location + GunsFile10)
        File.Move(MoveLocation + GunsFile11, Location + GunsFile11)
        File.Move(MoveLocation + GunsFile12, Location + GunsFile12)
        File.Move(MoveLocation + GunsFile13, Location + GunsFile13)
        File.Move(MoveLocation + MapFile1, Location + MapFile1)
        File.Move(MoveLocation + MapFile2, Location + MapFile2)
        File.Move(MoveLocation + MapFile3, Location + MapFile3)
        File.Move(MoveLocation + MapFile4, Location + MapFile4)
        File.Move(MoveLocation + MapFile5, Location + MapFile5)
        File.Move(MoveLocation + MapFile6, Location + MapFile6)
        File.Move(MoveLocation + GunSoundFile1, Location + GunSoundFile1)
        File.Move(MoveLocation + GunSoundFile2, Location + GunSoundFile2)
        File.Move(MoveLocation + GunSoundFile3, Location + GunSoundFile3)
        File.Move(MoveLocation + GunSoundFile4, Location + GunSoundFile4)
        File.Move(MoveLocation + GunSoundFile5, Location + GunSoundFile5)
        File.Move(MoveLocation + GunSoundFile6, Location + GunSoundFile6)
        File.Move(MoveLocation + GunSoundFile7, Location + GunSoundFile7)
        File.Move(MoveLocation + GunSoundFile8, Location + GunSoundFile8)
        File.Move(MoveLocation + GunSoundFile9, Location + GunSoundFile9)
        File.Move(MoveLocation + GunSoundFile10, Location + GunSoundFile10)
        File.Move(MoveLocation + GunSoundFile11, Location + GunSoundFile11)
        File.Move(MoveLocation + GunSoundFile12, Location + GunSoundFile12)
        File.Move(MoveLocation + GunSoundFile13, Location + GunSoundFile13)
        File.Move(MoveLocation + CharFile1, Location + CharFile1)
        File.Move(MoveLocation + CharFile2, Location + CharFile2)
        File.Move(MoveLocation + CharFile3, Location + CharFile3)
        File.Move(MoveLocation + CharFile4, Location + CharFile4)
        Guns.Checked = False
        Map.Checked = False
        Chara.Checked = False
        GunSound.Checked = False
        Attach.Checked = False
        Waiting.Text = "Done"
    End Sub

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

At the ending change Ugleh.com to whatever website you own. or want them to be linked to.

[ac1d_buRn]

You dahh man :P
This is exactly wat i wanted to add to my utility pack. and now i can

THANKS MAN. U RAWK

acid_buRn

[Tyraell101]

Hey, i have never coded anything. And i want to start tonight.
This is a fucked up question , but uhh. what do i use to do that kindof stuff? If you could direct me something like c or c++ that would be cool. But i want to know the software that you used to code this.

[Ugleh]

It says in this thread, its Visual Basic.

[Tyraell101]

It says in this thread, its Visual Basic.

Oh okay, i am sorry did not know that Visual basic was an actual software.

[iownageXD]

I've never used the function "FolderDialog", and I don't have it too?
I only have "FolderBrowseDialog".. no difference? Dx
Also, wdf.. Gun sounds texture? >.>

[iownageXD]

And one more problem, you didn't have a declare code for "File"..
So, File.Move won't work

Edit: Nvm, I just saw that code at the top. &oops, dubble post :O

[Ugleh]

If you read, I renamed FolderBrowserDialog to FolderDialog

[Pixie]

WOW, you are the best, I saw this and I was like OMG this looks so cool, now you release source code to, THANKS YOU!!

[LegendaryAbbo]

So what the program does is move all the files to the BGM folder?

[iownageXD]

So what the program does is move all the files to the BGM folder?

yeah, and moves them back if you want.

[guardian18]

I am a leeching noob when it comes to hacks(I give credit though dont wrry) and I am going to start my first real hack with this. Thanks a lot.!

[K4GE]

Nice, this is a great tutorial for VB.Net beginners.

[Jimmy]

wow dude this shit is so hard to understand give the TEXT WTF does that mean

fianlly found out wat u meant

[Jimmy]

sorry for double post do we really need this

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

seems like adevertimest to me