VB获取及更改IP地址信息

最新推荐文章于 2021-07-27 17:32:58 发布

gusup_cn

最新推荐文章于 2021-07-27 17:32:58 发布

阅读量2.9k

点赞数 4

分类专栏： 2020 文章标签：适合新手学习 vb实例更改IP IP地址

本文链接：https://blog.csdn.net/Nothva/article/details/107162489

版权

这篇博客介绍了如何使用VB6.0通过Microsoft WMI Scripting库来获取和更改IP地址，特别是切换默认网关在192.168.199.200和192.168.199.253之间的方法，适合初学者学习。

摘要由CSDN通过智能技术生成

VB6.0
需要引用Microsoft WMI Scripting

代码为了便于修改，IP未做处理
初衷（当前代码）只改默认网关
192.168.199.200和192.168.199.253之间切换

Dim pd
Dim lip
Option Explicit '这是窗体代码
Private Sub Command3_Click()
    pd = 1
    MsgBox ChangeIP("1", "255.255.255.0", "192.168.1.1", "202.98.192.67", "202.98.198.167")
End Sub

Private Sub Command4_Click()
    pd = 2

    MsgBox ChangeIP("1", "255.255.255.0", "192.168.1.1", "202.98.192.67", "202.98.198.167"