modenumports.bas

功能强大的API

Attribute VB_Name = "Module1"
Option Explicit

Public Const PORT_TYPE_WRITE = &H1
Public Const PORT_TYPE_READ = &H2
Public Const PORT_TYPE_REDIRECTED = &H4
Public Const PORT_TYPE_NET_ATTACHED = &H8

Public Type PORT_INFO_2
   sPortName    As Long
   sMonitorName As Long
   sDescription As Long
   fPortType    As Long
   Reserved     As Long
End Type

Public Declare Function EnumPorts Lib "winspool.drv" _
   Alias "EnumPortsA" _
  (ByVal pName As String, _
   ByVal nLevel As Long, _
   lpbPorts As Byte, _
   ByVal cbBuf As Long, _
   pcbNeeded As Long, _
   pcReturned As Long) As Long
   
Public Declare Sub MoveMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (Destination As Any, _
   Source As Any, _
   ByVal Length As Long)
  
Public Declare Function lstrcpy Lib "kernel32" _
   Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long

Public Const LB_SETTABSTOPS As Long = &H192

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long
'--end block--'