Rocket X|Komunitas Cyber Indonesia

Silahkan klik login

Games Online Comunity

Selamat datang dan selamat menikmati fitur forum ini

Login

Lupa password?

login FB

Get Free Music at www.divine-music.info
Get Free Music at www.divine-music.info

Free Music at divine-music.info

Latest topics

» Membuat Postingan Berhubungan
Sat Jan 07, 2012 7:15 am by Admin

» Cara Mempercepat Loading Blog
Sat Jan 07, 2012 7:14 am by Admin

» Empire Earth III-RELOADED
Thu Jan 05, 2012 8:44 am by Admin

» Cheat Point Blank 5-1-2012
Thu Jan 05, 2012 8:28 am by Admin

» Cheat lost saga 5-1-2012
Thu Jan 05, 2012 8:26 am by Admin

» [VB6] Belajar Mengenai File Pendukung (*.ocx,*.dll,&More)
Thu Jan 05, 2012 8:14 am by Admin

» Template Blogspot Only
Thu Jan 05, 2012 8:07 am by Admin

» Peraturan RX (Rocket X)
Wed Jul 13, 2011 8:58 am by aku orang gila

» 1 hit SG Kosong And Spass
Thu Jul 07, 2011 9:55 pm by aku orang gila


    Memasukan dll ke dalam injector

    Share

    for112
    RX Special 3
    RX Special 3

    Jumlah posting : 2
    Points : 60006
    Reputation : 0
    Join date : 01.07.11

    Memasukan dll ke dalam injector

    Post by for112 on Sat Jul 02, 2011 7:35 am

    step 1
    Klik Menu Add-Ins - Klik pada Add-Ins Manager, cari VB6 Resouce Editor. centang pada loaded pada behaviornya.
    ini contoh pictnya Add Ins Manager.

    kalau tidak ada berarti vb6 nya tidak komplit, coba downlot yg versi full.

    step 2
    ntar kalau dah aktif (terloaded), coba klik menu tool - klik pada resource editor. pada resource editor klik pada icon add custom resource (icon kotak, disebelah icon help yang tanda ?), dan pilih file dll nya. kalau udah klik save. ntar liat kode resource nya misalnya 101. dan pembuatan library dalam resource selesai.

    step 3
    buat modul dengan nama CreateFileFromResource

    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



    ntar saat loading injector, tepatnya pada form_load, extract dll nya.

    misalnya kode hasil simpan dll nya diresource adalah 101. maka

    Private Sub Form_Load

    .............kode lainnya/kode injector .............
    'auto create folder temp
    Dim dPath As String
    on error resume next
    dPath = "c:\temp"
    If Dir$(dPath) = "" Then
    MkDir dPath
    End If

    'sisipkan kode extract file dari resource
    CreateFileFromRessource (101, "c:\temp\namadll1.dll") 'terserah maunya nyimpan/extract dimana. ini cuman contoh.

    End sub



    tidak harus nama.dll itu dll, bisa juga direname, misalnya nama.ini, nama.crc, nama.bin. or whatever, tetap bisa jalan asalkan betul2 library.
    nah berdasarkan contoh diatas, itu dll ditempatkan di c:\temp\namadll1.dll, ntar kode injectnya menjadi

    injectexecute "c:\temp\namadll1.dll"

      Waktu sekarang Sat Nov 25, 2017 2:36 pm