getcomputername_unicode.bas

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

Attribute VB_Name = "GetCName"
Option Explicit

#If UNICODE Then
    Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameW" (ByVal lpBuffer As Long, nSize As Long) As Long
#Else
    Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If

Sub GetComputerName_test()
    Dim Name As String, Length As Long
    
    Length = 255
    Name = String(Length, 0)
#If UNICODE Then
    GetComputerName StrPtr(Name), Length
#Else
    GetComputerName Name, Length
#End If
    Name = Left(Name, Length)
    MsgBox "此一电脑的名称=" & Name, , "GetComputerName"
End Sub

Sub Main()
    GetComputerName_test
End Sub