Table of Contents
Advertisement
Appendix C. Sample VB6.0 Cash Drawer Code for Windows
NOTE:
Option Explicit On
Private Declare Function
dwDesiredAccess
As
Long,
SECURITY_ATTRIBUTES,
hTemplateFile
As
Long)
Private Declare Function
As
Long,
ByVal
lpInBuffer
nOutBufferSize
As
Long,
Private Declare Function
'CreateFile Custom Variables
Private
Type SECURITY_ATTRIBUTES
nLength
As Long
lpSecurityDescriptor
bInheritHandle
As Long
End
Type
'DeviceIoControl Custom Variables
Private
Type OVERLAPPED
Internal
As Long
InternalHigh
As Long
offset
As Long
OffsetHigh
As Long
hEvent
As Long
End
Type
Dim
DeviceHandle
As Integer
Dim
SA
As
SECURITY_ATTRIBUTES
Dim
SA1
As
OVERLAPPED
Dim
ADV_OPEN_CTL_CODE
Dim
ADV_STATUS_CTL_CODE
Private Const
GENERIC_READ
Private Const
GENERIC_WRITE
Private Const
FILE_SHARE_READ
Private Const
FILE_SHARE_WRITE
Private Const
OPEN_EXISTING
Private Const
FILE_ATTRIBUTE_NORMAL
Private Const
INVALID_HANDLE_VALUE
Private Const
METHOD_BUFFERED
Private Function CTL_CODE(ByVal
Long,
ByVal
lngAccess
CTL_CODE = (lngDevFileSys)
End Function
Requires installation of System Driver. Refer to the System Driver Installation
section for instructions.
CreateFile
Lib
"kernel32"
ByVal
dwShareMode
ByVal
dwCreationDisposition
As Long
DeviceIoControl
Lib
As
Any,
ByVal
nInBufferSize
ByVal
lpBytesReturned
CloseHandle
Lib
"kernel32.dll"
As Long
As Long
As Long
As Long
= &H80000000
As Long
= &H40000000
As Long
= &H1
As Long
= &H2
As Long
= &H3
As Long
As Long
As Long
= 0, FILE_ANY_ACCESS
lngDevFileSys
As
Long)
As Long
Or
(lngAccess * (2 ^ 14))
Alias
"CreateFileA"
As
Long,
ByVal
lpSecurityAttributes
As
Long,
ByVal
"kernel32"
(ByVal
hDevice
As
Long,
ByVal
As
Long,
ByVal
lpOverlapped
(ByVal
hObject
= &H80
= &HFFFFFFFF
As
Long,
ByVal
lngFunction
Or
(lngFunction * (2 ^ 2))
(ByVal
lpFileName
As
As
dwFlagsAndAttributes
As
Long,
ByVal
dwIoControlCode
lpOutBuffer
As
Any,
ByVal
As
OVERLAPPED)
As
Long)
As Long
As Long
= 0
As
Long,
ByVal
Or
lngMethod
String,
ByVal
As
Long,
ByVal
As Long
lngMethod
As
67
Advertisement
Table of Contents
