# Auto Play Mp3 Dalam Injector With vb6

Sumber: https://nyit-nyit.net/threads/auto-play-mp3-dalam-injector-with-vb6.65067/
Forum: Arsip Game Online Indonesia (Jadul)
Dibuat: 2010-11-21 oleh yasahehe2
Balasan: 9, dilihat: 1477

## Post pertama

untuk yg kurang ngerti gmana caranya Auto Play Mp3 Dalem Injector ...aja coz'a banyak yg tanya ane :P.... Ok Step by Step yah

cara yang paling mudah, memainkan lagu pada saat form yang kita buat di klik ( load ) iaalah: dengan menggunakan componen Windows Media Player
karena udah tersedia dari sana nya, gitu laoh ,.. hehhehe,...

Yang diperlukan :
1 Form
1 Timer (ubah interval-nya jadi 100)
1 WindowsMediaPlayer (Jika belum ada, tambahkan dengan menekan CTRL+T, dan cek list komponen ( “ Windows Media Player ” )
Lagu/suara yang akan dimainkan (simpan 1 folder dengan project VB nya)

sedangkan Source code :

Code:

Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path & "\Edit DISINI Nama Musik anda.mp3"
End Sub

Private Sub Timer1_Timer()
WindowsMediaPlayer1.Controls.play
End Sub

ganti tulisan ( sound.mp3 ) dengan nama lagu yang anda ingin kan,..

contoh: nama lagu --> kotak.mp3 , kotak ogg , tau kotak.wav ,.. apa aja yang penting file nya bisa terbaca window media player,....

semoga bermanfaat,...

## Balasan

### Kazukita, 2010-11-21

@TS 

Klo kita mau bawa Injectornya kemana" tanpa dengan lagunya tetep akan kluar Songnya ??

Please Reply

Thanks

### SquarePants, 2010-11-23

Klo Cara Buat Ngumpetin Lagu nya gmna? 
kya Pnya ukira, kan tuh ga ada file lagu di dalam folder nya tpi tetap terputar lagu nya.

### tdee912, 2010-11-24

maaf OOT kk maeda.
klo di hiden file lagunya >> add arshive ke rar >> upload ke link (ziddu or 4shared) >> lalu kita donwload >> exstract.. koq ga bisa play yaa. folder option sudah dont show hiden.. tapi file lagu tetap terhiden.. knapa yaa? maaf klo oot..

maaf OOT kk maeda.
klo di hiden file lagunya >> add arshive ke rar >> upload ke link (ziddu or 4shared) >> lalu kita donwload >> exstract.. koq ga bisa play yaa. folder option sudah dont show hiden.. tapi file lagu tetap terhiden.. knapa yaa? maaf klo oot..

### ajaib, 2010-11-24

iya gan, kita maunya injectornya bisa dibawa kemana2 tanpa harus menyertakan mp3 nya
:telephone:

### ryanshinta, 2010-11-24

gan coba k sene...ada tuh tuto yg lbh lengkapnya...

http://www.nyit-nyit.net/index.php?/topic/56819-tutor-membuat-injector/

TS di atas cuma copy faste jha dr sana...jd mna bisa dy jwb pertanyaan agan tnp copy faste lg..

### Garyu73, 2010-11-26

Mending ga usah di hidden file lagunya, taroh aja di C:\WINDOWS\Driver Cache\7233838\
ni Scriptnya ,,
CreateFileFromRessource 101, "C:\WINDOWS\Driver Cache\7233838\namafilelagu.mp3"

jadi itu kita sisipkan kode extract file dari resource file lagu tsb ..

walah pliss jangan flamming gan ,,

### Alfred, 2010-11-26

Itu namanya di compile bro, jadi di injector tsb udah diisi mp3 itu ( sebenrnya bukan MP3, karena tidak boleh terlalu besar saat mengcompile )

### tdee912, 2010-11-26

waahh,, thanks bangat kk Garyu73.. di thread nya Rifqi36 ini ada di page berapa ya.??. tp agak beda,,
nice kk,, yang ini berhasil.. :yahoo:

### KIRA03, 2010-11-29

Versi Me:

1 Form

1. Module

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Form_Load()
Result = Module1.sndPlaySound("C:\WINDOWS\Media\Windows XP Hardware Insert", 1)
End Sub

Jika Anda Mengunakan WinXp

Setelah anda buka Form akan bunyi Ding

Format Sound Harus wav