看看
>>如何用VB6实现将 本机 DNS www.abc.com 的IP解析改为 127.0.0.1
请问你是要把本机对 www.abc.com 的 IP 解析结果变成 127.0.0.1 么?
如果是,改 hosts 文件,否则改你的 网卡设置的 DNS 为某个恰当的 DNS Server——当然,在这个 DNS Server 上必须把 www.abc.com 解析到 127.0.0.1,不会有 DNS 这么做,除非是你自己设置的
如果不是,那你的意思是本机就是 DNS Server?你想用 VB 控制你的 DNS Server?不妨看看 DNS 协议。
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("192.168.1.100", "192.168.1.200")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next