如何用VB编写一个修改IP的软件？

来源：百度知道 编辑：UC知道 时间：2024/05/14 14:01:27
如何用VB编写一个修改IP的软件？
只需要一点就可以修改IP，DNS和网关
或者如何做一个一点就可以运行一个BAT的，但是要求BAT内嵌在EXE里，BAT的内容不会被看见
没明白，具体点成吗？我要GUI的程序啊

晕 你还不明白？
你画一个Textbox 名称为Text1 让用户输PAddress
Text2 输Submask Text3输Gateway
调用CfgIP text1.text,text2.text,text3,text 这时就修改IP配置了
也可以Ret&=CfgIP(Text1.text,text2.text,text3,text）
Ret返回1 设置成功 0修改失败

这个是调用WMI 脚本 不用BAT

Function CfgIP(ByVal IPaddress As String, ByVal Submask As String, ByVal Gateway As String) As Long
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(IPaddress) ' 把你要设的IP填在这
strSubnetMask = Array(Submask) '子网掩码
strGateway = Array(Gateway) '网关
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(