module1.bas

来自「电子书“Visual Basic 6 网络编程实例教程.rar”」· BAS 代码 · 共 27 行

Attribute VB_Name = "Module1"
Option Explicit

'Windows类型的数据结构，供网络API函数使用
Public Type USER_INFO_10
    usr10_name          As Long
    usr10_comment       As Long
    usr10_usr_comment   As Long
    usr10_full_name     As Long
End Type
'错误代码
Public Const ERROR_SUCCESS As Long = 0& '成功
Public Const NERR_UserNotFound As Long = 2221& '未找到用户
Public Const ERROR_ACCESS_DENIED As Long = 5& '拒绝访问
Public Const NERR_InvalidComputer As Long = 2351& '无效的计算机
Public Const MAX_COMPUTERNAME As Long = 15
Public Const MAX_USERNAME As Long = 256

'API函数声明
Public Declare Function NetUserGetInfo Lib "Netapi32" (lpServer As Byte, username As Byte, ByVal Level As Long, lpBuffer As Long) As Long
Public Declare Function NetApiBufferFree Lib "Netapi32" (ByVal Buffer As Long) As Long
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (xDest As Any, xSource As Any, ByVal nBytes As Long)
Public Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Public Declare Function StrLen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long