如何用VB来修改hosts

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:05:32
open hosts for output/Append as #1,修改出来的hosts文件是空的。

Private Sub Command2_Click() '写入，覆盖原来的
Open "c:\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command3_Click() '写入，写入原来的后面
Open "c:\1.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
'你这个hosts改成路径
dim hosts
hosts="c:\1.txt"
Private Sub Command2_Click() '写入，覆盖原来的
Open hosts For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command3_Click() '写入，写入原来的后面
Open hosts For Append As #1
Print #1, Text1.Text
Close #1
End Sub

Open "C:\Windows\System32\drivers\etc\hosts" For Append As #1
Print #1, "你要修改的HOSTS内容"
Close #1