Download Injector:Download Download File Pendukung :Download Password : zaur@ Baca Dulu Sebelum Di pakai Masukan DLL File Pendukung Ke dalam Folder PB kamu
Dan temukan Fitur Fitur Terahasia Di dalam Cheat Ini
Cara pakai Wallhack :
Saat Di BM(Bom Mission)
-Masuk Room
-Play
-Saat respon Tekan klik Kanan saat kamu baru main(On)
(Kalau belum main JANGAN DI TEKAN)
-Saat Mati ataupun 1ROund Tekan Klik kanan lagi(Off)
Cara Di DM(Deat Macth)
-Masuk Room
-Play
-saat Bru respon Klik kanan(On)
-Saat mati Klik kanan lagi(Off)
DOWNLOAD Credit: Injector By Zaur@ [Me] : Dll By AndrieDK Fitur :
1 Hit SG Kos0ng Hotkey :
1 Hit ON : Klik Kiri
1 Hit OFF : Klik kanan NB :
-Setiap kali Klik Kiri tekan Klik kanan 1x..oke
-Usahakan Sekali tembak mati
-Jangan Main Kocok
-Cara Ini lebih simple dari sbelum nya
-karena ada yg usul sama saya hotkey 1 hit pakai klik kanan jadi hotkey saya ganti jadi klik kanan
DOWNLOAD Credit : Zaur@ [Me] Fitur :
-Wallhack
-Charms
Hotkey :
-Auto On : Wallhack Cara pemakaian :
-Download Cheat
-Buka PB
-Buka Cheat
-Start PB
-Nunggu HS di sbelah kanan Hilang
-Tekan WH + Charm Peringatan :
-Cheat Ini Di desain dengan Sistem BT pertama kali yg aritnya Pertama kali maian Pakai Cheat WH private saya pasti BT
(Hal tersebut agar Tidak di pakai dengan sembarang org)
-Jadi 1 kali pertama pakai biasanya BT ..
-Gak usah Di Restar Langsung saja Ulangi Cara Pemakaian ...
Tara...jadi dah WH auto On
Fiture :
-Unlimited HP
-1 Hit SG Pabrik/Kosong Auto On , No Off
-No Respon + Psang 0 Dtk + Defuse 0 Dtk
-Burst Mp 7 Point
-Busrt AWP kayu (Detected Jadi Jngan pakai AWP kayu)
-Busrt Spas
Hotkey :
Unlimited HP On : Numpad 1
Unlimited HP OFF : Numpad 2
1 Hit SG Kosong : Auto ON
Burst Mp 7 : ????
Busrt Spas : ????
Busrt AWP kayu : Detected
No Respon : Home
1 Hit Pasang Bom : Home
1 Hit Defuse Bom : Home
Cara Pakai : ->Inlimited HP/Cheat Darah :
-Harus jadi RM(Room Master)
-Play
-Di dalam Room tekan Numpad 1
-Bunuh Diri Dengan BOM darah akan -9799944443/lainnya juga isa
-Langsung Numpad 2
(Kalau gak Di Off Effect Akan tersebar Ke semua pemain yg mati) ->Cara pakai Fullhack No respon + 1 Hit psng/dfuse Bom
-Tekan Home Saat mau Ready
->SG Kosong auto On (Gak usah Off) NB :
-Work All Windows
-Ini Cheat sbnarnya mau di tuker ma org tpi aku share saja buat kalian(Free)
-jngan Show Off
-Kalau BT Jngan AKTIFKAN NO RESPON + Defuse 0 Detik
-Special Malming...hehehe
Relese : 2011/06/08
Work Test : 10.00 WIB , 1 jam no BT tanpa Flash Disk
Fitur :
[¤] Wallhack : Shift (ALL Windows)
[¤] 1 Hit : Menyala Selalu
[¤] Peluru Awp Keluar Banyak : Menyala Slalu
[¤] Spas Peluru Jekuar banyak: Menyala Slalu
Cara Pakai :
[-] Buka F2F_injector_V.2.4 Special come back Indonesia
[-] Buka Pb Launcher
[-] Star pb
[-] Click Fullhack Indonesia
[-] Happy 1hit Dan lain2
Ne Gan Ane Share Cara Membuat Injector Point Blank,Jadi LoLo Pade Tinggal Nyari DLL Doank.
Pelajari Step By Step Nya.
===Step1===
- Buka Visual Basic 6.0 (Portable Maupun installable)
- Pilih Standard EXE
===Step2===
- Sekarang Tinggal Membuat Interface nya saja
- Untuk Membuat Interface nya (Tampilan) Bsa Menggunakan Adobe Photoshop.
- Pada Bagian Sebelah Kiri Atau Tollbox.
- Buat 6 CommandButton,Seperti gambar diatas
- 3 CommandButton Diberi Nama Command1,Command2,Command3
- Untuk CommandButton Disebelah kanan Beri nama cmdTerminate,cmdExecute,cmdInjector
- Buat 4 Buah Label Seperti Gambar Di Bawah Ini img error22xnw
- Jika Sudah Tambahkan 6 Timer Seperti Gambar Di Bawah Ini
===========================================================
'MS Encrypt Revisi 5 Mei 2011 by Muhammad Sofian, Multi Injector (MS_Encrypt) by ms from Cosmic-cheaters.blogspot.com [C2]
Private noc As Integer
Private str1 As String
Private str2 As String
Private str3 As String
Private strmessage As String
Private resmue As String
Private winHwnd As Long
Private bSuspend As Boolean
Option Explicit
Private Declare Function ExtCreateRegion Lib "gdi32" (lpXform As Any, ByVal nCount As Long, lpRgnData As Any) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Dim bytRegion(31) As Byte
Dim nBytes As Long
'Win 2k, ME, XP
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2
Private NamaDll As String
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, _
ByVal crey As Byte, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Private Sub cmdExecute_Click()
resmue = "yes"
Unload Me
End Sub
Private Sub cmdInjector_Click()
On Error GoTo errLine
If Not cmdInjector.Caption = "Inject Now" Then
Dim theTemp As String
theTemp = OpenDialog(Me, "DLL files (*.dll)|*.dll", "Select DLL File For Inject...", App.Path)
If Trim$(theTemp) <> "" Then
If Dir$(theTemp) <> "" Then
sFlDLL = theTemp
cmdInjector.Caption = "Inject Now"
Else
sFlDLL = "None"
cmdInjector.Caption = "Select Dll For Inject"
End If
End If
Else
If sFlDLL = "None" Then
MsgBox "You can't Injector execute", 48, "Error Injector"
Exit Sub
Else
InjectExecute sFlDLL
sFlDLL = "None"
cmdInjector.Caption = "Select Dll For Inject"
End If
End If
Exit Sub
errLine:
MsgBox "File tidak respon atau tidak support", 48, "Error"
End Sub
Private Sub cmdTerminate_Click()
resmue = "yes"
On Error Resume Next
Dim lExitCode As Long
If MsgBox("Terminate Hackshield sekarang?", _
vbYesNo + vbExclamation, "Terminate Proses") = vbYes Then
lExitCode = TerminateTargetOne
If lExitCode = 0 Then
MsgBox "Proses terminate gagal.", _
vbExclamation, "Terminate info"
cmdTerminate.Enabled = False
Else
lExitCode = TerminateTargetTwo
If lExitCode = 0 Then
MsgBox "Succsses.! Jika ada masalah hubungi Cosmic Cheaters !!", _
vbExclamation, "Succsses Terminate MS"
Else
Unload Me
End If
End If
End If
End Sub
Private Sub Command1_Click()
InjectExecute App.Path & "\Exm1.dll"
End Sub
Private Sub Command2_Click()
InjectExecute App.Path & "\Exm2.dll"
End Sub
Private Sub Command3_Click()
InjectExecute App.Path & "\Exm3.dll"
End Sub
Private Sub File1_Click()
End Sub
'fungsi transparent form
Private Sub Opacity(Value As Byte, _
Frm As Form)
Dim MaxVal As Byte
Dim MinVal As Byte
On Error GoTo ErrorHandler
MinVal = 20
MaxVal = 255
If Value > MaxVal Then
Value = MaxVal
End If
If Value < MinVal Then
Value = MinVal
End If
SetWindowLongA Frm.hWnd, GWL_EXSTYLE, GetWindowLongA(Frm.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Frm.hWnd, 0, Value, LWA_ALPHA
ErrorHandler:
Exit Sub
End Sub
Private Sub form_load()
Dim Welcome As String
Welcome = MsgBox("Jangan Lupa Ucapkan terimakasih to MS CHEATERS !! ^_^V Peace !! ", vbInformation, "MS Injector")
Welcome = MsgBox(" oea ada yg kelupaan !! Selamat Bergabung di Cosmic-cheaters !! xixixixi", vbInformation, "Jangan Lupa Koment ya !!")
bSuspend = False
Timer2.Interval = 20
Timer2.Enabled = True
FileTargetOne = "PointBlank.exe" 'target nya sob
FileTargetTwo = "HSUpdate.exe" 'target nya juga xixixixi
str1 = "MS-Encrypt" 'contoh text yg akan Kedap Kedip
str2 = "Special Thanks to Credit" 'contoh text yg akan Kedap Kedip
str3 = "cosmic-cheaters @copyroght 2011" 'contoh text yg akan berjalan sob
Opacity 200, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255
WindowsMediaPlayer1.URL = App.Path & "\Exm.mp3" 'nih audio nya sob
Dim rgnMain As Long
Sub SlideWindow(frmSlide As Form, iSpeed As Integer)
While frmSlide.Top - frmSlide.Height < Screen.Height
DoEvents
frmSlide.Top = frmSlide.Top + iSpeed
Wend
End Sub
Private Sub MoveToTop()
Dim currentTop As Long
Dim TargetTop As Long
Dim currentLeft As Long
Dim TargetLeft As Long
Dim i As Long
For i = currentTop To TargetTop Step -2
Me.Top = i
Next i
For i = currentLeft To TargetLeft Step 2
Me.Left = i
Next i
End Sub
Private Sub Vibrate(Frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = Frm.Left
Tp = Frm.Top
For i = 0 To Times
Frm.Move Lft + Sgn(rScale)
Pause 20
Frm.Move Lft + rScale
Pause 20
Frm.Move Lft, Tp + Sgn(rScale), Frm.Width, Frm.Height
Pause 20
Frm.Move Lft, Tp + rScale, Frm.Width, Frm.Height
Pause 20
Next i
End Sub
Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub
Private Sub LoadBytes()
bytRegion(0) = 100
bytRegion(4) = 10
End Sub
=====================================================================
Sekarang Buat Beberapa Modul Untuk Melengkapi Injector Anda
ModBrowser,ModInjector,ModCDialog,Dan ModProcess
Untuk ModBrowser Ini Codenya
=====================================================================
'modul buka browser
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub OpenURL(situs As String, sourceHWND As Long)
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Sub
===================================================================== Untuk ModInjector
===================================================================== Option Explicit
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal fAllocType As Long, flProtect As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal ProcessHandle As Long, lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Any, ByVal lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function InjectDll(DllPath As String, ProsH As Long)
Dim DLLVirtLoc As Long, DllLength, Inject As Long, LibAddress As Long
Dim CreateThread As Long, ThreadID As Long
Dim Bla As VbMsgBoxResult
g_loadlibary:
LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
If LibAddress = 0 Then
Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_loadlibary
Else
Exit Function
End If
End If
g_virutalallocex:
DllLength = Len(DllPath)
DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4)
If DLLVirtLoc = 0 Then
Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_virutalallocex
Else
Exit Function
End If
End If
g_writepmemory:
Inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull)
If Inject = 0 Then
Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_writepmemory
Else
Exit Function
End If
End If
g_creatthread:
CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID)
If CreateThread = 0 Then
Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_creatthread
Else
Exit Function
End If
End If
Public Sub InjectExecute(ByVal sFlDLL As String)
Dim lProcInject As Long
lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
If lProcInject > "0" Then
Call InjectDll(sFlDLL, lProcInject)
End If
Call CloseHandle(lProcInject)
End Sub
'Common Dialog
Private Type OPENFILENAME
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Const OFN_READONLY = &H1
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_SHOWHELP = &H10
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules
Public Const OFN_EXPLORER = &H80000 ' new look commdlg
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0
Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
'Browse Folder Declarations
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Public Const BIF_STATUSTEXT = &H4&
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const WM_USER = &H400
Public Const BFFM_INITIALIZED = 1
Public Const BFFM_SELCHANGED = 2
Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
Public Const BFFM_SETSELECTION = (WM_USER + 102)
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String
Dim ofn As OPENFILENAME
Dim A As Long
Dim theTemp As String
ofn.lStructSize = Len(ofn)
ofn.hWndOwner = Form1.hwnd
ofn.hInstance = App.hInstance
If Right$(Filter, 1) <> "|" Then Filter = Filter + "|"
For A = 1 To Len(Filter)
If Mid$(Filter, A, 1) = "|" Then Mid$(Filter, A, 1) = Chr$(0)
Next
ofn.lpstrFilter = Filter
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = InitDir
ofn.lpstrTitle = Title
ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST
A = GetOpenFileName(ofn)
If (A) Then
theTemp = Trim$(ofn.lpstrFile)
If Asc(Right$(theTemp, 1)) = 0 Then theTemp = Left$(theTemp, Len(theTemp) - 1)
OpenDialog = theTemp
Else
OpenDialog = ""
End If
End Function
Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String
'**************************************
' Name: Win95DirectoryPrompt
' Description:Prompting the User for a D
' irectory in Win95. Windows' common dialo
' gs are great if you want the user to sel
' ect a file, but what if you want them to
' select a directory? Call the following f
' unction, which relies on Win32's new SHB
' rowseForFolder function:
' By: Found on the World Wide Web
Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo
With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If
If InStr(LCase$(sPath), "\nethood") > 0 Then
MsgBox "The item that you selected is a folder shortcut, not a folder.", vbCritical, "Browse Folders"
BrowseForFolder = ""
Else
BrowseForFolder = sPath
End If
End Function
====================================================================== Modul Yang Terakhir ModProcess
Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _
ByVal lProcessID As Long) As Long
On Error Resume Next
ReDim Thread(0)
Dim THREADENTRY32 As THREADENTRY32
Dim hThreadSnap As Long
Dim lThread As Long
hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID)
THREADENTRY32.dwSize = Len(THREADENTRY32)
If Thread32First(hThreadSnap, THREADENTRY32) = False Then
Thread32Enum = -1
Exit Function
Else
ReDim Thread(lThread)
Thread(lThread) = THREADENTRY32
End If
Do
If Thread32Next(hThreadSnap, THREADENTRY32) = False Then
Exit Do
Else
lThread = lThread + 1
ReDim Preserve Thread(lThread)
Thread(lThread) = THREADENTRY32
End If
Loop
Thread32Enum = lThread
Call CloseHandle(hThreadSnap)
End Function
Public Function SetSuspendResumeThread(SuspendNow As Boolean) As Long
Dim Thread() As THREADENTRY32, hPID As Long, hThread As Long, i As Long
hPID = IdTargetOne
Thread32Enum Thread(), hPID
For i = 0 To UBound(Thread)
If Thread(i).th32OwnerProcessID = hPID Then
hThread = OpenThread(THREAD_SUSPEND_RESUME, False, (Thread(i).th32ThreadID))
If SuspendNow = True Then
SetSuspendResumeThread = SuspendThread(hThread)
Else
SetSuspendResumeThread = ResumeThread(hThread)
End If
End If
Next i
Call CloseHandle(hThread)
End Function
Public Function TerminateTargetOne() As Long
Dim hPID As Long
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
TerminateTargetOne = TerminateProcess(hPID, 0)
Call CloseHandle(hPID)
End Function
Public Function TerminateTargetTwo() As Long
Dim hPID As Long
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetTwo)
TerminateTargetTwo = TerminateProcess(hPID, 0)
Call CloseHandle(hPID)
End Function
===================================================================
Jika Semua Telah Siap Tinggal Satu Lagi.......................MP3 nya
- Klik Menu Project - Pilih menu Component - centangi windows media player - klik apply - klik ok
- Di toolbox akan nongol satu component
- Tambahin deh di form lho
- pada bagian kode form diatas akan ada tulisan berwarna biru agan copy-paste kan ke
properties dari component media player tadi.
Jadi Deh Injectornya Tinggal Di Compile aja....caranya
klik file-make-project1.exe
simpan dengan nama sesuai keinginan anda deh
NB : Pada Bagian Form Code akan ada kode yang diwarnai arti dari warna tersebut ialah
Merah = Nama DLL yang akan di Inject (dapat diganti sesuai keinginan anda)
Hijau = Nama Label Yang Akan Di tampilkan di form (Dapat diganti sesuai keinginan anda)
Biru = Nama MP3 Yang akan diputar pada injector
Akhir Kata............................Capek Ne Tangan
