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
Easy to make into a program, lol, even for choobs. Good job :P.
If they can work VB they're only half-choob so this is what I've done.
I think this is for vb 2008 express..Right?
And i have another question why did you use label5 but not 1?When i read the code i have realised that xD
And i have another question why did you use label5 but not 1?When i read the code i have realised that xD
Yep, it's 08 Express. And it was Label5 because the other 4 were just info, like "Replacement:" and "CA folder:" so people know what the hell they're doing.
Similar Threads
- 19Last post
- 21Last post
- 5Last post
- 10Last post
- Counter Strike Source sound (Requested by andreas322) by inc3ndiumBy inc3ndium in CrossFire Mods & Rez Modding10Last post