Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

[es] :: Visual Basic 6 :: TXT + EXE ............ (Extract DLL from App)

[ Pregleda: 2151 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

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

icon TXT + EXE ............ (Extract DLL from App)06.04.2004. u 20:53 - pre 242 meseci
Je li moguće da u vb-u dok pišem program ubacim neki txt i da iz njega čitam podatke?

[Ovu poruku je menjao mladenovicz dana 08.04.2004. u 13:08 GMT]
I ♥ ♀

Ovaj post je zlata vrijedan!
 
Odgovor na temu

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

icon Re: TXT + EXE ............06.04.2004. u 22:23 - pre 242 meseci
Znači imam ole object e sad kako mogu da ga koristim?
I ♥ ♀

Ovaj post je zlata vrijedan!
 
Odgovor na temu

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

icon Re: TXT + EXE ............07.04.2004. u 13:50 - pre 242 meseci
Pravo da ti kazem, ja te nista ne razumem. Sta tacno hoces da napravis?
 
Odgovor na temu

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

icon Re: TXT + EXE ............07.04.2004. u 15:25 - pre 242 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!
 
Odgovor na temu

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

icon Re: TXT + EXE ............07.04.2004. u 15:53 - pre 242 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

 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 15:22 - pre 242 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!
 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 15:36 - pre 242 meseci
Nisi postovao ono sto je najbitnije - kod koji poziva ove funkcije. Verovatno je problem sa parametrima.
 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 15:40 - pre 242 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!
 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 15:59 - pre 242 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.
 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 16:22 - pre 242 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!
 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 16:37 - pre 242 meseci
evo sam sam sve sredio ali opet greška. Eto bmp dole zakačen.
I ♥ ♀

Ovaj post je zlata vrijedan!
Prikačeni fajlovi
 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 17:01 - pre 242 meseci
Verovatno ti se modul zove LoadAnyResData. Moduli ne smeju da imaju nazive kao i funkcije
 
Odgovor na temu

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

icon Re: TXT + EXE ............ (Extract DLL from App)08.04.2004. u 17:41 - pre 242 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!
 
Odgovor na temu

[es] :: Visual Basic 6 :: TXT + EXE ............ (Extract DLL from App)

[ Pregleda: 2151 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.