Seite 1 von 1
Funktionen aus DLL auslesen
Verfasst: 05.03.2005 14:51
von Robin
Hi, ich hab ein kl. programm geschrieben, dass aus kleinen Dll´s (max.64kb) die Funktionen ausliest und in einem Meldung ausgibt! Villeicht hilft es euch irgentwie. Ich bin grad an einem Update, damit man größere dll´s auslesen kann.
http://www.purezone.de.vu/downloads/dlltool.zip
Verfasst: 05.03.2005 17:52
von Robin
Okay, das ging schnell! Ich hab jetzt das ein Update! Jetzt kann man weit aus größere Dll´s laden! URL siehe oben!
Verfasst: 05.03.2005 21:53
von KeyKon
Toter Link?
KeyKon
Verfasst: 05.03.2005 21:59
von MVXA
Sry, find das Programm irgendwie... nun ja... ehm... um es kurz und schmerzlos zu sagen: billig. Wie wär es wenn du statt einer Messagebox ein IconListView verwenden würdest? Und wie wäre es, wenn du eine Option anbieten würdest die Funktionen in eine TXT Datei auszulagern?
Verfasst: 05.03.2005 22:26
von Kekskiller
Naja, ich weiß nicht, ob so ein Tool bei einem solch kleinen Umfang sinnvoll
wäre... Das kann man sich auch mit ein paar Zeilen per Debug zusammen-
schustern. Da find ich den Lib Explorer von meiner Bonsai Ide schon viel schicker ^_^ .
Verfasst: 06.03.2005 09:58
von freedimension
Nana, jetzt macht sein Programm doch nicht gleich so runter. Das ist wahrscheinlich das erste kompliziertere (mit Binaries usw.) was er geschrieben hat und er freut sich tierisch darüber, nehmt ihm doch nicht die Lust daran.
@Robin: Weiter so
, du weißt ja jetzt wo du ansetzen musst
Verfasst: 06.03.2005 11:53
von KeyKon
Die 1.0-Version ist gemeingefährlich(Zu viele Dll einträge und man kann nicht mehr auf den OK-Knopf drücken
)
1.1 ist schon wesentlich besser! Tipps:
-List-Gadget 10Pixel höher
-Eine anzeige welche DLL gerade geladen ist
KeyKon
Verfasst: 06.03.2005 12:33
von Kekskiller
Code: Alles auswählen
#OpenButton = 0
#FunctionList = 1
Global lastlib$
If OpenWindow(0, 0,0, 320,256, #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget, "Library Explorer")
If CreateGadgetList(WindowID())
ListIconGadget(#FunctionList, 5,5, 310,223, "Name", 190, #PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines)
AddGadgetColumn(#FunctionList, 1, "Adresse", 100)
ButtonGadget(#OpenButton, 5,233, 80, 18, "Open")
EndIf
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadgetID()
Case #OpenButton
file$ = OpenFileRequester("Select a Library", lastlib$, "Library (*.dll)|*.dll", 0)
If FileSize(file$) >= 0
If OpenLibrary(0, file$)
lastlib$ = file$
ClearGadgetItemList(#FunctionList)
ExamineLibraryFunctions(0)
While NextLibraryFunction()
AddGadgetItem(#FunctionList, -1, LibraryFunctionName() + Chr(10) + Str(LibraryFunctionAddress()))
Wend
SetWindowTitle(0, GetFilePart(file$) + " - Library Explorer")
EndIf
EndIf
EndSelect
EndSelect
Until event = #PB_Event_CloseWindow
EndIf
Vielleicht nützt es was
.
Verfasst: 06.03.2005 17:14
von Robin
Danke für eure Kritik, ich werde an einem weiteren Update arbeiten, in dem eure vorschläge zu finden sind!