Visualisateur des fonctions d'une DLL's

[Anonyme]

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 :

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

Cela peut toujours servir.
@+

[Chris]

Ce qui est bien avec ce programme, c'est que tout le monde en a fait un un jour ou l'autre. Et toujours avec le même nom

[cederavic]

Nan moi c'etait Library Viewer! (d'ailleur ça commence a dater... )

[lionel_om]

Ya Dri qu'ne a fais un aussi et qui permet de récupérer les images qu'elles contiennent...