Latest topics | » ID Yang Mengalami Gagal Login™Thu May 08, 2014 6:13 pm by vinay007 » Cara buat injector auto injeckFri Jun 14, 2013 6:51 pm by ulala » cara buat INjector d jamin bisaFri 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 masukkkkkkkkWed Jul 18, 2012 12:32 am by adhie » Bug 4 slot + Pakai Baret Tampa SlotThu Jul 05, 2012 5:18 am by esa123456789 » CONTOH SC 1hit SG odong2Thu Jul 05, 2012 5:13 am by esa123456789 » Keretaminiku.Com Produsen Kereta Mini Mainan di IndonesiaThu Jun 21, 2012 11:01 pm by RNC Lovers » bantu ane gan...Tue May 08, 2012 7:09 pm by ruliza handryn |
| | Tutorial Auto Play Mp3 Dalam Injector With vb6 | |
| | Pengirim | Message |
---|
Teuku Panglima Admin
Jumlah posting : 75 Points : 350611 Reputation : 250056 Join date : 05.04.11 Age : 35 Lokasi : Atjeh
| Subyek: 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,.... | |
| | | Baihaqi_RNC Super Moderators
Jumlah posting : 134 Points : 2147483638 Reputation : 261680 Join date : 06.04.11 Lokasi : _ATJ3H_
| Subyek: Re: Tutorial Auto Play Mp3 Dalam Injector With vb6 Fri May 13, 2011 4:03 am | |
| shere nya om admin.,., | |
| | | M_Ricky Moderators
Jumlah posting : 57 Points : 564 Reputation : 361 Join date : 24.04.11 Age : 25 Lokasi : Semua Postingan Saya melihat ^_^
| Subyek: 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? | |
| | | M_Ricky Moderators
Jumlah posting : 57 Points : 564 Reputation : 361 Join date : 24.04.11 Age : 25 Lokasi : Semua Postingan Saya melihat ^_^
| Subyek: 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 "https://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 ? | |
| | | Sponsored content
| Subyek: Re: Tutorial Auto Play Mp3 Dalam Injector With vb6 | |
| |
| | | | Tutorial Auto Play Mp3 Dalam Injector With vb6 | |
|
Similar topics | |
|
| Permissions in this forum: | Anda tidak dapat menjawab topik
| |
| |
| |