Visualisateur des fonctions d'une DLL's
Publié : jeu. 08/déc./2005 19:44
J'ai eu besoin de voir les fonctions d'une dll, j'avais la flèmme de télécharger le programme "Dll Viewver" de Dr.Dri (je crois que c'est de lui, chui pô sur), Donc j'en ai refais un en 10 min ^^
je vous donne donc le code :
@+
je vous donne donc le code :
Cela peut toujours servir.
Enumeration
#Viewver
#Button_LoadDll
#ListIcon_dll
EndEnumeration
Declare LoadDLL()
Declare Open_Viewver()
Open_Viewver()
Repeat
Event = WaitWindowEvent ()
GadgetID = EventGadgetID ()
If Event = #PB_EventGadget
If GadgetID = #Button_LoadDll : LoadDLL() : EndIf
EndIf
Until Event = #PB_Event_CloseWindow
Procedure LoadDLL()
ClearGadgetItemList ( #ListIcon_dll )
Dll.s = OpenFileRequester ( "Load Dll" , "" , "Dynamic link library (*.dll)|*.dll" ,0)
If Dll<> ""
SetWindowTitle ( #Viewver , "Dll Viewver : " + GetFilePart (Dll))
OpenLibrary (0,Dll)
ExamineLibraryFunctions (0)
While NextLibraryFunction ()<>0
AddGadgetItem ( #ListIcon_dll ,-1, LibraryFunctionName ()+ Chr (10)+ Str ( LibraryFunctionAddress ()))
Wend
CloseLibrary (0)
EndIf
EndProcedure
Procedure Open_Viewver()
If OpenWindow ( #Viewver , 336, 122, 320, 400, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_WindowCentered , "Dll viewver" )
If CreateGadgetList ( WindowID ())
ButtonGadget ( #Button_LoadDll , 100, 370, 130, 20, "Load DLL" )
ListIconGadget ( #ListIcon_dll , 10, 10, 300, 350, "Function name" , 150, #PB_ListIcon_GridLines )
AddGadgetColumn ( #ListIcon_dll , 1, "Address" , 150)
EndIf
EndIf
EndProcedure
@+
)