Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long
Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, _
lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, _
ByVal nOutBufferSize As Long, lpBytesReturned As Long, _
lpOverlapped As Any) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Const GENERIC_READ = &H80000000 'Public hinzugefügt, damit ich auch in Form1 damit spielen kann
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_WRITE = &H2
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = &H3


Dim sFileName As String
Dim htemp As Long
Dim lIn As Long, lInSize As Long, lOut As Long, lOutSize As Long, lSize As Long
Dim lTemp As Long
Sub USB_IO()
sFileName = "\\.\CompuLABusb_0"
hgDrvrHnd = CreateFile(sFileName, GENERIC_WRITE Or GENERIC_READ, FILE_SHARE_WRITE Or FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0)
lTemp = DeviceIoControl(hgDrvrHnd, 4&, lIn, lInSize, lOut, lOutSize, lSize, gOverlapped)
htemp = CloseHandle(hgDrvrHnd)
End Sub

Function RdPort0() As Integer
lIn = 0 * 256 + 20
lInSize = 2
lOutSize = 2
USB_IO
RdPort0 = (lOut / 256) And 255
End Function

Function RdPort1() As Integer
lIn = 1 * 256 + 20
lInSize = 2
lOutSize = 2
USB_IO
RdPort1 = (lOut / 256) And 255
End Function

Sub WrPort0(Wert)
lIn = 65536 * Wert + 0 * 256 + 21
lInSize = 3
lOutSize = 1
USB_IO
End Sub

Sub WrPort1(Wert)
lIn = 65536 * Wert + 1 * 256 + 21
lInSize = 3
lOutSize = 1
USB_IO
End Sub