setcomputername.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetName(CName As String) As Boolean
    Dim sComputerName As String
    Dim LComputerNameLen As Long
    Dim LResult As Long
    Dim RV As Boolean
    
    LComputerNameLen = 256
    sComputerName = Space(LComputerNameLen)
    LResult = GetComputerName(sComputerName, LComputerNameLen)
    
    If LResult <> 0 Then
        CName = Left(sComputerName, LComputerNameLen)
        
        RV = True
    Else
        RV = False
    End If
    GetName = RV
End Function
Public Function SetName(CName) As Boolean
    Dim LResult As Long
    Dim RV As Boolean
    
    LResult = SetComputerName(CName)
    If LResult <> 0 Then
        RV = True
    Else
        RV = False
    End If
    SetName = RV
    
End Function