[PureBasic] Alternate GetProcAddress

[Modest]

Code:

Procedure.l GetProcAddressEx(*hModule, lpProcName.s)
  
  Protected *Image_Dos_Header.IMAGE_DOS_HEADER = *hModule
  
  Protected *Image_Nt_Headers.IMAGE_NT_HEADERS = *hModule + *Image_Dos_Header\e_lfanew
  
  Protected *Image_Export_Directory.IMAGE_EXPORT_DIRECTORY = *hModule + *Image_Nt_Headers\OptionalHeader\DataDirectory[0]\VirtualAddress
  
  Protected dwNumberOfNames.l
  
  Protected Ordinal.w
  
  Protected dwAddress.l
  
  Protected dwName.l

  For dwNumberOfNames = 0 To *Image_Export_Directory\NumberOfNames - 1
    
    dwAddress = *hModule + *Image_Export_Directory\AddressOfNames + (dwNumberOfNames * 4)
    
    dwName = *hModule + PeekL(dwAddress)
    
    If lstrcmp_(PeekS(dwName, #PB_Any, #PB_Ascii), lpProcName) = 0
      
      dwAddress = *Image_Export_Directory\AddressOfNameOrdinals + (dwNumberOfNames * 2)
      
      Ordinal = PeekW(*hModule + dwAddress)
      
      dwAddress = *Image_Export_Directory\AddressOfFunctions + (Ordinal * 4)
      
      ProcedureReturn *hModule + PeekL(*hModule + dwAddress)
      
    EndIf
    
  Next dwNumberOfNames
  
EndProcedure

Example usage of this procedure.

Code:

Prototype proto_MessageBox(hwnd.l, lpText.s, lpCaption.s, wType.l)
Define _MessageBox.proto_MessageBox

  _MessageBox = GetProcAddressEx(LoadLibrary_("USER32.DLL"), "MessageBoxW")

_MessageBox(0, "It Works!", "Guess What!", 0)

Advised to compile In unicode mode, and xp theme support disabled. Thanks! (Written By Me, One of my first ventures into the realm of PureBasic)

[KoBE]

Not sure how many people on here know PureBasic, (I don't). So, i cannot say whether this is good code or not. But thanks for contributing anyways.

[Modest]

Yeah its a strange strange language, that only a few know, I find it to be a combination of asm/c/basic.