Bonjour,

J'utilise un VB Script pour lire des informations (un compteur) sur une carte "style PCI" fabriquée spécifiquement pour nous.

Cette carte est fournie avec une Dll "PI16". Pour utiliser les fonctions de cette DLL, j'utilise Dynamic Wrapper X.

Toutes les secondes, je vais lancer ma fonction VBS. Cela fonctionne très bien sauf que je pompe petit à petit toute la ressource mémoire du PC.

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function Lecture(Num_Carte)
 
Dim Retour
Dim DX
Dim Tab_Return(1)
 
Set DX = CreateObject("DynamicWrapperX")
 
DX.Register "PI16.dll","PI16_read_compteur", "i=uU", "r=l"
Retour = DX.PI16_read_compteur (Num_Carte, Compteur)
 
DX.Register "PI16.dll","PI16_reset", "i=u", "r=l"
Retour = DX.PI16_reset (Num_Carte)
 
Tab_Return(0) = Compteur
Lecture = Tab_Return
 
End Function
J'ai essayé de mettre

Set DX = Nothing à la fin de ma fonction mais ça ne change rien

Est ce que quelqu'un a une idée ??

D'avance merci