TXT + EXE ............ (Extract DLL from App)

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

^{06.04.2004. u 22:23 - pre 243 meseci}

Znači imam ole object e sad kako mogu da ga koristim?

I ♥ ♀

Ovaj post je zlata vrijedan!

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
62.108.109.*

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

^{07.04.2004. u 13:50 - pre 243 meseci}

Pravo da ti kazem, ja te nista ne razumem. Sta tacno hoces da napravis?

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

^{07.04.2004. u 15:25 - pre 243 meseci}

Prvo da ja nešto kažem. Stvarno sam iznenađen prostom činjenicom da na mojih 10 zadnjih poruka si jedino ti odgovorio. Ovom prilikom ti se zahvaljujem. A trebao sam da napravim program koji u sebi ima Dll. Odnosno da kad se program pokrene da iz sebe exraktuje taj dll da bi program mogao dalje da radi. Prvo sam otvorio DLL pomoću texteditora i onda sam pokusavao da uz pomoć FSO kreiram taj dll (kao kad ono pravim text file samo stavim da se zove kao dll) pa nije išlo, pa sam sam mislio da može preko OLE objecta. Zato pitam kako mogu extraktovati OLE van programa.

I ♥ ♀

Ovaj post je zlata vrijedan!

^{07.04.2004. u 15:53 - pre 243 meseci}

Nema na cemu. Da nisam ja odgovorio, odgovorio bi neko drugi.

Jedino sto mi pada na pamet je da DLL stavis u resource. Znaci, probaj da taj DLL stavis u resource, pa onda sa LoadResData (vraca Byte()) citaj iz resourcea. Ne mozes DLL da gledas kao text fajl, zato sto je to binarni zapis. Pogledaj Open statement u MSDNu, pa sa njim upisuj u fajl.

Code:

Open "TestFile" For Binary Access Write As #1
......
Close #1

Kad "izvadis" DLL iz resourcea, moraces da ga registrujes ako je ActiveX DLL. Za ovo pogledaj APIje DllRegisterServer i DllUnregisterServer

Re: TXT + EXE ............ (Extract DLL from App)

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

^{08.04.2004. u 15:22 - pre 243 meseci}

De ljudi vidite šta ovdje nevavlja. Ovo je modul kojeg sam skinuo sa neta za LoadAnyResData. Grešku mi javlja na FindResourceStrStr

Code:

Option Explicit

'******************************************************

Function LoadAnyResData(ByVal hMod As Long, sResourceID As String, sDataType As String) As Byte()

'Loads specified resource of any type into a byte array
'returns array where resource is stored

'******************************************************

Dim hRes As Long        'Resource handle
Dim hmemRes As Long     'memory handle
Dim pRes As Long        'pointer to resource memory block
Dim szRes As Long       'size of resource
Dim abRes() As Byte     'resource byte array

    'get a handle on resource
    hRes = FindResourceStrStr(hMod, sResourceID, sDataType)

    'allocate memory block
    hmemRes = LoadResource(hMod, hRes)

    'get size of resource
    szRes = SizeofResource(hMod, hRes)

    'lock resource in memory to, get pointer
    pRes = LockResource(hmemRes)

    'allocate appriate size byte array
    ReDim abRes(szRes)

    'copy memory block into array
    CopyMemory abRes(0), ByVal pRes, szRes

    'free resource
    Call FreeResource(hmemRes)

    LoadAnyResData = abRes

End Function

'******************************************************

Function SaveResArrayToFile(ByRef bytResourceData() As Byte, ByVal sDestFileName As String) As Long

'Saves an array to a file on disk
'   (for temporary resource storage)

'******************************************************

    On Error GoTo SaveResItemToDisk_err

    Dim iFileNumOut As Integer

    'Get Free File Handle
    iFileNumOut = FreeFile

    'Open the output file
    Open sDestFileName For Binary Access Write As #iFileNumOut

        'Write the resource to the file
        Put #iFileNumOut, , bytResourceData

    'Close the file
    Close #iFileNumOut

    'Return 0 for success
    SaveResArrayToFile = 0

    Exit Function

SaveResItemToDisk_err:
    'Return error number
    SaveResArrayToFile = Err.Number
End Function

I ♥ ♀

Ovaj post je zlata vrijedan!

Re: TXT + EXE ............ (Extract DLL from App)

^{08.04.2004. u 15:36 - pre 243 meseci}

Nisi postovao ono sto je najbitnije - kod koji poziva ove funkcije. Verovatno je problem sa parametrima.

Re: TXT + EXE ............ (Extract DLL from App)

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

^{08.04.2004. u 15:40 - pre 243 meseci}

Code:
Dim bytRes() as byte
Dim temp as variant
bytRes() = LoadAnyResData (app.hInstance, 101, "custom")

'will return error number if it fails
temp = SaveResArrayToFile (bytRes, "c:\mygame\temp.tmp")

I ♥ ♀

Ovaj post je zlata vrijedan!

Re: TXT + EXE ............ (Extract DLL from App)

^{08.04.2004. u 15:59 - pre 243 meseci}

Pa problem je sto pozivas APIje, a nigde nisu deklarisani.

Code:

Public Declare Function LockResource Lib "kernel32" Alias "LockResource" _
(ByVal hResData As Long) As Long
Public Declare Function LoadResource Lib "kernel32" Alias "LoadResource" _
(ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Public Declare Function SizeofResource Lib "kernel32" Alias "SizeofResource" _
(ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Public Declare Function FreeResource Lib "kernel32" Alias "FreeResource" _
(ByVal hResData As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function FindResource Lib "kernel32" Alias "FindResourceA" _
(ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long

Primeti da je u deklaraciji FindResource, a u kodu FindResourceStrStr. To prilagodi.

P.S.
Sledeci put postuj KOJA se greska javlja.

Re: TXT + EXE ............ (Extract DLL from App)

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

^{08.04.2004. u 16:22 - pre 243 meseci}

Ja sam skinuo to sa neta i uopšte nisam razmišljao šta nevalja. Još sam u fazi učenja pa slabo baratam sa f-jama ali naučiće se. Inače sve što sam programa napravio ,napravio sam tako što sam sa neta skinuo kod pa malo okrenuo i to je to...Hvala još jednom!

I ♥ ♀

Ovaj post je zlata vrijedan!

Re: TXT + EXE ............ (Extract DLL from App)

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

^{08.04.2004. u 16:37 - pre 243 meseci}

evo sam sam sve sredio ali opet greška. Eto bmp dole zakačen.

I ♥ ♀

Ovaj post je zlata vrijedan!

Prikačeni fajlovi

greska.zip - 4.52k

Re: TXT + EXE ............ (Extract DLL from App)

^{08.04.2004. u 17:01 - pre 243 meseci}

Verovatno ti se modul zove LoadAnyResData. Moduli ne smeju da imaju nazive kao i funkcije

Re: TXT + EXE ............ (Extract DLL from App)

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

^{08.04.2004. u 17:41 - pre 243 meseci}

E tu je bio problem.E sad znam da se moduli nesmiju nazivati kao i f-je.Uspio sam kompajlirati ali mi sad onaj fajl izbacuje veličine 1byte odnosno ništa. Kontaktirao sam one što su napravili ovo s***** da mi pošalju neki primjer.

I ♥ ♀

Ovaj post je zlata vrijedan!