許多人應該被債務或金錢上的問題壓得喘不過氣

往往走上不好的方向高利貸之類的..

今天分享一個好資訊給大家^^

免費諮詢專業人員

最快的時間解決你所遇到問題

解決你個人困難幫助你的問題

 

http://goo.gl/lKlJKd

 

 

 

 

標題:

用vb修改本機的IP屬性

發問:

用vb修改本機的IP屬性~用VB而不是用VB.asp等等

最佳解答:

'網路上找到的利用WMI Function ChangeIP$(IP$, NM$, Optional GW$, Optional MDNS$, Optional sDNS$) Dim ObjS As Object, cNetA As Object, oNA As Object, sA, sS, sGW, sG, sD Dim eE&, eG&, eD& Set ObjS = GetObject("winmgmts:\\.\root\cimv2") Set cNetA = ObjS.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") sA = Array(IP) 'IP位址 sS = Array(NM) '子網路遮罩 If sGW <> "" Then sGW = Array(GW) '閘道 If MDNS <> "" And sDNS <> "" Then sD = Array(MDNS, sDNS) '主DNS各備DNS sG = Array(1) For Each oNA In cNetA eE = oNA.ENABLESTATIC(sA, sS) eG = oNA.SetGateways(sGW, sG) eD = oNA.SetDNSServerSearchOrder(sD) If eE = 0 And eG = 0 And eD = 0 Then ChangeIP = "設置成功" Else If eE = 0 Then ChangeIP = "IP位址和子網路遮罩設置成功, " Else ChangeIP = "IP位址或子網路遮罩設置失敗, " End If If eG = 0 Then ChangeIP = ChangeIP & "默認閘道設置成功, " Else ChangeIP = ChangeIP & "默認閘道設置失敗, " End If If eD = 0 Then ChangeIP = ChangeIP & "DNS設置成功" Else ChangeIP = ChangeIP & "DNS設置失敗" End If End If Next Set ObjS = Nothing Set cNetA = Nothing End Function Private Sub Command1_Click() MsgBox ChangeIP("192.168.1.60", "255.255.255.0") End Sub

其他解答:

53FFBB2992CB3FA6