posmodule.bas

windows下测试打印机源码

Attribute VB_Name = "posmodule"
Global h As Long

Public Const OPEN_ALWAYS = 4
Public Const OPEN_EXISTING = 3
Public Const OPENCHANNEL = 4110
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const GENERIC_ALL = &H10000000
Public Const GENERIC_EXECUTE = &H20000000
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000
Public Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Public Const FILE_FLAG_NO_BUFFERING = &H20000000
Public Const FILE_FLAG_OVERLAPPED = &H40000000
Public Const FILE_FLAG_POSIX_SEMANTICS = &H1000000
Public Const FILE_FLAG_RANDOM_ACCESS = &H10000000
Public Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000
Public Const FILE_FLAG_WRITE_THROUGH = &H80000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const CREATE_NEW = 1
Public Const CREATE_ALWAYS = 2
Public Const TRUNCATE_EXISTING = 5
Public Const SECURITY_ANONYMOUS_LOGON_RID = &H7
Public Const SECURITY_BATCH_RID = &H3
Public Const SECURITY_BUILTIN_DOMAIN_RID = &H20
Public Const SECURITY_CONTEXT_TRACKING = &H40000
Public Const SECURITY_CREATOR_GROUP_RID = &H1
Public Const SECURITY_CREATOR_OWNER_RID = &H0
Public Const SECURITY_DESCRIPTOR_MIN_LENGTH = (20)
Public Const SECURITY_DESCRIPTOR_REVISION = (1)
Public Const SECURITY_DESCRIPTOR_REVISION1 = (1)
Public Const SECURITY_DIALUP_RID = &H1
Public Const SECURITY_EFFECTIVE_ONLY = &H80000
Public Const SECURITY_INTERACTIVE_RID = &H4
Public Const SECURITY_LOCAL_RID = &H0
Public Const SECURITY_LOCAL_SYSTEM_RID = &H12
Public Const SECURITY_LOGON_IDS_RID = &H5
Public Const SECURITY_NETWORK_RID = &H2
Public Const SECURITY_NT_NON_UNIQUE = &H15
Public Const SECURITY_NULL_RID = &H0
Public Const SECURITY_SERVICE_RID = &H6
Public Const SECURITY_SQOS_PRESENT = &H100000
Public Const SECURITY_VALID_SQOS_FLAGS = &H1F0000
Public Const SECURITY_WORLD_RID = &H0
Public Const ERROR_ALREADY_EXISTS = 183&
Public Const INVALID_HANDLE_VALUE = -1
Public Const STD_ERROR_HANDLE = -12&
Public Const STD_INPUT_HANDLE = -10&
Public Const STD_OUTPUT_HANDLE = -11&


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 ReadFile Lib "kernel32" ( _
    ByVal hFile As Long, _
    ByRef lpBuffer As Byte, _
    ByVal nNumberOfBytesToRead As Long, _
    ByRef lpNumberOfBytesRead As Long, _
    ByVal lpOverlapped As Long) As Long
    
Declare Function WriteFile Lib "kernel32" ( _
    ByVal hFile As Long, _
    lpBuffer As Any, _
    ByVal nNumberOfBytesToWrite As Long, _
    lpNumberOfBytesWritten As Long, _
    ByVal lpOverlapped As Long) As Long

Declare Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As Long) As Long

Type COMMTIMEOUTS
        ReadIntervalTimeout As Long
        ReadTotalTimeoutMultiplier As Long
        ReadTotalTimeoutConstant As Long
        WriteTotalTimeoutMultiplier As Long
        WriteTotalTimeoutConstant As Long
End Type

Declare Function SetCommTimeouts Lib "kernel32" ( _
        ByVal hFile As Long, _
        lpCommTimeouts As COMMTIMEOUTS) As Long
    
Declare Function GetCommTimeouts Lib "kernel32" ( _
        ByVal hFile As Long, _
        lpCommTimeouts As COMMTIMEOUTS) As Long

Declare Function GetLastError Lib "kernel32" () As Long


Public Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type

Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" ( _
        lpVersionInformation As OSVERSIONINFO) As Long


Public Const DDD_RAW_TARGET_PATH = &H1
Public Declare Function DefineDosDevice Lib "kernel32" Alias "DefineDosDeviceA" ( _
        ByVal dwFlags As Long, _
        ByVal lpDeviceName As String, _
        ByVal lpTargetPath As String) As Long
        
Public Declare Function QueryDosDevice Lib "kernel32" Alias "QueryDosDeviceA" ( _
        ByVal lpDeviceName As String, _
        ByVal lpTargetPath As String, _
        ByVal ucchMax As Long) As Long



Option Explicit
' 僙僉儏儕僥傿懏惈偵娭偡傞忣曬傪掕媊偡傞峔憿懱
Type SECURITY_ATTRIBUTES
nLength              As Long
lpSecurityDescriptor As Long
bInheritHandle       As Long
End Type

' 怴僾儘僙僗偺儊僀儞僂傿儞僪僂偺昞帵忬懺傪掕媊偡傞峔憿懱
Type STARTUPINFO
cb              As Long
lpReserved      As Long
lpDesktop       As Long
lpTitle         As Long
dwX             As Long
dwY             As Long
dwXSize         As Long
dwYSize         As Long
dwXCountChars   As Long
dwYCountChars   As Long
dwFillAttribute As Long
dwFlags         As Long
wShowWindow     As Integer
cbReserved2     As Integer
lpReserved2     As Long
hStdInput       As Long
hStdOutput      As Long
hStdError       As Long
End Type

' 怴僾儘僙僗偵娭偡傞幆暿忣曬傪掕媊偡傞峔憿懱
Type PROCESS_INFORMATION
hProcess    As Long
hThread     As Long
dwProcessId As Long
dwThreadId  As Long
End Type

' 怴僾儘僙僗偲偦偺僾儔僀儅儕僗儗僢僪傪嶌惉偡傞娭悢偺愰尵
Declare Function CreateProcess Lib "kernel32.dll" _
Alias "CreateProcessA" _
(ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, _
lpProcessAttributes As SECURITY_ATTRIBUTES, _
lpThreadAttributes As SECURITY_ATTRIBUTES, _
ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, _
lpEnvironment As Any, _
ByVal lpCurrentDriectory As String, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) As Long

' 僆僽僕僃僋僩偺忬懺偑僔僌僫儖忬懺偁傞偄偼' 僞僀儉傾僂僩帪娫偑宱夁偡傞傑偱懸婡偡傞娭悢偺愰尵
Declare Function WaitForSingleObject Lib "kernel32.dll" _
(ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long

' 娭悢偑惂屼傪曉偟偨尨場傪帵偡掕悢偺愰尵
Public Const STATUS_WAIT_0 = &H0&
Public Const STATUS_TIMEOUT = &H102&
Public Const WAIT_TIMEOUT = STATUS_TIMEOUT
Public Const WAIT_FAILED = &HFFFFFFFF

Public Const CREATE_DEFAULT_ERROR_MODE = &H4000000
Public Const STARTF_USESHOWWINDOW = &H1