真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

vb.net獲取電腦名 vb獲取計算機名

VB.NET2010 怎么獲取IP

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

vb.net 獲取局域網(wǎng)計算機的當前用戶名和計算機型號等信息

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ā)回本機就可以吧

'取計算機型號暫時不會

vb.net的獲取計算機名稱問題

My功能可以替代很多API,因為CLR已經(jīng)封裝了大量系統(tǒng)函數(shù),不建議使用API,那樣會限制程序的可移植性。(微軟聲稱.NET FRAMEWORK是跨平臺的,但是迄今都沒看見在Linux上的.NET 程序)

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


文章題目:vb.net獲取電腦名 vb獲取計算機名
文章位置:http://weahome.cn/article/dodjdjs.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部