PureBoard

Code: Alles auswählen

;DLL
ProcedureDLL MeineFunction1()
    MessageRequester("Function1", "", 0)
EndProcedure
    
 ProcedureDLL MeineFunction2()
    MessageRequester("Function2", "", 0)
EndProcedure
     

 ProcedureDLL MeineFunction3()
    MessageRequester("Function3", "", 0)
EndProcedure
  

Code: Alles auswählen

hIMAGE_DOS_SIGNATURE = $5A4D
hIMAGE_NT_SIGNATURE = $4550
#IMAGE_FILE_MACHINE_I386=$14c
#IMAGE_FILE_MACHINE_IA64 =200
#IMAGE_FILE_MACHINE_AMD64 =8664
#IMAGE_DIRECTORY_ENTRY_EXPORT=0
#IMAGE_DIRECTORY_ENTRY_IMPORT=1

;hUser32=LoadLibrary_("C:\Users\V\Desktop\messagebox\peheader\pe tests\testdll.dll")
hUser32=GetModuleHandle_("user32.dll")


;*********************************
*pDOSHead.IMAGE_DOS_HEADER
*pDOSHead = hUser32

If  *pDOSHead\e_magic <> hIMAGE_DOS_SIGNATURE
  Debug "Error Dos Header signature MZ" :End
Else
    Debug "Dos Header OK"
EndIf
 ;********************************


;*********************************
*pPEHeader.IMAGE_NT_HEADERS
*pPEHeader=*pDOSHead\e_lfanew

If PeekL(*pPEHeader+hUser32) <> hIMAGE_NT_SIGNATURE
  Debug "Error PE Header signature PE" :End
Else
  Debug "Pe Header OK"
EndIf
;*********************************


;*********************************
*FileHeader.IMAGE_FILE_HEADER
*FileHeader = hUser32+*pPEHeader\FileHeader

If *fileheader\Machine =#IMAGE_FILE_MACHINE_I386
  Debug "Intel x86 architecture"
  Debug ""
EndIf
;*********************************


*OptionHeader.IMAGE_OPTIONAL_HEADER
*OptionHeader = hUser32+*pPEHeader\OptionalHeader

*pImportDesc.IMAGE_EXPORT_DIRECTORY
*pImportDesc=hUser32+*OptionHeader\DataDirectory[#IMAGE_DIRECTORY_ENTRY_EXPORT]\VirtualAddress

Debug PeekS(*pImportDesc\nName+hUser32)
Debug ""




Dim FunctionNamesArray.l(*pImportDesc\NumberOfNames)
MoveMemory(*pImportDesc\AddressOfNames+hUser32, @FunctionNamesArray(), *pImportDesc\NumberOfNames)
;Debug PeekS(FunctionNamesArray(0)+hUser32)

Debug "DLL Functionen:"
For k = 0 To 2 
    Debug PeekS(FunctionNamesArray(k)+hUser32)
Next
Debug ""
Debug *pImportDesc\nBase



Dim FunctionAdressArray.l(*pImportDesc\NumberOfFunctions)
MoveMemory(*pImportDesc\AddressOfFunctions+hUser32, @FunctionAdressArray(), *pImportDesc\NumberOfFunctions)
;Debug FunctionAdressArray(0)+hUser32

Debug "DLL Adressen:"
For k = 0 To 2 
    Debug FunctionAdressArray(k)+hUser32
Next

Debug "---"
;Debug GetProcAddress_(hUser32,"MeineFunction1")
;Debug GetProcAddress_(hUser32,"MeineFunction2")
;Debug GetProcAddress_(hUser32,"MeineFunction3")

Code: Alles auswählen

hIMAGE_DOS_SIGNATURE = $5A4D
hIMAGE_NT_SIGNATURE = $4550
#IMAGE_FILE_MACHINE_I386=$14c
#IMAGE_FILE_MACHINE_IA64 =200
#IMAGE_FILE_MACHINE_AMD64 =8664
#IMAGE_DIRECTORY_ENTRY_EXPORT=0
#IMAGE_DIRECTORY_ENTRY_IMPORT=1

;BaseAddress=LoadLibrary_("C:\Users\V\Desktop\messagebox\peheader\pe tests\testdll.dll")
BaseAddress=GetModuleHandle_("user32.dll")


;*********************************
*pDOSHead.IMAGE_DOS_HEADER
*pDOSHead = BaseAddress

If  *pDOSHead\e_magic <> hIMAGE_DOS_SIGNATURE
  Debug "Error Dos Header signature MZ" :End
Else
    Debug "Dos Header OK"
EndIf
 ;********************************


;*********************************
*pPEHeader.IMAGE_NT_HEADERS
*pPEHeader=*pDOSHead\e_lfanew

If PeekL(*pPEHeader+BaseAddress) <> hIMAGE_NT_SIGNATURE
  Debug "Error PE Header signature PE" :End
Else
  Debug "Pe Header OK"
EndIf
;*********************************


;*********************************
*FileHeader.IMAGE_FILE_HEADER
*FileHeader = BaseAddress+*pPEHeader\FileHeader

If *fileheader\Machine =#IMAGE_FILE_MACHINE_I386
  Debug "Intel x86 architecture"
  Debug ""
EndIf
;*********************************


*OptionHeader.IMAGE_OPTIONAL_HEADER
*OptionHeader = BaseAddress+*pPEHeader\OptionalHeader

*pImportDesc.IMAGE_EXPORT_DIRECTORY
*pImportDesc=BaseAddress+*OptionHeader\DataDirectory[#IMAGE_DIRECTORY_ENTRY_EXPORT]\VirtualAddress

Debug PeekS(*pImportDesc\nName+BaseAddress)
Debug ""


NameAddr.l      = *pImportDesc\AddressOfNames + BaseAddress
OrdinalAddres.l = *pImportDesc\AddressOfNameOrdinals + BaseAddress
FuncAddr.l      = *pImportDesc\AddressOfFunctions + BaseAddress

_step = 0
    For index.l = 0 To *pImportDesc\NumberOfNames - 1
        NameAddr + _step
        OrdinalAddres + _step/2 
        Debug PeekS(PeekL(NameAddr) + BaseAddress)
        Debug PeekL(FuncAddr + PeekW(OrdinalAddres)*4 ) + BaseAddress
        _step = 4                                 
    Next index


Debug ""
Debug "------------"
    
Debug GetProcAddress_(BaseAddress,"MeineFunction1")
Debug GetProcAddress_(BaseAddress,"MeineFunction2")
Debug GetProcAddress_(BaseAddress,"MeineFunction3")