请教如何用api取得机器名.txt

VB技巧问答10000例 VB技巧问答10000例

Windows API中 的 GetUserName可 以 用 来 解 决 这 个 问 题 。 这 个 函 数 的 声 明 如 下 ： 
    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
    调 用 可 以 使 用 如 下 代 码 ： 
    Dim sUsername As String 
    sUsername=Space(255) 
    GetUsername(sUsername, 255) 
<END>