PureBasic

Code : Tout sélectionner

Procedure Function()
  
  res=OpenLibrary(0,"test.dll")
  
  If res
    Calling = CallFunction(0, "SomeFunction")
    
   CloseLibrary(0)
    Else
    MessageRequester("ERROR","Cant find DLL in Path",0):End
  EndIf
  
EndProcedure

  

 
OpenConsole()
If Function()
  
  PrintN("It is working !!")
  Delay(5000)

EndIf

Code : Tout sélectionner

Enumeration
  #Viewver
  #Button_LoadDll
  #ListIcon_dll
EndEnumeration

Procedure LoadDLL()
  ClearGadgetItems( #ListIcon_dll )
  
  Dll.s = OpenFileRequester ( "ouvrir une dll", "", "Dynamic link library (*.dll)|*.dll", 0)
  
  If Dll <> ""
    SetWindowTitle ( #Viewver, "open dll : " + GetFilePart (Dll))
    OpenLibrary (0, Dll)
    
    ExamineLibraryFunctions (0)
    
    While NextLibraryFunction () <> 0
      AddGadgetItem ( #ListIcon_dll, -1, LibraryFunctionName () + Chr (10) + Str ( LibraryFunctionAddress ()))
    Wend
    CloseLibrary (0)
  EndIf
  
EndProcedure

If OpenWindow ( #Viewver, 0, 0, 600, 450, "open dll", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
  ListIconGadget ( #ListIcon_dll, 10, 40, 580, 400, "nom de la fonction", 288, #PB_ListIcon_GridLines )
   AddGadgetColumn ( #ListIcon_dll, 1, "Address", 288)
    ButtonGadget ( #Button_LoadDll, 235, 10, 130, 20, "Ouvrir une dll" )

EndIf

Repeat
  EventID = WaitWindowEvent()
  If EventID = #PB_Event_Gadget
    Select EventGadget()
        
      Case #Button_LoadDll
        LoadDLL()
        
    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow

Code : Tout sélectionner

;{ Partie qui permet de creer la Dll 
Global ReturnString$

ProcedureDLL.s MaFonction() ; nom de la fonction qu'on retrouvera dans la Dll
 ReturnString$ = "Voici un texte dans une Dll !" ; texte que l'on souhaite recuperer
  ProcedureReturn ReturnString$
EndProcedure
;}


;{ Partie qui te permet de lire ta Dll
If OpenLibrary(0, "Chemin vers la Dll que tu aura creer avec le code ci-dessus."); on ouvre la Dll via son chemin
 String.s = PeekS(CallFunction(0, "MaFonction")); le nom de la fonction qui nous interesse dans la Dll (MaFonction). On fait appel a peeks pour lire une chaine de caractere en memoire
  Debug String.s ; on affiche le résultat. ça peux etre dans un print ou autre.
CloseLibrary(0)
EndIf
;}

; ces 2 codes sont bien evidement a separer ;)