Cara membuat injektor musik + from loading

NI GAN GUA KASIH TAU CARA BUAT INJEKTOR

SEMOGA BERMANFAAT UNTUK ANDA

JANGAN LUPA FOLLOWNYA OKE GAN

[-] Download VB6
[-] Download Simple Auto Injector yang udah saya kumpulin bahannya
[-] Otak yang Jernih


Steps
[-] Buat Hacker Sejati Tinggal di Edit tuh VB6
[-] Buat Masih Newbie Saya sarankan membuat injector Biasa
Langkah Pengeditan
[-] Di Form cmdInjector kan ada Code Seperti berikut ini dan cara melihat Code Klick kanan Pada Form Klick View Code

Spoiler:

'www.kress-pb.blogspot.com
'Credit By =xKRESSx=
'My Forum MPGH.net Gamekiller.net/ Planet sauce Code/ Forum Tetangga.Net /dan lain-lainnya
Option Explicit
Dim I As Long
Dim merah, hijau, biru As Integer
Dim Counter As Integer
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2
Private winHwnd As Long
Private NamaDll As String
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
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 Injeckdll()

Me.Caption = "Chibi-cyber.com" 'pengaturan caption atau nama injector pada Form
Opacity 240, Me 'Untuk Mengatur Tingkat transparent form MinimalValue = 20: MaxsimalValue = 255
NamaDll = App.Path & "\" & "shyndroms.dll" 'isikan nama DLL nya , contoh: KRESS.dll
FileTarget = "PointBlank.exe"
Timer1.Interval = 20 'interval untuk timer
'----------------------------------------------------------------

End Sub

' 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 l As Long
l = CreateRoundRectRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, 20, 20)
SetWindowRgn Me.hWnd, l, True
App.TaskVisible = True 'Sembunyikan aplikasi dari window taskmanager true= untuk menampilkan /false Untuk Tidak menampilkan
'tetapi tidak hidden di process

'perintah menghindari aplikasi dijalankan 2 kali
'pada saat yg bersamaan
'----------------------------------------
If App.PrevInstance Then
End
End If
'----------------------------------------
Injeckdll '--> memanggil perintah pada -->> Private Sub silakandiedit()

WindowsMediaPlayer1.URL = App.Path & "\Exm.mp3" 'nih audio nya sob
End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'left click Untuk Menggerakkan Form Tanpa Border
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
End If
End Sub


Private Sub GlassButton1_Click()
Unload Me
End
End Sub
Private Sub Label1_Click()
'Untuk kecepatan Perubahan Warna Silakan Di Ubah Interval Pada Timer2
'semakin Kecil intervalnya maka akan Semakin Cepat Perubahan Warnanya
End Sub

Private Sub Timer1_Timer()
winHwnd = FindWindow(vbNullString, "HSUpdate") 'mencari jendela hsupdate
If Not winHwnd = 0 Then 'jika ditemukan
NTProcessList 'deteksi process pointblank
InjectExecute (NamaDll) 'inject DLL
End ' injector akan tutup otomatis
Else 'jika tidak
Label1.Caption = "Powered By C3_Shyndroms" ' Sebelum Terinjecktion (silakan Di ubah nama Dengan Selera Anda)
End If
End Sub

Private Sub Timer2_Timer()
'Fungsi Label Warna
I = I + 1
If I = 1000000 Then I = 0 'Supaya tdk overflow, dsb...
merah = Int(255 * Rnd) 'Bangkitkan angka random untuk merah
hijau = Int(255 * Rnd) 'Bangkitkan angka random untuk hijau
biru = Int(255 * Rnd) 'Bangkitkan angka random untuk biru
Label1.ForeColor = RGB(merah, hijau, biru) 'Campur tiga warna
If I Mod 2 = 0 Then 'Jika counter habis dibagi 2
Label1.Visible = True 'Tampilkan label
Else 'Jika counter tidak habis dibagi 2
Label1.Visible = False 'Sembunyikan label
End If 'Akhir pemeriksaan

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
OpenURL "http://chibi-cyber.com.com", Me.hWnd ' Silakan Di Ubah Dengan Nama WEB/BLog Anda
OpenURL "http://www.facebook.com/hasby98", Me.hWnd ' Silakan Di Ubah Dengan Nama WEB/BLog Anda
'Gunakan Dengan Bijak kalau mau Dishare Di lain Silakan asal Di Sertakan Creditnya By =xKRESSx=
End Sub



Private Sub Timer3_Timer()
'Fungsi Label Warna
I = I + 1
If I = 1000000 Then I = 0 'Supaya tdk overflow, dsb...
merah = Int(255 * Rnd) 'Bangkitkan angka random untuk merah
hijau = Int(255 * Rnd) 'Bangkitkan angka random untuk hijau
biru = Int(255 * Rnd) 'Bangkitkan angka random untuk biru
Label2.ForeColor = RGB(merah, hijau, biru) 'Campur tiga warna
If I Mod 2 = 0 Then 'Jika counter habis dibagi 2
Label2.Visible = True 'Tampilkan label
Else 'Jika counter tidak habis dibagi 2
Label2.Visible = False 'Sembunyikan label
End If 'Akhir pemeriksaan

End Sub

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

EXM.MP3 = Judul Lagu Contoh Nama Lagu saya ST12-Saat Terakhir Berarti
ST12-Saat Terakhir
NB Jangan Lupa menyediakan Lagunya kedalam 1 Folder dengan
Injector
shyndroms.dll = Nama DLL Silakan Ganti dengan nama DLL Kalian Dan
Jangan lupa juga satukan DLL Sama Lagu dan Injector
Yang Link : Silakan Di Ganti dengan Link Kesukaan Kalian
Kalian Pokoknya terserah Deh
Powered by C3_Shyndroms = Silakan Diganti dengan nama anda

Kalau Di Form Loading

Spoiler:

'www.kress-pb.blogspot.com
'Credit By =xKRESSx=
'My Forum MPGH.net Gamekiller.net/ Planet sauce Code/ Forum Tetangga.Net /dan lain-lainnya
Dim I As Long
Dim merah, hijau, biru As Integer
Dim Counter As Integer
Dim sound As Boolean
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const LWA_COLORKEY = &H3
Const LWA_ALPHA = &H3
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Dim lngVal As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Dim iSplash As Integer
Dim Go As Boolean

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Form_Load()
I = 0
Dim l As Long
l = CreateRoundRectRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, 20, 20)
SetWindowRgn Me.hWnd, l, False
playwav "Sound.wav" ' nama saund/Music yang ingin di pake ( SERTAKAN FILE wav satu Folder Dengan Injecktor )

End Sub
Private Sub Frame1_Click()
Unload Me
End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'left click
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'left click
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
End If
End Sub


Private Sub ProgressBar2_GotFocus()
'Untuk Mengatur Kecepatan Loading Setting aja Value Pada Timmer1( semkin Kecil Valuenya Semakin Cepat Loadingnya
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
iSplash = iSplash + 1
ProgressBar2.value = ProgressBar2.value + 1000 / 700
If iSplash > 100 Then
Timer1.Enabled = False
Screen.MousePointer = vbNormal
Me.WindowState = 0
Do
Me.Left = Me.Left + 2000
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
MsgBox " File Is Registered ", vbInformation, "Konfirm.."
Load CmdInjecktor ' Fungsi Open CmdInjecktor
CmdInjecktor.Show ' Fungsi Open CmdInjecktor ( kalau mau di ubah silakan Ubah Dengan Form apa yg mau Di Buka
CmdInjecktor.SetFocus
Unload Me
End If
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 100
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub


Private Sub Timer2_Timer()
'Fungsi Label Warna
I = I + 1
If I = 1000000 Then I = 0 'Supaya tdk overflow, dsb...
merah = Int(255 * Rnd) 'Bangkitkan angka random untuk merah
hijau = Int(255 * Rnd) 'Bangkitkan angka random untuk hijau
biru = Int(255 * Rnd) 'Bangkitkan angka random untuk biru
Label1.ForeColor = RGB(merah, hijau, biru) 'Campur tiga warna
If I Mod 2 = 0 Then 'Jika counter habis dibagi 2
Label1.Visible = True 'Tampilkan label
Else 'Jika counter tidak habis dibagi 2
Label1.Visible = False 'Sembunyikan label
End If 'Akhir pemeriksaan
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

'Gunakan Dengan Bijak kalau mau Dishare Di lain Silakan asal Di Sertakan Creditnya By =xKRESSx=
End Sub

Ga Perlu Di Edit Edit Aja Picture di Form Loadingnya

Langkah Pengeditan Selesai

 Jika Ingin membuat Jam Digital Di Injector
1.Buat 1 Timer >> Beri Nama: tmrjam
2.Buat 1 Label >> Beri Nama: Jam
[-] Buat Caption Label : 00 : 00 : 00


Isikan Kode Ke tmrJam

Code:

Private Sub tmrjam_Timer()
Jam.Caption = Time
End Sub

Hasil

JANGAN LUPA FOLLOW OKE !!!!