锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net计算机名 vb做的修改计算机名加域

计算机IT技术

vb.net 获取局域网计算机的当前用户名和计算机型号等信息Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub GetName()
Dim sJM As String
Dim sMC As String
Dim sIP As String
Dim s As String
s = String(128, Chr(0))
GetComputerName s, Len(s)
s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))
sJM = s'计算机名称
s = String(128, Chr(0))
GetUserName s, Len(s)
s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))
sMC = s‘当前用户名称
End Sub
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会
vb.net的获取计算机名称问题My功能可以替代很多API，因为CLR已经封装vb.net计算机名了大量系统函数，不建议使用API，那样会限制程序vb.net计算机名的可移植性 。（微软声称.NET FRAMEWORK是跨平台的，但是迄今都没看见在Linux上的.NET 程序）
多翻翻MSDN就知道东西怎么用了
VB如果获取电脑的名称VB获取计算机名称的方法如下：
说明：计算机名就是打开控制面板-系统-网络标识-完整的计算机名称
Private Declare Function GetComputerName Lib "kernel32"
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim Name As String, Length As Long
Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = Name
End Sub
Private Sub Form_Load()
End Sub
注意：该方法是通过kernel32.dll来获取的 ， chr(0)返回的就是计算机名 。
kernel32.dll是Windows9x/Me中非常重要的32位动态链接库文件，属于内核级文件 。它控制着系统的内存管理、数据的输入输出操作和中断处理，当Windows启动时，kernel32.dll就驻留在内存中特定的写保护区域，使别的程序无法占用这个内存区域 。
【vb.net计算机名 vb做的修改计算机名加域】vb.net计算机名的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb做的修改计算机名加域、vb.net计算机名的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：新注册公司小程序，新注册的微信号没有小程序

    下一篇：私信服务器怎么开通