［帮个小忙］如何用VB调用系统中的设置IP的对话框？

2008-08-26 08:56:56 118 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

cocos creator接入微信登陆sdk ios篇 cocos creator接入微信登陆sdk ios篇背景已经在Android篇里面交代过了，有兴趣的朋友可以再看看Android篇步骤去微信开放平台下载ios平台所需要的sdk 在“info”标签栏的“URL type“添加“URL scheme”为你所注册的应用程序id 在“info”标签栏的“LSApplicationQueriesSchemes“添加weixin 将SDK文件中... 阅读详情

就是本地连接的“属性”，然后“TCP/IP”属性的那个设置IP的对话框，怎么调用？

如果不能调用，怎么设置IP呢？？？

...全文

从球谐函数到哈希编码：Instant-NGP如何重构NeRF的数学基础本文深入解析了Instant-NGP如何通过多分辨率哈希编码重构NeRF的数学基础，显著提升训练速度和渲染效率。对比传统球谐函数，哈希编码在计算复杂度、频率适应性和内存访问效率上具有明显优势，为实时神经渲染技术开辟了新方向。阅读详情

Gutta

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

onhi 2008-08-29

打赏
举报

楼上的可以看看

fvflove 2008-08-26

打赏
举报



Function ModifyIP()

  

    strComputer = "."

 

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

 

   Set colNetAdapters = objWMIServiceGL.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")

 

   

    For Each objNetAdapter In colNetAdapters



        strIPAddress = Array("192.168.1.107") 'IP地址

 

        strSubnetMask = Array("255.255.255.0") '子网掩码

 

        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

 

      Exit For '只修改第一个网卡的设置

    Next

End Function

以上能更改IP地址:

以上代码段参考:
http://www.qqread.com/vb/o415390.html



　Function ModifyIP（） strComputer = "."

　

　　Set objWMIService = GetObject（"winmgmts：\\" & strComputer & "\root\cimv2"）

　

　　Set objSWbemObjectSet = objSWbemServices.ExecQuery（"Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'"）

　

　　For Each objNetAdapter In colNetAdapters sip = objNetAdapter.IPaddress（0）

　

　　If Option1.Value = True Then 'DHCP is enabled

　

　　objNetAdapter.EnableDHCP

　

　　errDNS = objNetAdapter.SetDNSServerSearchOrder（）

　

　　Else strIPAddress = Array（Text1.Text）

　

　　strSubnetMask = Array（Text2.Text）

　

　　strGateway = Array（Text3.Text）

　

　　strGatewaymetric = Array（1）

　

　　StrDns = Array（Text4.Text， Text5.Text）

　

　　errEnable = objNetAdapter.EnableStatic（strIPAddress， strSubnetMask）

　

　　errGateways = objNetAdapter.SetGateways（strGateway， strGatewaymetric）

　

　　errDNS = objNetAdapter.SetDNSServerSearchOrder（StrDns）

　

　　'Exit For '只修改第一个网卡的设置

　

　　End If Next End Function

zzyong00 2008-08-26

打赏
举报

用wmi可以轻松设置IP
当然，也可以netsh(cmd 命令)

［帮个小忙］如何用VB调用系统中的设置IP的对话框？

相关推荐