pcl_test

'该脚本要求执行用户有本地管理员权限
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetSpecialFolder(1)
HostsFile = fd & "\Drivers\etc\Hosts"

Set objFile = fso.GetFile(HostsFile)
If objFile.Attributes And 1 Then
    objFile.Attributes = objFile.Attributes -1
End If


Set f = fso.OpenTextFile(HostsFile, 1)
tmp = f.ReadAll
If InStr (tmp, "202.102.101.105") <> 0 Then
    Set regEx = New RegExp
    regEx.Global = True
    regEx.Pattern = "[^\r\n]*202\.102\.101\.(105|107|108).+[\r\n]?"
    txt = regex.replace(tmp,"")
    Set regEx = Nothing
    f.Close
    Set f = fso.OpenTextFile(HostsFile, 2)
    f.Write txt
    f.Close
End If
复制代码

pcl_test

回复 3# a000001

这样的事当然用批处理

@echo off
>"%tmp%\$" more +7 %0
set "fd=%windir%\System32\Drivers\etc"
attrib -r "%fd%\hosts"
findstr /v /g:"%tmp%\$" "%fd%\hosts">"%fd%\$"
move "%fd%\$" "%fd%\hosts"
pause&exit
127.0.0.1 mcfg.sandai.net 
127.0.0.1 211.94.190.80 
127.0.0.1 advstat.xunlei.com 
123.87.86.5 biz5.sandai.net 
527.66.13.125 cknum.sandai.net 
110.45.215.113 cl.kankan.xunlei.com 
127.0.0.1 float.sandai.net 
127.0.0.1 mcfg.sandai.net 
180.70.134.154 mtips.xunlei.com 
127.0.0.1 pubstat.sandai.net 
216.58.221.74 recommend.xunlei.com 
127.0.0.1 wy.xunlei.com 
110.45.229.148 buy.safe.xunlei.com
复制代码

pcl_test

回复 5# a000001

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
Set f = fso.OpenTextFile(wscript.scriptfullname, 1)
Do Until f.AtEndOfStream
    str = Trim(f.ReadLine)
    IF Left(str,1)="'" Then dict.Add mid(str,2), "1"
Loop
f.Close

Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetSpecialFolder(1)
HostsFile = fd & "\Drivers\etc\Hosts"

Set objFile = fso.GetFile(HostsFile)
If objFile.Attributes And 1 Then
    objFile.Attributes = objFile.Attributes -1
End If

Set f = fso.OpenTextFile(HostsFile, 1)
Do Until f.AtEndOfStream
    str = f.ReadLine
    If not dict.Exists(Trim(str)) Then
    txt = txt & str & vbCrLf
End If
Loop
f.Close
Set f = fso.OpenTextFile(HostsFile, 2)
f.Write txt
f.Close

'127.0.0.1 mcfg.sandai.net
'127.0.0.1 211.94.190.80
'127.0.0.1 advstat.xunlei.com
'123.87.86.5 biz5.sandai.net 
'527.66.13.125 cknum.sandai.net 
'110.45.215.113 cl.kankan.xunlei.com 
'127.0.0.1 float.sandai.net 
'180.70.134.154 mtips.xunlei.com 
'127.0.0.1 pubstat.sandai.net 
'216.58.221.74 recommend.xunlei.com 
'127.0.0.1 wy.xunlei.com 
'110.45.229.148 buy.safe.xunlei.com
复制代码

pcl_test

回复 7# a000001


    嗯，你添加新的域名时先检测是否已存在，是就不添加；或者，两个都保留，不删就是

pcl_test

回复 9# a000001

嗯，可以，别问我怎么做到

pcl_test

回复 11# a000001

del /q "%tmp%\$"
pause&exit

pcl_test

回复 13# a000001

都可以，别问我怎么做到