Table of Contents
Advertisement
Appendix F. Watch Dog VB6 Sample Code for IMB-183
Option Explicit On
Private Declare Function
CreateFile
ByVal
dwShareMode
As
Long,
dwFlagsAndAttributes
As
Long,
Private Declare Function
DeviceIoControl
Any,
ByVal
nInBufferSize
As
lpOverlapped
As
OVERLAPPED)
Private Declare Function
CloseHandle
'CreateFile Custom Variables
Private
Type SECURITY_ATTRIBUTES
nLength
As Long
lpSecurityDescriptor
As Long
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_WDOGSec_CTL_CODE
Dim
ADV_WDOGMin_CTL_CODE
Dim
ADV_COLSE_CTL_CODE
Dim
iBytesRtn
As Long
Dim
iRet
As
Integer, iDrawer
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)
As Long
CTL_CODE = (lngDevFileSys)
End Function
Private Sub
Form_Load()
'-1673527296 Come from c code (40000 <<16)
ADV_WDOGSec_CTL_CODE = CTL_CODE(-1673527296, &H902, METHOD_BUFFERED, FILE_ANY_ACCESS)
ADV_WDOGMin_CTL_CODE = CTL_CODE(-1673527296, &H903, METHOD_BUFFERED, FILE_ANY_ACCESS)
ADV_COLSE_CTL_CODE = CTL_CODE(-1673527296, &H904, METHOD_BUFFERED, FILE_ANY_ACCESS)
DeviceHandle = CreateFile("\\.\WDOG", GENERIC_READ
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If
DeviceHandle = INVALID_HANDLE_VALUE
'Failed to Open Cash Drawer Driver
MsgBox("Error opening WDOG.sys. Error = "
End If
End Sub
Private Sub
Command1_Click()
Label2.Caption = 0
Lib
"kernel32"
Alias
"CreateFileA"
ByVal
lpSecurityAttributes
ByVal
hTemplateFile
As
Long)
Lib
"kernel32"
Long,
ByVal
lpOutBuffer
As
Any,
As Long
Lib
"kernel32.dll"
(ByVal
As Long
As Long
As Long
As Integer
As Long
= &H80000000
As Long
= &H40000000
As Long
= &H1
As Long
= &H2
As Long
= &H3
As Long
= &H80
As Long
= &HFFFFFFFF
As Long
= 0, FILE_ANY_ACCESS
lngDevFileSys
As
Long,
Or
(lngAccess * (2 ^ 14))
Or
Then
& Err.LastDllError)
'Button1
(ByVal
lpFileName
As
SECURITY_ATTRIBUTES,
As Long
(ByVal
hDevice
As
Long,
ByVal
ByVal
nOutBufferSize
As
hObject
As
Long)
As Long
As Long
= 0
ByVal
lngFunction
As
Long,
(lngFunction * (2 ^ 2))
Or
Or
GENERIC_WRITE, FILE_SHARE_READ
As
String,
ByVal
dwDesiredAccess
ByVal
dwCreationDisposition
dwIoControlCode
As
Long,
Long,
ByVal
lpBytesReturned
ByVal
lngMethod
As
Long,
ByVal
lngMethod
Or
FILE_SHARE_WRITE, SA,
As
Long,
As
Long,
ByVal
ByVal
lpInBuffer
As
As
Long,
ByVal
lngAccess
As
73
Advertisement
Table of Contents
