重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
创新互联专注为客户提供全方位的互联网综合服务,包含不限于做网站、成都网站制作、海盐网络推广、重庆小程序开发公司、海盐网络营销、海盐企业策划、海盐品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供海盐建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
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
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会
VS中的VB就是vb.net
我也是从VB6.0转到vb.net的,刚转了一年。如果楼主用VS2012,不建议再看.net2003了,.net 4以前的版本都是有较大区别的,可以直接上当当网搜索vb.net,销量前几位的书都可以看。
我转过来也没怎么看书,只是觉得vb.net比vb6好用了,碰到不会的地方百度下,或看看msdn,很容易上手。不是高手,经验仅供参考,呵呵
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就驻留在内存中特定的写保护区域,使别的程序无法占用这个内存区域。
1.获取当前电脑名:System.Net.Dns.GetHostName()
2.根据电脑名取出全部IP地址:System.Net.Dns.Resolve(电脑名).AddressList
或者 System.Net.Dns.GetHostByName(电脑名).AddressList
3.根据IP地址取出电脑名:System.Net.Dns.Resolve(IP地址).HostName