Question

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

如何用VB编写一个修改IP的软件？
只需要一点就可以修改IP，DNS和网关
或者如何做一个一点就可以运行一个BAT的，但是要求BAT内嵌在EXE里，BAT的内容不会被看见
没明白，具体点成吗？我要GUI的程序啊

Answer 1

BAT就是文本文件啊，扩展名不同而已
所以不需要内嵌，直接把BAT的内容当文本文件写出来就好了
然后用shell执行BAT文件，再把BAT文件删除就是了

Shell "cmd.exe /c 你的路径\你的BAT.bat"
如果路径或文件名有空格或为长文件名，则改为
Shell "cmd.exe /c ""你的路径和文件名.bat"""

Answer 2

晕 你还不明白？
你画一个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(strGateway, strGatewaymetric)
If errEnable = 0 Then
CfgIP = 1 '设置成功返回1
Else
CfgIP = 0 '否则返回0
End If
Next

End Function
Sub CfgDNS(ByVal StrDns As String)
On Error Resume Next
Const FULL_DNS_REGISTRATION = True
Const DOMAIN_DNS_REGISTRATION = False
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard In colNetCards
objNetCard.SetDynamicDNSRegistration FULL_DNS_REGISTRATION, DOMAIN_DNS_REGISTRATION
Next
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
strHostName = "fabrikam1"
arrDNSSuffixes = Array("hr.fabrikam.com", "research.fabrikam.com")
objNetworkSettings.EnableDNS strHostName, , , arrDNSSuffixes
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard In colNetCards
arrDNSServers = Array(StrDns) '主DSN和备用DNS StrDns="xxx.xxx.xxx.xxx,xxx.xxx.xxx.xxx"
objNetCard.SetDNSServerSearchOrder (arrDNSServers)
Next

End Sub