11/15/2010

[Tutorial]buat injector VB6

Gue mohon maaf banget karena di thread" sebelomnya gw kaboor,tapi kali ini ngga.
maap kemaren gw sibuk bikin project sendiri :P
Langsung aja download SC nya d sini.

Berikut Penjelasan nya :

[Hide DLL]

agan tau kan injector" yang g ada DLLnya?
itu sebenarnya hanya trick resource visual basic.

di sc yang saya berikan, sudah saya tambah Fitur seperti itu.
bagi yang blom tahu ini dia :

1.klik Add-ins pilih Add-in manager pilih VB6.0 resource editor

SSnya :
nah untuk nambahin dllnya ke resource itu caranya :

Tutorial membuat injector Part 3 [End and Full]

#1 User is offline   JazzyBecker 

  • Pencinta Snutz
  • PipPipPipPip
  • Add as Friend
  • PM this member
  • Group: Active Member
  • Posts: 319
  • Joined: 09-March 10
  • Gender:Male
Posted 14 November 2010 - 03:16 AM
Gue mohon maaf banget karena di thread" sebelomnya gw kaboor,tapi kali ini ngga.
maap kemaren gw sibuk bikin project sendiri :P
Langsung aja download SC nya d sini.

Berikut Penjelasan nya :

[Hide DLL]

agan tau kan injector" yang g ada DLLnya?
itu sebenarnya hanya trick resource visual basic.

di sc yang saya berikan, sudah saya tambah Fitur seperti itu.
bagi yang blom tahu ini dia :

1.klik Add-ins pilih Add-in manager pilih VB6.0 resource editor

SSnya :
Spoiler
Posted Image

nah untuk nambahin dllnya ke resource itu caranya :

Spoiler
Posted Image


nah klo udah, saya udah kasih tuh module jadi agan" g perlu nulis" module lagi.

2.Doble klik Module1,ilangin tanda ' di setiap syntax

jadinya kek gini :
Public Sub CreateFileFromRessource(ByVal ID As Integer, _
                                   ByVal FileName As String)
Dim DataArray() As Byte
Dim Handle      As Integer

    DataArray = LoadResData(ID, "CUSTOM")
   Handle = FreeFile
   Open FileName For Binary As #Handle
   Put #Handle, , DataArray
   Close #Handle
   Erase DataArray
End Sub


3.nah, di formload Buat jadi sprti ini :
Private Sub Form_Load()
CreateFileFromRessource 101, "c:\windows\system32\ALLJAZ.crc" 'Tempat kita lempar dllnya heheheh..
App.TaskVisible = False
    bSuspend = False
    Me.Left = (Screen.Width - Width) / 2
'    Me.Top = -1000
    Timer2.Interval = 20
    Timer2.Enabled = True
    FileTargetOne = "PointBlank.exe"
    FileTargetTwo = "HSUpdate.exe"
    If App.PrevInstance = True Then 'jika sudah
ShowPrevInstance 'memfokuskan ke aplikasi sebelumnyaEnd If
End Sub


NB: dll boleh di ganti menjadi crc.
agan bisa cek , dll agan akan berada di c:\windows\system32
lokasi penempatan dll, boleh agan ganti semaunya ^^

4.nah,klo gitu pada label4 atau "Inject" ganti fungsinya :

dari :
InjectExecute App.Path & "\ALLJAZ.dll"

ke :
injectexecute "c:\Windows\system32\ALLJAZ.crc"


Credit : rifqi36@Ntri
ERge
dan lainnya yang tidak bisa d sebutkan 1 per satu ^^


Quest : " gan, klo nambahin lagu gmna?"
Answer :

1. klik kanan bagian ini
Spoiler
Posted Image


pilih component

2. setelah diklik...dapat gambar ini
Spoiler
Posted Image

geser kursor kebagian paling bawah, kemudian centang window media player nya...
dan setlah dicentang akan muncul gambar window media player seperti diatas....

3. klik gambar window madia playernya dan draw ke form VB kamu..dan aka jadi spt ini

Spoiler
Posted Image


4. setelah jadi seperti itu...klik gambar td dan liat bagian ini di sudut kanan bawah..
Spoiler
Posted Image


5. nah dibagian URL kalian masukkan link lagu mp3 yg mau kalian masukkan ke injector...(saya sarankan link berasal dari IDWS)

6. setelah dapat dan masukkan linknya...Download mp3 tersebut dan masukkan kedalam 1 folder dimana kamu mau nyimpen hasil compile injector kamu..

jadi deh injector yg ada musiknya...hhehhe...

nb : biar gx ribet, umpetin aja WMPnya ke bagian bawah Form 1 kalian...

semoga bermanfaat....maaf klo aga berantakan......^^V

Credit : Dolphinz @ Ntri

Mohon di tanyakan jika terdapat error" dan sertakan SSnya
Thx.

This post has been edited by JazzyBecker: 14 November 2010 - 03:20 AM
Nothing Found.
2
  • +


#2 User is offline   hassist 

  • Calon Penduduk Snutz
  • PipPip
  • Add as Friend
  • PM this member
  • Group: Members
  • Posts: 20
  • Joined: 06-September 10
Posted 14 November 2010 - 03:32 AM
View PostJazzyBecker, on 14 November 2010 - 03:16 AM, said:
Gue mohon maaf banget karena di thread" sebelomnya gw kaboor,tapi kali ini ngga.
maap kemaren gw sibuk bikin project sendiri :P
Langsung aja download SC nya d sini.

Berikut Penjelasan nya :

[Hide DLL]

agan tau kan injector" yang g ada DLLnya?
itu sebenarnya hanya trick resource visual basic.

di sc yang saya berikan, sudah saya tambah Fitur seperti itu.
bagi yang blom tahu ini dia :

1.klik Add-ins pilih Add-in manager pilih VB6.0 resource editor

SSnya :
Spoiler

nah untuk nambahin dllnya ke resource itu caranya :

Spoiler


nah klo udah, saya udah kasih tuh module jadi agan" g perlu nulis" module lagi.

2.Doble klik Module1,ilangin tanda ' di setiap syntax

jadinya kek gini :
Public Sub CreateFileFromRessource(ByVal ID As Integer, _
                                   ByVal FileName As String)
Dim DataArray() As Byte
Dim Handle      As Integer

    DataArray = LoadResData(ID, "CUSTOM")
   Handle = FreeFile
   Open FileName For Binary As #Handle
   Put #Handle, , DataArray
   Close #Handle
   Erase DataArray
End Sub


3.nah, di formload Buat jadi sprti ini :
Private Sub Form_Load()
CreateFileFromRessource 101, "c:\windows\system32\ALLJAZ.crc" 'Tempat kita lempar dllnya heheheh..
App.TaskVisible = False
    bSuspend = False
    Me.Left = (Screen.Width - Width) / 2
'    Me.Top = -1000
    Timer2.Interval = 20
    Timer2.Enabled = True
    FileTargetOne = "PointBlank.exe"
    FileTargetTwo = "HSUpdate.exe"
    If App.PrevInstance = True Then 'jika sudah
ShowPrevInstance 'memfokuskan ke aplikasi sebelumnyaEnd If
End Sub


NB: dll boleh di ganti menjadi crc.
agan bisa cek , dll agan akan berada di c:\windows\system32
lokasi penempatan dll, boleh agan ganti semaunya ^^

4.nah,klo gitu pada label4 atau "Inject" ganti fungsinya :

dari :
InjectExecute App.Path & "\ALLJAZ.dll"

ke :
injectexecute "c:\Windows\system32\ALLJAZ.crc"


Credit : rifqi36@Ntri
ERge
dan lainnya yang tidak bisa d sebutkan 1 per satu ^^


Quest : " gan, klo nambahin lagu gmna?"
Answer :

1. klik kanan bagian ini
pilih component

2. setelah diklik...dapat gambar ini 

geser kursor kebagian paling bawah, kemudian centang window media player nya...
dan setlah dicentang akan muncul gambar window media player seperti diatas....

3. klik gambar window madia playernya dan draw ke form VB kamu..dan aka jadi spt ini
4. setelah jadi seperti itu...klik gambar td dan liat bagian ini di sudut kanan bawah..
5. nah dibagian URL kalian masukkan link lagu mp3 yg mau kalian masukkan ke injector...(saya sarankan link berasal dari IDWS)

6. setelah dapat dan masukkan linknya...Download mp3 tersebut dan masukkan kedalam 1 folder dimana kamu mau nyimpen hasil compile injector kamu..

jadi deh injector yg ada musiknya...hhehhe...

nb : biar gx ribet, umpetin aja WMPnya ke bagian bawah Form 1 kalian...

semoga bermanfaat....maaf klo aga berantakan......^^V

Credit : Dolphinz @ Ntri

Snutz.us credit