Rebel NAd
~|| Selamat Datang di Forum RebeL NAd Cyber ||~
Forum Komunitas Game Online

~|| Anda baru disini? ||~
Silahkan klik "Pendaftaran" Agar bisa masuk di forum ini!

~|| Anda Members disini? ||~
Silahkan Langsung klik "Login"

Dilarang promosi Blog Forum

Dilarang Repost, Junk, OOT, Sara, Flames dan Sex

Terima Kasih!


Aceh Generation
 
IndeksRebeL NAdPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Latest topics
» ID Yang Mengalami Gagal Login™
Thu May 08, 2014 6:13 pm by vinay007

» Cara buat injector auto injeck
Fri Jun 14, 2013 6:51 pm by ulala

» cara buat INjector d jamin bisa
Fri Jun 14, 2013 6:50 pm by ulala

» mnta Che*t empires/tolong cheatin aku kash vocer gamscool 5000,.
Fri Aug 10, 2012 12:50 am by soewandha_khan

» punya chip masukkkkkkkk
Wed Jul 18, 2012 12:32 am by adhie

» Bug 4 slot + Pakai Baret Tampa Slot
Thu Jul 05, 2012 5:18 am by esa123456789

» CONTOH SC 1hit SG odong2
Thu Jul 05, 2012 5:13 am by esa123456789

» Keretaminiku.Com Produsen Kereta Mini Mainan di Indonesia
Thu Jun 21, 2012 11:01 pm by RNC Lovers

» bantu ane gan...
Tue May 08, 2012 7:09 pm by ruliza handryn

Top posters
Baihaqi_RNC
 
RNC_RhajuNaldy™
 
slanky
 
Teuku Panglima
 
RNC Lovers
 
M_Ricky
 
Tomy.RNC
 
alexa8741
 
*|CaSPeR|*
 
ryanbakun
 

Share | 
 

 Tutorial Auto Play Mp3 Dalam Injector With vb6

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Teuku Panglima
Admin
Admin


Jumlah posting : 75
Points : 350611
Reputation : 250056
Join date : 05.04.11
Age : 28
Lokasi : Atjeh

PostSubyek: Tutorial Auto Play Mp3 Dalam Injector With vb6   Thu Apr 28, 2011 8:33 pm

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,....
Kembali Ke Atas Go down
http://rebelnad.forumid.net
Baihaqi_RNC
Super Moderators
Super Moderators


Jumlah posting : 134
Points : 2147483638
Reputation : 261680
Join date : 06.04.11
Lokasi : _ATJ3H_

PostSubyek: Re: Tutorial Auto Play Mp3 Dalam Injector With vb6   Fri May 13, 2011 4:03 am

shere nya om admin.,.,


[You must be registered and logged in to see this image.]
_mY _ FaCeBoOk_Ym_
_mY _ BLOG_Ym_

[You must be registered and logged in to see this image.]


[You must be registered and logged in to see this image.]
[You must be registered and logged in to see this link.]

[You must be registered and logged in to see this image.]
Kembali Ke Atas Go down
M_Ricky
Moderators
Moderators


Jumlah posting : 57
Points : 564
Reputation : 361
Join date : 24.04.11
Age : 18
Lokasi : Semua Postingan Saya melihat ^_^

PostSubyek: Re: Tutorial Auto Play Mp3 Dalam Injector With vb6   Wed Jun 01, 2011 4:01 pm

Itu DI Simpenya di daerah mana om teuku?
Source Codenya?


NO JUNK
NO FLAME
NO OOT
NO SARA



My Facebook


[You must be registered and logged in to see this link.]

No [You must be registered and logged in to see this image.]

[You must be registered and logged in to see this image.]

No [You must be registered and logged in to see this image.]

Need [You must be registered and logged in to see this image.] or [You must be registered and logged in to see this image.]


[You must be registered and logged in to see this image.]
Kembali Ke Atas Go down
http://www.facebook.com/profile.php?id=100002072411960
M_Ricky
Moderators
Moderators


Jumlah posting : 57
Points : 564
Reputation : 361
Join date : 24.04.11
Age : 18
Lokasi : Semua Postingan Saya melihat ^_^

PostSubyek: Re: Tutorial Auto Play Mp3 Dalam Injector With vb6   Wed Jun 01, 2011 4:10 pm

ini SC Injector saya

Private resmue As String
Private winHwnd As Long
Private bSuspend As Boolean

Private Sub cmdExecute_Click()
resmue = "yes"
Unload Me
OpenURL "http://rebelnad.forumid.net", Me.hwnd
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 "Proses terminate sukses.", _
vbExclamation, "Terminate info"
Else
Unload Me
End If
End If
End If
End Sub

Private Sub Command1_Click()
InjectExecute App.Path & "\" & "M_Ricky.dll"
FileTarget = "PointBlank.exe"
Timer1.Interval = 20
End Sub

Private Sub Command2_Click()
InjectExecute App.Path & "\" & "M_Ricky2.dll"
FileTarget = "PointBlank.exe"
Timer1.Interval = 20
End Sub


Private Sub Form_Load()
bSuspend = False
Me.Left = (Screen.Width - Width) / 2
' Me.Top = -1000
Timer2.Interval = 20
Timer2.Enabled = True
FileTargetOne = "PointBlank.exe"
FileTargetTwo = "HSUpdate.exe"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Screen.MousePointer = vbDefault
End Sub

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

If bSuspend = True Then

If Not resmue = "yes" Then

If MsgBox("Klik Yes untuk Terminate (PB dan HS) dan No Untuk Membatalkan", vbYesNo, "") = vbYes Then
cmdTerminate_Click
Else
Cancel = -1
End If

Else
OpenURL "Rebelnad.forumid.net", Me.hwnd
End If
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
If bSuspend = True Then SetSuspendResumeThread False
End
End Sub

Private Sub Timer1_Timer()
winHwnd = FindWindow(vbNullString, "HSUpdate")
If winHwnd <> 0 Then
NTProcessList
SetSuspendResumeThread True
cmdTerminate.Enabled = True
cmdExecute.Enabled = True
cmdInjector.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
bSuspend = True
Vibrate Me, 100, 20
MoveToTop
Timer1.Enabled = False

End If
End Sub

Private Sub Timer2_Timer()
Me.Top = (Screen.Height - Height) / 2
Timer2.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 20
End Sub

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
currentTop = Me.Top
TargetTop = (Screen.Height - Height) / 50

For i = currentTop To TargetTop Step -2
Me.Top = i
Next i

currentLeft = Me.Left
TargetLeft = (Screen.Width - Me.Width) - 100

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 = 1 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



Mesti Di Simpen Dimananya Om ?


NO JUNK
NO FLAME
NO OOT
NO SARA



My Facebook


[You must be registered and logged in to see this link.]

No [You must be registered and logged in to see this image.]

[You must be registered and logged in to see this image.]

No [You must be registered and logged in to see this image.]

Need [You must be registered and logged in to see this image.] or [You must be registered and logged in to see this image.]


[You must be registered and logged in to see this image.]
Kembali Ke Atas Go down
http://www.facebook.com/profile.php?id=100002072411960
Sponsored content




PostSubyek: Re: Tutorial Auto Play Mp3 Dalam Injector With vb6   Today at 7:16 pm

Kembali Ke Atas Go down
 
Tutorial Auto Play Mp3 Dalam Injector With vb6
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Vlad Dracula " Kisah Nyata Pembantai Umat Islam Dalam Perang Salib
» RPM auto gauge seken for sale
» Shadow Eyes = Flasher / Hazard / Flip-Flop 7 Mode Auto Sensor Sign (NEW..!!)
» WTS SPION LIPAT OTOMATIS/AUTO RETRACTABLE MIRROR KIT XENIA/AVANZA, RUSH/TERIOS, INOVA DAN FORTUNER
» REFRESH AUTO DETAILING / POLES MOBIL DAN MOTOR

Permissions in this forum:Anda tidak dapat menjawab topik
Rebel NAd ::  ™†REBEL NAD LAB, APLICATION AND SOURCE CODE†™ :: Tutorial Buat DLL, Injektor dan S C Nya (C++)-
Navigasi: