InpOutNet/InpOut64.vb at master · tuldok89/InpOutNet · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Imports System.Runtime.InteropServices

'Commented by Nino Francisco Calzada Alamo


Friend Class InpOut64
    <DllImport("InpOutx64.dll")> Friend Shared Sub Out32(ByVal PortAddress As Short,
                                                        ByVal Data As Short)
    End Sub

    <DllImport("InpOutx64.dll")> Friend Shared Function Inp32(ByVal PortAddress As Short) As Short

    End Function

    <DllImport("InpOutx64.dll")> Friend Shared Function IsInpOutDriverOpen() As Boolean

    End Function

    <DllImport("InpOutx64.dll")> Friend Shared Function IsXP64Bit() As Boolean

    End Function

    <DllImport("InpOutx64.dll")> Friend Shared Function DlPortReadPortUchar(ByVal Port As UShort) As Byte

    End Function

    <DllImport("InpOutx64.dll")> Friend Shared Sub DlPortWritePortUchar(ByVal Port As UShort, ByVal Data As Byte)

    End Sub

    <DllImport("InpOutx64.dll")> Friend Shared Function DlPortReadPortUshort(ByVal Port As UShort) As UShort

    End Function

    <DllImport("InpOutx64.dll")> Friend Shared Sub DlPortWritePortUshort(ByVal Port As UShort, ByVal Data As UShort)

    End Sub

    <DllImport("InpOutx64.dll")> Friend Shared Function DlPortReadPortUlong(ByVal Port As UShort) As UInteger

    End Function

    <DllImport("InpOutx64.dll")> Friend Shared Sub DlPortWritePortUlong(ByVal Port As UShort, ByVal Data As UInteger)

    End Sub
End Class