哪位知道如何获得和修改本机的ip地址，不用vb也行，能给多少给多少分！

2002-06-06 09:57:53 275 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb实现IP设置这些天总是带着笔记本在家/单位/客户等等几个地方跑来跑去的，于是在各个地方上网都是要重新设置的，有时候有线，有时候无线。唉，昨天我终于爆发了，再也受不了这么没有尽头的折磨了。于是我又用vb写了一个简单的IP设置转换器。（我已经上传，地址：http://download.csdn.net/source/532464 看到有人说我的共享有毒，让我很是诧异。我用的系统是卡巴斯基7，我是没有查出毒来，如阅读详情

哪位知道如何获得和修改本机的ip地址？

...全文

vb读取计算机mac地址,取得本机所有网卡(网络连接)的MAC地址(VB6.0代码) Option Explicit'*************************************************************************'**模块名：ModGetPhysicalAddress'**说明：取得本机所有网卡的MAC地址'**创建人：嗷嗷叫的老马'**日期：2010年09月28日'**备注: 紫水晶工作室版权所... 阅读详情

iwindy

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

孙小雄 2002-06-06

打赏
举报

我查了有关资料

首先你必须是 win2000 pk2

DWORD AddIPAddress(
IPAddr Address, // IP address to add
IPMask IpMask, // subnet mask for IP address
DWORD IfIndex, // index of adapter
PULONG NTEContext, // Net Table Entry context
PULONG NTEInstance // Net Table Entry Instance
);
Parameters
Address
[in] Specifies the IP address to add to the adapter.
IpMask
[in] Specifies the subnet mask for the IP address.
IfIndex
[in] Specifies the adapter to which to add the address.
NTEContext
[out] Pointer to a ULONG variable that points to the Net Table Entry (NTE) context for this IP address. The caller can later use this context in a call to DeleteIPAddress.
NTEInstance
[out] Pointer to a ULONG variable that points to the NTE instance for this IP address.

DWORD GetAdapterIndex(
LPWSTR AdapterName, // name of the adapter
PULONG IfIndex // index of the adapter
);
Parameters
AdapterName
[in] Pointer to a Unicode string that specifies the name of the adapter.
IfIndex
[out] Pointer to a ULONG variable that points to the index of the adapter.

DWORD DeleteIPAddress(
ULONG NTEContext // net table entry context
);
Parameters
NTEContext
[in] Specifies the Net Table Entry (NTE) context for the IP address. This context was returned by the previous call to AddIPAddress.

iwindy 2002-06-06

打赏
举报

winsock控件的localip属性可以修改ip地址吗？

kwq_cn 2002-06-06

打赏
举报

最简单的方法：用winsock控件的localip属性

iwindy 2002-06-06

打赏
举报

真的没人会吗？不会吧！

acptvb 2002-06-06

打赏
举报

感谢您使用微软产品。

您可以使用Windows Sockets的API函数GetHostByName通过本机的Host Name获得包含本机ip地址的Sockets信息，为了获得本机的标准Host Name，您还需要调用API函数GetHostName。

以下链接提供了详细的示例代码。
Q160215 HOWTO: Obtain the Host IP Address Using Windows Sockets
http://support.microsoft.com/support/kb/articles/q160/2/15.asp

您可以用wmi方式修改本机的IP地址，如下例:

Private Sub Command1_Click()

WQL = "Select * From Win32_NetworkAdapter Where AdapterType='Ethernet 802.3'"

Set NetworkAdapters = GetObject("winmgmts:").ExecQuery(WQL)

ipaddr = Array("202.60.115.7")
subnet = Array("255.255.255.0")

For Each Adapter In NetworkAdapters

Dim RetVal

WQL = "winmgmts:Win32_NetworkAdapterConfiguration=" & Adapter.DeviceID
Set NIC = GetObject(WQL)

RetVal = NIC.EnableStatic(ipaddr, subnet)

If RetVal = 0 Then
MsgBox "Static IP Enabled"
Else
MsgBox "Static IP Failed"
End If
Next
End Sub

详细信息请参考：
EnableStatic Method in Class Win32_NetworkAdapterConfiguration
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/enablestatic_method_in_class_win32_networkadapterconfiguration.asp

- 微软全球技术中心 VB技术支持

本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

哪位知道如何获得和修改本机的ip地址，不用vb也行，能给多少给多少分！

相关推荐