system XPpro sp2 c'est ok
dans un module
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
dans un form
Private Sub Command1_Click()
Text2.Text = Str(Inp(Val("&H" + Text1.Text)))
End Sub
Private Sub Command2_Click()
Out Val("&H" + Text1.Text), Val(Text2.Text)
End Sub
Private Sub Form_Load()
End Sub
version du fichier INPOUT32.DLL 1.0.0.1 copyright Freeware