module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit

Public Const SESS_GUEST = &H1         '以guest登录的会话
Public Const SESS_NOENCRYPTION = &H2  '
Public Const NERR_SUCCESS As Long = 0&
Public Const MAX_PREFERRED_LENGTH As Long = -1
Public Const ERROR_MORE_DATA As Long = 234&
Public Const LB_SETTABSTOPS As Long = &H192

'只适用于Win NT/2000
Public Type SESSION_INFO_502
  sesi502_cname As Long
  sesi502_username As Long
  sesi502_num_open As Long
  sesi502_time As Long
  sesi502_idle_time As Long
  sesi502_user_flags As Long
  sesi502_cltype_name As Long
  sesi502_transport As Long
End Type

Public Declare Function NetSessionEnum Lib "Netapi32" _
  (ByVal servername As Long, _
   ByVal UncClientName As Long, _
   ByVal username As Long, _
   ByVal level As Long, _
   bufptr As Long, _
   ByVal prefmaxlen As Long, _
   entriesread As Long, _
   totalentries As Long, _
   resume_handle As Long) As Long
   
Public Declare Function NetApiBufferFree Lib "netapi32.dll" _
   (ByVal Buffer As Long) As Long
   
'只适用于Win9x
Public Type SESSION_INFO_50
  sesi50_cname As Long
  sesi50_username As Long
  sesi50_key As Long
  sesi50_num_conns As Long
  sesi50_num_opens As Long
  sesi50_time As Long
  sesi50_idle_time As Long
  sesi50_protocol As Long
  pad1 As Long
End Type

Public Declare Function NetSessionEnum9x Lib "Netapi32" _
   Alias "NetSessionEnum" _
  (ByVal pszServer As Long, _
   ByVal level As Long, _
   bufptr As Long, _
   cbBuffer As Long, _
   entriesread As Long, _
   totalentries As Long) As Long

'常用API函数
Public Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (pTo As Any, uFrom As Any, _
   ByVal lSize As Long)
   
Public Declare Function lstrlenW Lib "kernel32" _
  (ByVal lpString As Long) As Long

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