Utiliser les fonctions d'une DLL chargée dynamiquementRésolu

Question

Si on se sert d'une DLL en la chargeant dynamiquement, donc sans utiliser "Declare Function"...
On utilise donc "LoadLibrary" et "GetProcAddress" pour r&#233;cup&#233;rer l'adresse de la fonction dont on a besoin.

Question : comment utiliser la fonction apr&#232;s avoir r&#233;cup&#233;r&#233; son point d'entr&#233;e ?

Au cas-o&#249;, pour mon cas, j'&#233;cris les fonctions dont j'ai besoin ainsi que les types utilis&#233;s :

Type RARHeaderData
    ArcName As String * 260
    FileName As String * 260
    Flags As Long
    PackSize As Long
    UnpSize As Long
    HostOS As Long
    FileCRC As Long
    FILETIME As Long
    UnpVer As Long
    Method As Long
    FileAttr As Long
    CmtBuf As String
    CmtBufSize As Long
    CmtSize As Long
    CmtState As Long
End Type


Type RAROpenArchiveData
    ArcName As String
    OpenMode As Long
    OpenResult As Long
    CmtBuf As String
    CmtBufSize As Long
    CmtSize As Long
    CmtState As Long
End Type


Declare Function RAROpenArchive Lib "unrar.dll" (ByRef ArchiveData As RAROpenArchiveData) As Long

Declare Function RARCloseArchive Lib "unrar.dll" (ByVal hArcData As Long) As Long

Declare Function RARReadHeader Lib "unrar.dll" (ByVal hArcData As Long, ByRef HeaderData As RARHeaderData) As Long

Declare Function RARProcessFile Lib "unrar.dll" (ByVal hArcData As Long, ByVal Operation As Long, ByVal DestPath As String, ByVal DestName As String) As Long

ShareVB · Accepted Answer

salut,


d&#233;j&#224; le handle d'une dll (HMODULE) c'est l'adresse de base dela dll en m&#233;moire (l'adresse &#224; laquelle elle est charg&#233;e)...


Ensuite CallWindowProc est le seul moyen facile d'utiliser un point d'entr&#233;e (pointeur de fonction). Cela limite les fonctions appel&#233;es par le nombre de param&#232;tre de la fonction aux 4 param&#232;tres des proc&#233;dures de fen&#234;tre...


Sinon, pour faire plus compliqu&#233;, tu prends IDL (et MIDL.exe ou mktyplib.exe) pour faire une biblioth&#232;que de type avec une interface comprennant le prototype des fonctions que tu veux utiliser avec pour premier param&#232;tre un par valeur de l'adresse de la fonction. 

Ensuite, il faut que tu importes cette typelib dans VB, tu declares une variable de type Long pVTable:

Dans un tableau fctptr, tu dois mettre 
- un pointeur vers une fonction QueryInterface perso
(This As FunctionDelegator, riid As Long, pvObject As Long) As Long, elle renvoie 0 (et met Varptr(This) dans pvObject) au premier appel et E_NOINTERFACE (et met 0 dans pvObject) ensuite.
- un pointeur vers une fonction AddRef perso
(ByVal This As Long) As Long qui ne fait rien (mettre un ' dans le corps pour &#233;viter la suppression
- un pointeur vers une fonction Release perso
(ByVal This As Long) As Long qui ne fait rien (mettre un ' dans le corps pour &#233;viter la suppression
- autant de pointeur vers une variable contenant le code asm (en binaire) que de fonctions API dans l'interface : 
pop ecx ; l'adresse de retour
pop eax ; le pointeur this (pas besoin pour les appels d'apis)
pop eax ; le pointeur de fonction (premier param&#232;tre (par valeur))
jmp eax ; saut au d&#233;but de l'api


Ensuite, tu dois mettre l'adresse du tableau de pointeurs de fonctions dans ta var : 
pVTable = vartr(fctptr(0))


Ensuite, tu copies pVTable dans ta_var du type de ton interface :
CopyMemory ta_var,Byval VarPtr(pVTable),4&

c'est quand m&#234;me assez compliqu&#233;, pour moi, je trouve ca utile si tu ne peutx pas faire avec declare (pointeurs de fonction non export&#233;s, cdecl, ...)
si ca t'int&#233;resse vraiment je te conseille "Advanced Visual Basic 6" de M. Curland... cet technique fait partie du livre...


ShareVB

ShareVB · Answer

salut,

les declare, c'est d&#233;j&#224; du chargement dynamique...en outre, en vb, pas de pointeurs de fonctions donc pas de GetProcAddress...si tu regardes avec Depends.exe, tu ne trouveras pas les fonctions que tu as d&#233;clar&#233;es. (Si tu veux avoir la liste des declares d'un exe : http://www.vbfrance.com/code.aspx?id=28572)

ShareVB

cs_Drakkhen · Answer

Hmm, il y a 2-3 sources sur le sujet. Le but c'est de trouver le Handle de la dll, de la fonction et d'utiliser les API de Windows pour pouvoir s'en servir. Mais les sources post&#233;es sont uniquement bas&#233;es sur l'API CallWindowProc...
Y'a certes pas de pointeur en VB, mais le but est justement de contourner le probl&#232;me en se servant des API de Windows. A croire que pour y arriver, il y a de sacr&#233;es magouilles &#224; faire. Bref, je vais essayer de chercher un peu, en esp&#233;rant que qqun s'est d&#233;j&#224; amus&#233; sur le sujet.

En tout cas, je te remercie de m'avoir r&#233;pondu. :-)

cs_Drakkhen · Answer

Euh, je voulais dire de charger la dll, pas trouver le handle.

cs_Drakkhen · Answer

Hello,

Ne t'inqui&#232;te pas, je sais ce qu'est un handle, on va dire que j'ai pass&#233; le stade de d&#233;butant... :oP
Merci de ta r&#233;ponse, je vois que j'ai affaire &#224; un ma&#238;tre. J'avais pas vu que c'&#233;tait ce cher ShareVB dont tout le monde parle (fais gaffe, je vais bient&#244;t te demander de l'argent...).

Concernant CallWindowProc, comme tu dis c'est limit&#233;. De plus, l'API ne "s'adresse" qu'aux fen&#234;tres si je me trompe pas.

Bref, concernant la deuxi&#232;me m&#233;thode, je comprends plus ou moins le fonctionnement, Mais quand tu me parles d'IDL, je suis largu&#233;... J'ai un peu cherch&#233;, mais quitte &#224; trier des centaines de pages, je pr&#233;f&#232;re te demander si tu ne connais pas un site qui explique un peu &#231;a stp.
Ensuite tu dis :
"- autant de pointeur vers une variable contenant le code asm (en binaire) que de fonctions API dans l'interface"
Donc en fin de compte, j'ai peut-&#234;tre rien capt&#233;... Tu r&#233;cup&#232;re quoi exactement, le code asm ?
L&#224; oui, je suis un d&#233;butant fini, d&#233;sol&#233;.

ShareVB · Answer

salut,

Je crois CallWindowProc peut &#234;tre d&#233;tourner de son utilisation premi&#232;re pour appeler des fonctions qui ne sont pas forc&#233;ment de fen&#234;tre.

Ensuite, IDL est le langage de d&#233;finition d'interface abondement utlis&#233; pour cr&#233;er les fichiers tlb (ce que l'on voit dans l'explorateur d'objet, c'est le contenu des tlbs de VB). Cela sert &#224; d&#233;finir toutes les interfaces COM genre IMachinTruc (par ex IPictureDisp)...
Il existe deux outils pour cr&#233;er des tlb &#224; partie de fichiers IDL ou ODL (plus ancien) : mktyplib.exe (tr&#232;s facile d'utilisation : utilise ODL...ce qui est tr&#232;s adapt&#233; &#224; VB : tlb simple) et MIDL.exe (tr&#232;s complexe et pas facile &#224; compil&#233; un IDL avec...)
un IDL, c'est du genre :
[
uuid(2F6CA420-C641-101A-B826-00DD01103DE1),            // &#224; g&#233;n&#233;rer avec GUIDGEN.EXE
helpstring("Ta tlb1.0"),
version(1.0)
] 
library TaTLB
{
#ifdef WIN32
importlib("stdole32.tlb");
#else
importlib("stdole.tlb");
#endif

typedef tagRAROpenArchiveData {
    long ArcName;
    long OpenMode;
    long OpenResult;
    long CmtBuf;
    long CmtBufSize;
    long CmtSize;
    long CmtState;
} RAROpenArchiveData;

[
uuid(2F6CA422-C641-101A-B826-00DD01103DE1),        // pareil
helpstring("Ton Interface")
]
interface IRar : IUnknown
{
long RAROpenArchive(long lpFctPtr, RAROpenArchiveData* lpArchiveData);
//ainsi de suite
}
}

bon, j'ai pas test&#233;... masi ca devrait &#234;tre &#224; peut pr&#232;s ca...sinon, il y a la doc de MIDL : 
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/midl.asp
enfin, tu met dans une variable (ou un tableau) le code binaire ex&#233;cutable correspondant aux instructions ASM que je t'ai donn&#233; (par POP ECX 59h, POP EAX 58h)...je crois que ca doit tenir dans un double ou currency  XXXXXXXXXX585859h et si tu as trop de XX tu met 90h = NOP (no operating code) (on sait jamais)...

ShareVB

ShareVB · Answer

salut,

oupss, j'ai oubli&#233; une instruction ASM :

pop ecx ; l'adresse de retour
pop eax ; le pointeur this (pas besoin pour les appels d'apis)
pop eax ; le pointeur de fonction (premier param&#232;tre (par valeur))
push ecx ;ne pas oublier de remettre l'adresse de retour
jmp eax ; saut au d&#233;but de l'api

ShareVB

Utiliser les fonctions d'une DLL chargée dynamiquement

7 réponses

Discussions similaires