Home › Forum › MultiPlayer Game Hacks & Cheats › Combat Arms Hacks & Cheats › Combat Arms Hack Coding / Programming / Source Code › [Source]Sound Changer
[Source]Sound Changer
[Source]Sound Changer
To stop choobs leeching, I'm not showing how to use it. 
If you do use it in any way then please credit me on the tool! Or I won't release source like this anymore.
If you do use it in any way then please credit me on the tool! Or I won't release source like this anymore.
Code:
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", System.IO.FileAttributes.Normal)
Rename(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", TextBox1.Text + "\Game\BGM\BGM_LOOP_2.mp3")
IO.File.Move(TextBox2.Text + TextBox3.Text, TextBox1.Text + "\Game\BGM\")
Rename(TextBox1.Text + "\Game\BGM\" + TextBox2.Text, TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3")
Else
Label5.Text = "Status: BGM Failed!"
End If
Label5.Text = "Status: BGM Replaced!"
If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", System.IO.FileAttributes.Normal)
Rename(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", TextBox1.Text + "\Game\BGM\Map_Loading_2.mp3")
IO.File.Move(TextBox4.Text + TextBox5.Text, TextBox1.Text + "\Game\BGM\")
Rename(TextBox1.Text + "\Game\BGM\" + TextBox5.Text, TextBox1.Text + "\Game\BGM\Map_Loading.mp3")
Else
Label5.Text = "Status: Loading Failed!"
End If
Label5.Text = "Status: Loading Replaced!"
If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", System.IO.FileAttributes.Normal)
Rename(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", TextBox1.Text + "\Game\BGM\QRT_Count_BGM_2.mp3")
IO.File.Move(TextBox6.Text + TextBox7.Text, TextBox1.Text + "\Game\BGM\")
Rename(TextBox1.Text + "\Game\BGM\" + TextBox7.Text, TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3")
Else
Label5.Text = "Status: BGM Failed!"
End If
Label5.Text = "Status: BGM Replaced!"
End Sub
End Class
