module1.bas

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

Attribute VB_Name = "Module1"
Option Explicit

'调用Net API的Windows数据类型
Public Const MAX_PREFERRED_LENGTH As Long = -1
Public Const NERR_SUCCESS As Long = 0&
Public Const ERROR_MORE_DATA As Long = 234&
Public Const LB_SETTABSTOPS As Long = &H192

'服务器类型常量
Public Const SV_TYPE_ALL                 As Long = &HFFFFFFFF
Public Const SV_TYPE_WORKSTATION         As Long = &H1
Public Const SV_TYPE_SERVER              As Long = &H2

Public Const STYPE_ALL       As Long = -1  'note: my const
Public Const STYPE_DISKTREE  As Long = 0
Public Const STYPE_PRINTQ    As Long = 1
Public Const STYPE_DEVICE    As Long = 2
Public Const STYPE_IPC       As Long = 3
Public Const STYPE_SPECIAL   As Long = &H80000000
Public Const ACCESS_READ     As Long = &H1
Public Const ACCESS_WRITE    As Long = &H2
Public Const ACCESS_CREATE   As Long = &H4
Public Const ACCESS_EXEC     As Long = &H8
Public Const ACCESS_DELETE   As Long = &H10
Public Const ACCESS_ATRIB    As Long = &H20
Public Const ACCESS_PERM     As Long = &H40
Public Const ACCESS_ALL      As Long = ACCESS_READ Or _
                                        ACCESS_WRITE Or _
                                        ACCESS_CREATE Or _
                                        ACCESS_EXEC Or _
                                        ACCESS_DELETE Or _
                                        ACCESS_ATRIB Or _
                                        ACCESS_PERM
'只用于Win NT/2000
Public Type SERVER_INFO_100
  sv100_platform_id  As Long
  sv100_name         As Long
End Type

'shi2_current_uses:当前连接到资源的用户数量
'shi2_max_uses    :资源能容纳的最大连接数
'shi2_netname     :资源的共享名
'shi2_passwd      :资源的访问口令（在运行共享级安全的服务器上）
'shi2_path        :共享资源的本地路径
'shi2_permissions :共享资源的访问许可（在运行共享级安全的服务器上）
'shi2_remark      :共享资源的描述信息
'shi2_type        :共享资源的类型
Public Type SHARE_INFO_2
  shi2_netname       As Long
  shi2_type          As Long
  shi2_remark        As Long
  shi2_permissions   As Long
  shi2_max_uses      As Long
  shi2_current_uses  As Long
  shi2_path          As Long
  shi2_passwd        As Long
End Type

Public Declare Function NetServerEnum Lib "netapi32" _
  (ByVal servername As Long, _
   ByVal level As Long, _
   buf As Any, _
   ByVal prefmaxlen As Long, _
   entriesread As Long, _
   totalentries As Long, _
   ByVal servertype As Long, _
   ByVal domain As Long, _
   resume_handle As Long) As Long

Public Declare Function NetShareEnum Lib "netapi32" _
  (ByVal servername 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" _
   (ByVal Buffer As Long) As Long
     
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