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

搜索热词

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

最简单的方法：

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

获取计算机名：

Text1.text = VBA.Environ("computername")

获取用户名：

text1.text=VBA.Environ("username")

用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

总结

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。