vb修改ip代碼

在菜單中的【工程】—【引用】下，添加“Microsoft WMI Scripting V1.1 Library”，然后在Form1窗體上添加1個(gè)Combo1、Text1(0)、Text1(1)、Text1(2)、Text1(3)和Command1、Command2，代碼如下：

成都創(chuàng)新互聯(lián)是專業(yè)的網(wǎng)站建設(shè)公司,提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)站設(shè)計(jì)等網(wǎng)站開(kāi)發(fā)一體化解決方案;包括H5網(wǎng)站設(shè)計(jì),小程序設(shè)計(jì),網(wǎng)站定制,企業(yè)網(wǎng)站建設(shè),購(gòu)物商城網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,建網(wǎng)站,PHP網(wǎng)站建設(shè),軟件開(kāi)發(fā)，軟文發(fā)布平臺(tái)，網(wǎng)站營(yíng)銷。歡迎做網(wǎng)站的企業(yè)前來(lái)合作洽談,成都創(chuàng)新互聯(lián)將竭誠(chéng)為您服務(wù)!

Option Explicit

Dim objSWbemServices As SWbemServices

Dim objSWbemObjectSet As SWbemObjectSet

Dim objSWbemObject As SWbemObject

'Text1(0)為IP地址、Text1(1)為子網(wǎng)掩碼、Text1(2)為缺省網(wǎng)關(guān)、Text1(3)為DNS

Private Sub Form_Load()

Set objSWbemServices = GetObject("winmgmts:")

Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each objSWbemObject In objSWbemObjectSet

Combo1.AddItem objSWbemObject.Description '添加本機(jī)上已經(jīng)安裝了TCP/IP協(xié)議的網(wǎng)卡

Next

Combo1.Text = Combo1.List(0)

Combo1.ListIndex = 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set objSWbemServices = Nothing

Set objSWbemObjectSet = Nothing

Set objSWbemObject = Nothing

End Sub

'當(dāng)選擇了網(wǎng)卡后，顯示當(dāng)前所選網(wǎng)卡的設(shè)置

Private Sub Combo1_Click()

Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" Combo1.Text "'")

For Each objSWbemObject In objSWbemObjectSet

If objSWbemObject.DHCPEnabled Then

Text1(0).Text = ""

Text1(1).Text = ""

Text1(2).Text = ""

If IsNull(objSWbemObject.DNSServerSearchOrder) Then

Text1(3).Text = ""

Else

Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)

End If

Else

Text1(0).Text = objSWbemObject.IPAddress(0)

Text1(1).Text = objSWbemObject.IPSubnet(0)

Text1(2).Text = objSWbemObject.DefaultIPGateway(0)

Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)

End If

Next

End Sub

'設(shè)置網(wǎng)卡的IP地址、子網(wǎng)掩碼、缺省網(wǎng)關(guān)和DNS

Private Sub Command1_Click()

Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" Combo1.Text "'")

For Each objSWbemObject In objSWbemObjectSet

objSWbemObject.EnableStatic Array(Text1(0).Text), Array(Text1(1).Text)

objSWbemObject.SetGateways Array(Text1(2).Text)

objSWbemObject.SetDNSServerSearchOrder Array(Text1(3).Text)

Next

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

vb.net 如何獲取指定IP的網(wǎng)卡地址MAC

Public Function EnumNetworkAdapters() As String

Try

Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()

Dim mo As New System.Management.ManagementObject

For Each mo In queryCollection

If IsDBNull(mo.Item("Description")) = False Then

EnumNetworkAdapters = mo.Item("Description") "|||"

End If

If IsDBNull(mo.Item("macaddress")) = False Then

If mo.Item("macaddress") "" Then

EnumNetworkAdapters = mo.Item("macaddress") "|||"

End If

End If

If IsDBNull(mo.Item("IPAddress")) = False Then

Dim temp As String

temp = Join(mo.Item("IPAddress"), ".")

If temp "" Then

EnumNetworkAdapters = temp "|||"

End If

End If

Next

Catch err AS Exception

EnumNetworkAdapters = err.Message err.StackTrace

End Try

End Function

請(qǐng)問(wèn)怎么用VB修改WIN7系統(tǒng)IP地址、子網(wǎng)掩碼、網(wǎng)關(guān)、DNS服務(wù)器地址

如電腦使用Win7系統(tǒng)，可按以下方法設(shè)置DNS：您右鍵點(diǎn)擊電腦桌面的“網(wǎng)絡(luò)”圖標(biāo) ，選擇“屬性” ＞選擇“控制面板” ＞在“網(wǎng)絡(luò)和共享中心”中可看到當(dāng)前的網(wǎng)絡(luò)狀況，點(diǎn)擊左邊的“更改適配器設(shè)置” ＞右鍵單擊“本地連接”，選擇“屬性” ＞選擇“internet協(xié)議版本4（TCP/IPv4）”，點(diǎn)擊“屬性” ＞選擇“使用下列DNS服務(wù)器地址”，輸入“首選”及“備用”DNS地址，最后點(diǎn)擊“確認(rèn)”即可。

溫馨提示：每個(gè)地市的DNS地址參數(shù)不同，建議您可聯(lián)系人工客服或前往營(yíng)業(yè)廳進(jìn)行咨詢了解。

如何在vb，net用程序修改ip地址

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

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

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

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

如何設(shè)置電腦無(wú)線網(wǎng)卡IP地址？

設(shè)置方法：

1.點(diǎn)擊電腦左下角“開(kāi)始”，接著點(diǎn)擊開(kāi)始界面右欄出現(xiàn)的“控制面板”

2.在控制面板界面點(diǎn)擊選擇“網(wǎng)絡(luò)和internet”。

3.接著點(diǎn)擊選擇“網(wǎng)絡(luò)和共享中心”。

4.在新的界面點(diǎn)擊選擇左側(cè)的“更改適配器設(shè)置”。

5.找到無(wú)線網(wǎng)絡(luò)連接后，鼠標(biāo)右鍵單擊選擇“屬性”。

6.在屬性界面的“網(wǎng)絡(luò)”選項(xiàng)卡內(nèi)勾選“internet協(xié)議版本4”，接著繼續(xù)點(diǎn)擊右下角的“屬性”。

7.在“常規(guī)”選項(xiàng)卡內(nèi)勾選“自動(dòng)獲得IP地址”與“自動(dòng)獲得DNS服務(wù)器地址”，或者自行設(shè)置地址，然后點(diǎn)擊”確定”即可。

本文名稱：vb.net設(shè)置網(wǎng)卡ip的簡(jiǎn)單介紹
網(wǎng)站網(wǎng)址：http://chinadenli.net/article13/dsigegs.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、電子商務(wù)、網(wǎng)站改版、微信公眾號(hào)、域名注冊(cè)、全網(wǎng)營(yíng)銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)