1.獲取當前電腦名:System.Net.Dns.GetHostName()
創(chuàng)新互聯(lián)建站致力于成都網(wǎng)站設計、成都做網(wǎng)站,成都網(wǎng)站設計,集團網(wǎng)站建設等服務標準化,推過標準化降低中小企業(yè)的建站的成本,并持續(xù)提升建站的定制化服務水平進行質(zhì)量交付,讓企業(yè)網(wǎng)站從市場競爭中脫穎而出。 選擇創(chuàng)新互聯(lián)建站,就選擇了安全、穩(wěn)定、美觀的網(wǎng)站建設服務!
2.根據(jù)電腦名取出全部IP地址:System.Net.Dns.Resolve(電腦名).AddressList
或者 System.Net.Dns.GetHostByName(電腦名).AddressList
3.根據(jù)IP地址取出電腦名:System.Net.Dns.Resolve(IP地址).HostName
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
'用這種方法在遠程獲得再發(fā)回本機就可以吧
'取計算機型號暫時不會
My功能可以替代很多API,因為CLR已經(jīng)封裝了大量系統(tǒng)函數(shù),不建議使用API,那樣會限制程序的可移植性。(微軟聲稱.NET FRAMEWORK是跨平臺的,但是迄今都沒看見在Linux上的.NET 程序)
多翻翻MSDN就知道東西怎么用了