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
et voici mon bout de code wlangage :
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
je ne vois pas ou se trouve mon erreur Merci a tous
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
Partager