用VB編寫程序，使之可以修改IP

Private Sub Form_Load()

公司主營業(yè)務：網站設計制作、網站設計、移動網站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現互聯網宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯推出黎平免費做網站回饋大家。

Debug.Print ChangeIP("192.168.1.200", "255.255.255.0", "", "", "")

End Sub Public Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String

'返回值說明:返回一個設置的中文說明.

Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask

Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array(IP) 'ip地址

strSubnetMask = Array(NM) '子網掩碼

strGateway = Array(GW) '網關

strDNS = Array(MDNS, SDNS) '主DNS各備DNS

strGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)

If errEnable = 0 And errGateways = 0 And errDNS = 0 Then

ChangeIP = "設置成功"

Else

If errEnable = 0 Then

ChangeIP = "IP地址和子網掩碼設置成功, "

Else

ChangeIP = "IP地址或子網掩碼設置失敗, "

End If

If errGateways = 0 Then

ChangeIP = ChangeIP "默認網關設置成功, "

Else

ChangeIP = ChangeIP "默認網關設置失敗, "

End If

If errDNS = 0 Then

ChangeIP = ChangeIP "DNS設置成功"

Else

ChangeIP = ChangeIP "DNS設置失敗"

End If

End If

NextEnd Function

VB.NET2010 怎么獲取IP

1.獲取當前電腦名：System.Net.Dns.GetHostName()

2.根據電腦名取出全部IP地址：System.Net.Dns.Resolve(電腦名).AddressList

或者 System.Net.Dns.GetHostByName(電腦名).AddressList

3.根據IP地址取出電腦名：System.Net.Dns.Resolve(IP地址).HostName

VB.NET的TCP/IP協(xié)議 怎么弄

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

vb.net TCP協(xié)議服務端ip怎么寫才能使客戶端能通過公網連接進來？

需要出口設備進行映射內部地址；或使用打洞技術穿透NAT,但使用TCP打洞非常困難。

參考

穿透NAT是非常困難的，因為NAT的過程中在出口路由器上的Port已經不是你定義的iPort了，具體是多少也不固定

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

做exe程序獲取本機IP地址用

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

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

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

vb.net怎樣設置ie瀏覽器的代理服務器地址

建議你使用注冊表的API進行修改

封裝兩個NET函數給你

private?string?GetReg(string?RegPath)??取得注冊表項內容

{

string?str="";

RegistryKey?hkml?=?Registry.LocalMachine;?

RegistryKey?software?=?hkml.OpenSubKey("SOFTWARE",true);?

RegistryKey?aimdir?=?software.OpenSubKey("krabs",true);

if?(aimdir?!=?null)

{

if?(aimdir.GetValue(RegPath)?!=?null)

str?=?aimdir.GetValue(RegPath).ToString();

if?(str?!=?null)

return?str;

return?null;

}

return?null;

}

private?bool?SetReg(string?RegPath,string?Data)??//設置注冊表內容

{

RegistryKey?reg?=?Registry.LocalMachine;

RegistryKey?software?=?reg.OpenSubKey("SOFTWARE",?true);

RegistryKey?aimdir1?=?software.CreateSubKey("krabs");

if?(aimdir1?==?null)

return?false;

aimdir1.SetValue(RegPath,?Data);

return?true;

}

分享文章：vb.net設置ip,Vb Net
網站鏈接：http://chinadenli.net/article0/hecoio.html

成都網站建設公司_創(chuàng)新互聯，為您提供做網站、軟件開發(fā)、微信公眾號、品牌網站建設、云服務器、網站維護

廣告

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