Bonjour a tous
je voudrais convertir ce code vb vers wlangage mais ma machine plante et je n'arrive pas voir le code d'erreur.
voici le bout de code VB
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
'Declaration of Dll Function
Private Declare Function GetIomemVersion Lib "iomem.dll" Alias "_GetIomemVersion@4" (ByVal version As String) As Boolean
et voici mon bout de code wlangage :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Mreponse est une chaine
hInst est un entier systeme
bHprinter est un booléen
hInst = ChargeDLL("iomem.dll")
SI hInst = 0 ALORS
	Erreur("Erreur lors du chargement")
SINON
	bHprinter=AppelDLL32("iomem.dll","_GetIomemVersion@4",Mreponse)
	DéchargeDLL(hInst)
FIN
je ne vois pas ou se trouve mon erreur Merci a tous