module1.bas

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

Attribute VB_Name = "Module1"
Option Explicit

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 WKSTA_INFO_102
    wki102_platform_id As Long
    wki102_computername As Long
    wki102_langroup As Long
    wki102_ver_major As Long
    wki102_ver_minor As Long
    wki102_lanroot As Long
    wki102_logged_on_users As Long
End Type

Public Type WKSTA_USER_INFO_0
    wkui0_username  As Long
End Type

Public Declare Function NetWkstaGetInfo Lib "Netapi32" _
            (ByVal servername As Long, ByVal level As Long, bufptr As Long) As Long
            
Public Declare Function NetWkstaUserEnum 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.dll" (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