; PureBasic Visual Designer v3.95 build 1485 (PB4Code)

IncludeFile "DLLDialog.pbi"
Global MyDLL.l
MyDLL.l=0
Procedure ScanDLL(FN.s)
  If MyDLL
    CloseLibrary(MyDLL)
    MyDLL=0
    ClearGadgetItemList(#ListView_0)
  EndIf
  MyDLL=OpenLibrary(#PB_Any,FN)
  If MyDLL
    ExamineLibraryFunctions(MyDLL)
    While NextLibraryFunction()
      AddGadgetItem(#ListView_0,-1,LibraryFunctionName())
    Wend
  Else
    MessageRequester("DLL Scanner","Unable to open DLL"+Chr(10)+FN,#MB_ICONSTOP)
  EndIf
EndProcedure
;this is norm's (Waffle's) DLL Scanner
;this opens a DLL and creates a list of functions

Open_Window()
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      If EventGadget()=#Button_0
        NewDLL.s=GetGadgetText(#String_0)
        If Len(NewDLL)
          ScanDLL(NewDLL)         
        Else
          NewDLL=OpenFileRequester("Select a DLL to scan","kernel32.DLL","DLLs (*.DLL)|Exe (*.Exe)|All Files (*.*)|*.*",0)
          If Len(NewDLL)
            ScanDLL(NewDLL)
          EndIf
        EndIf
      EndIf
  EndSelect
ForEver