VB 如何替换HOST文件中的字符？

Question

如何修改HOST文件内容？
比如修改
127.0.0.1       localhost修改这个127.0.0.1
但不修改其他东西

Answer 1

很简单，HOST文件只是一个去掉后缀名的TXT文件，你按照读写TXT文本文件的方法，先将文件读到一个字符串变量内，再用REPLACE函数就可以替换掉指定内容了，当然，还可以在中间或后面写入你所需要的内容。HOST文件的作用就是一个本地DNS解析，真正起作用的也就是后面的那几行内容，开头的那一段只是注释而已。
127.0.0.1               localhost 
指定本机，这一行不要轻易修改它。
但是你可以在后面加上其他内容，比如：
127.0.0.1       localhost 
220.181.28.51   WWW.163.COM
因此你完全可以按照你的意图直接写一个HOST文件来替换系统原来的那个。

Answer 2

Dim strcon As String
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Input As #1
strcon = Input(LOF(1), 1)
Close #1
strcon = Replace(strcon, "127.0.0.1 ", "其它的IP")
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1
Print #1, strcon
Close #1