vb.net修改ip vbnet ide

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

VB 修改 IP地地址

你要问的是不是以上三项在注册表中的位置,下面提供：

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces

项下有很多句柄你可以在里边找到不同的本地连接对应的句柄，在程序里进行修改就可以了,如果找不到，可以先在本地连接属性里修改tcp/ip协议的相应设置，然后到注册表里查找相应的数据就可以定位该位置了！源码这次就不给出了，就是修改注册表，和容易，您可以使用vb自带的函数，也可以使用wsh提供的脚本函数，当然也可以使用winAPI（比较复杂，要严格定义参数类型，即缓冲区，所以简单的修改不建议使用）。

希望您的问题能尽快解决！

vb.net改端口物理地址怎么查

1、点击右侧的网络连接，在弹出的对话框中点击打开网络和共享中心。

2、在网络和共享中心界面中点击更改适配器设置。

3、进入网络连接界面，右键本地连接。

4、在弹出的菜单中选择属性。

5、在本地连接属性界面中点击配置按钮。

6、切换到高级选项卡，在属性列表中找到并点击网络地址，在右侧输入修改后的网络地址，点击确定按钮。

7、使用命令提示符，输入Ipconfig-all，可以查看修改后的物理地址。

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

做exe程序获取本机IP地址用

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

做web程序获取客户端的IP地址用

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

（200分）VB 获取本机IP和重新获取IP问题

DOS获取本机IP(括号内的为注释，输命令时别复制进去)。

方法1：arp -a (Interface:后面的就是你自己的IP地址)

方法2:ipconfig/all (IP Address后面的就是你自己的IP地址)

DOS重新获取IP

cmd /c ipconfig /release (释放IP,不执行这步下一步命令将无效)

cmd /c ipconfig /renew (重新获得IP)

上不了网或IP冲突时可以在记事本里贴入如下代码保存为如下文件名并执行：

重新获取IP.bat

@echo off

@echo 正在重新获取IP，请稍候....

cmd /c ipconfig /release nul

cmd /c ipconfig /renew nul

arp -a

@echo "Interface:后面的就是你自己的IP地址"

@echo "按任意建测试网络联通(不断跳说明网络正常)"

pause

ping -t

本程序在我的XP系统下测试通过。

在执行本程序前请不要绑定网卡IP,否则重新获取IP的二条命令无效。

-------------------------------------------------------

'VB获取本机IP

Private Sub Command1_Click()

Dim winIP As Object

Set winIP = CreateObject("MSWinsock.Winsock")

MsgBox "本机IP:" winIP.localip

End Sub

-------------------------------------------------------

'VB起用和禁用网络连接

Option Explicit

Private Const NetConnect = H31

Private Sub Command1_Click() '停用本地连接

Dim blnRelust As Boolean

'把本地连接换成你要控制的本地连接的名字

blnRelust = ExcNetLinkMenu("本地连接", "停用(B)")

'xp

If blnRelust Then

Debug.Print "停用成功"

Else

blnRelust = ExcNetLinkMenu("本地连接", "禁用(B)")

End If

If blnRelust Then

Debug.Print "停用成功"

Else

Debug.Print "停用失败"

End If

End Sub

Private Sub command2_Click() '启用本地连接

'把本地连接换成你要控制的本地连接的名字

Dim blnRelust As Boolean

blnRelust = ExcNetLinkMenu("本地连接", "启用(A)")

If blnRelust Then

Debug.Print "启用成功"

Else

Debug.Print "启用失败"

End If

End Sub

'首先引用Microsoft Shell Controls And Automation

'先找到“网络连接”这个虚拟文件夹，然后找到要控制的本地连接对应的folderitem，然后枚举verb，找到需要的verb后，调用verb的DoIt方法

Private Function ExcNetLinkMenu(ByVal AdapterName As String, ByVal MenuName As String) As Boolean

Dim objShell As New Shell32.Shell

Dim objFolder As Shell32.Folder

Dim objFolderItem As Shell32.FolderItem

Dim objShellFolderItem As ShellFolderItem

Dim objFolderItemVerb As Shell32.FolderItemVerb

Dim blnRelust As Boolean

On Error Resume Next

Set objFolder = objShell.NameSpace(NetConnect)

If ObjPtr(objFolder) = 0 Then

ExcNetLinkMenu = False

GoTo Exitfunction

End If

For Each objFolderItem In objFolder.Items '遍历网络连接文件夹集合

If objFolderItem.Name = AdapterName Then

Set objShellFolderItem = objFolderItem

blnRelust = True

Exit For

End If

If blnRelust = False Then

ExcNetLinkMenu = False

GoTo Exitfunction

End If

For Each objFolderItemVerb In objShellFolderItem.Verbs '遍历本地连接的右键菜单

If objFolderItemVerb.Name = MenuName Then

objFolderItemVerb.DoIt

ExcNetLinkMenu = True

Exit For

End If

If blnRelust = False Then ExcNetLinkMenu = False

Exitfunction:

Set objShell = Nothing

Set objFolder = Nothing

Set objFolderItem = Nothing

Set objShellFolderItem = Nothing

Set objFolderItemVerb = Nothing

End Function

用VB编写程序，使之可以修改IP

Private Sub Form_Load()

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

NextEnd Function

vb.net怎样设置ie浏览器的代理服务器地址

建议vb.net修改ip你使用注册表vb.net修改ip的API进行修改

封装两个NET函数给vb.net修改ip你

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和vbnet ide的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

正文

VB 修改 IP地地址

vb.net改端口物理地址怎么查

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

（200分）VB 获取本机IP和重新获取IP问题

用VB编写程序，使之可以修改IP

vb.net怎样设置ie浏览器的代理服务器地址

相关阅读

朵唯a8手机怎么分屏，朵唯手机怎么分身微信

新媒体如何助力少儿培训，让新媒体儿童健康成长

区块链加快数据保护，区块链保护利益

phpcms评论插件，php实现留言板

macbook怎么读硬盘，macbookpro硬盘读写

10606g显卡怎么鉴别，1060显存怎么看

苹果手机怎么带框截图，苹果手机怎么截边框

华为贵州服务器云空间下载，华为云贵阳

目录[+]