VB6.0获取计算机名 用户名最简单的方法

大家在做项目的时候经常会用到这个 像什么学生信息管理系统啦 小弟在此汇总一下 供大家参考

最简单的方法：

结果显示在文本框中 其他同理

用API取计算机名：

Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String,nSize As Long) As Long

Private Sub Form_Click()
  Dim StrT As String * 255
  GetComputerName StrT,255
  Print StrT
End Sub

用API获取用户名：

Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String,nSize As Long) As Long

Private Sub Form_Click()
    Dim StrT As String * 255
    GetUserName StrT,255
    Print StrT
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!