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

ceb 2007-12-07 05:37:25
如何修改HOST文件内容?
比如修改
127.0.0.1 localhost

修改这个127.0.0.1
但不修改其他东西
...全文
154 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
zzyong00 2007-12-07
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
回复
很简单,HOST文件只是一个去掉后缀名的TXT文件,你按照读写TXT文本文件的方法,先将文件读到一个字符串变量内,再用REPLACE函数就可以替换掉指定内容了,当然,还可以在中间或后面写入你所需要的内容。

HOST文件的作用就是一个本地DNS解析,真正起作用的也就是后面的那几行内容,开头的那一段只是注释而已。
127.0.0.1 localhost
指定本机,这一行不要轻易修改它。
但是你可以在后面加上其他内容,比如:
127.0.0.1 localhost
220.181.28.51 WWW.163.COM
因此你完全可以按照你的意图直接写一个HOST文件来替换系统原来的那个。
回复
ceb 2007-12-07
没人?
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7450

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告