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
J'ai essayé de mettre
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
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
Partager