vb.net 獲取局域網(wǎng)計(jì)算機(jī)的當(dāng)前用戶名和計(jì)算機(jī)型號(hào)等信息

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

專(zhuān)注于為中小企業(yè)提供成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)莊河免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了1000多家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

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'計(jì)算機(jī)名稱(chēng)

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘當(dāng)前用戶名稱(chēng)

End Sub

'用這種方法在遠(yuǎn)程獲得再發(fā)回本機(jī)就可以吧

'取計(jì)算機(jī)型號(hào)暫時(shí)不會(huì)

請(qǐng)問(wèn)在VB.NET中怎樣獲取本機(jī)IP？

Dim IPAdress As System.Net.IPAddress

HostName = System.Net.Dns.GetHostName '獲得本機(jī)的機(jī)器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '獲得本機(jī)的IP

Me.TextBox1.Text = HostName '本機(jī)機(jī)器名

Me.TextBox2.Text = IPAdress.ToString '本機(jī)的IP

VB.NET怎么獲取本機(jī)的數(shù)據(jù)庫(kù)

這里以O(shè)ERACLE數(shù)據(jù)庫(kù)為例 ：

Provider=MSDAORA;data source =主機(jī)名:1521/ORCL;User ID=system;Password=ORACLE;Unicode=True

Dim myConn As Data.OleDb.OleDbConnection

myConn = New System.Data.OleDb.OleDbConnection()

myConn.ConnectionString = strCon

myConn.Open()

求大神指點(diǎn)vb.net 怎么判斷 網(wǎng)絡(luò)是否連接 和取本機(jī)局域網(wǎng)IP和互聯(lián)網(wǎng)IP

你這段代碼可以獲得該主機(jī)名下的所有ip，每個(gè)ip地址都是有類(lèi)型簇的，可以區(qū)別本地地址和網(wǎng)絡(luò)地址、ip6地址。

你獲取索引為0的ip，不一定是正確的網(wǎng)絡(luò)地址，它有時(shí)順序在中間，在后面。

應(yīng)該獲取所有ip，再通過(guò)ip地址簇類(lèi)型區(qū)分

判斷連接本身有一個(gè)函數(shù)，不過(guò)有時(shí)沒(méi)聯(lián)網(wǎng)也是真。

可以用ping，ping百度、ping訪問(wèn)速度快、不經(jīng)常維護(hù)斷線的網(wǎng)絡(luò)主機(jī)。

vb.net如何獲取IP地址?

做exe程序獲取本機(jī)IP地址用

System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList

做web程序獲取客戶端的IP地址用

HttpContext.Current.Request.ServerVariables（"REMOTE_ADDR"]）

vb.net 怎么獲取客戶端ip地址？

你最好可以換臺(tái)電腦訪問(wèn)網(wǎng)址看獲取IP地址狀況。

如果你測(cè)試訪問(wèn)的時(shí)候,使用的是 localhost 進(jìn)行訪問(wèn)的,那么服務(wù)器端獲得的也就是127.0.0.1，因?yàn)閘ocalhost是一個(gè)環(huán)路地址,特殊的.如果你是通過(guò)你的ip地址進(jìn)行訪問(wèn)的,那么獲得的IP地址就會(huì)是正確的了. 要通過(guò)自己本地的IP進(jìn)行訪問(wèn),在控制面板的網(wǎng)絡(luò)連接里找到本地連接,查看它的屬性,并找到"詳細(xì)信息"按鈕,點(diǎn)擊后彈出的對(duì)話框中IPV4地址就是本地地址.或打開(kāi)命令行,輸入 ipconfig /all 即可找到本地地址.在瀏覽器中通過(guò)這個(gè)IP地址訪問(wèn),就不會(huì)是127.0.0.1了.