vb点虐获取计算机名 vbnet获取当前目录下文件名

vb点虐获取局域网计算机的当前用户名和计算机型号等信息

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

创新互联公司专注于企业成都全网营销、网站重做改版、犍为网站定制设计、自适应品牌网站建设、html5、商城网站开发、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为犍为等各大城市提供网站开发制作服务。

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

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会

My功能可以替代很多API，因为CLR已经封装了大量系统函数，不建议使用API，那样会限制程序的可移植性。（微软声称.NET FRAMEWORK是跨平台的，但是迄今都没看见在Linux上的.NET 程序）

多翻翻MSDN就知道东西怎么用了

大部分API在vb2008下仍然可以使用，但参数类型定义有所变化；有一些API已经无法正常使用，那些API改成点虐的对应属性，可以去微软的网站看一下。

getcomputername在vb点虐下已经无法正常使用，VB2008提供更简单的方法来获得计算机名：

my点抗 puter.name

x = My.Computer.Name

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

网站名称：vb点虐获取计算机名 vbnet获取当前目录下文件名
文章起源：http://scjbc.cn/article/ddecdhg.html