因为hosts文件是纯文本文件，所以代码可以这样写：

Dim st As String, zt As String, fName as string
fName = Environ("SystemRoot") & "\System32\drivers\etc\hosts"

Open fName For Input As #1
Do Until EOF(1)
  Line Input #1, zt
  st = st & zt & vbCrLf
Loop
Close

st = st & "127.0.0.1 www.baidu.com"
SetAttr fName, 0 '设置hosts文件为常规属性
Open fName For Output As #1
Print #1, st
Close
SetAttr fName, 1 '设置hosts文件为只读属性

在VFP里,一个函数StrToFile( )就解决了.

不知道VB里面有没有这个函数.

fName = Environ("SystemRoot") & "\System32\drivers\etc\hosts"
open fName for binary as #1
a$=input$(64000,1)+"127.0.0.1   www.baidu.com"
put #1,1,a$
close #1

,直接用Append就可以了