修改HOST 文件 VB源码

温总

修改HOST 文件 VB源码
画一个文本框与command
在command1的单击事件中写入以下代码；

Dim FileNumber
  Dim strOuttmpFile As String            '定义输出文件的名称
  Dim strPrinteTxt As String            '定义输出文件的内容

  strOuttmpFile = Environ("windir") & "\system32\drivers\etc\hosts"
  strPrinteTxt = Text1.Text

On Error Resume Next
  FileNumber = FreeFile                          '打开文件并追写新数据到文件尾
  Open strOuttmpFile For Append As #FileNumber
   
    Print #FileNumber, strPrinteTxt
   
  Close #FileNumber

kenda

好久没用vb啦

静默无言。

不懂VB得路过~~

小歆

win7下用不用管理员权限啊？