PING不通内网指定IP，不让其访问指定域名（命令行）

2012huguoliang

如题，我现在有个这样的需求：

我只想这些域名（可能是合集，或者是通配符*.qq.com这种形式，不行就多写几条）在我内网（ping内网服务器）的情况下访问，不在内网时，让这些域名不能访问。

我现在能想到的是，先ping内网服务器，能ping通不做任何修改，不能ping通，则执行echo 127.0.01 *.qq.com >%windows%\system\etc\hosts，写入hosts文件劫持。恢复内网则删除这些劫持hosts。
我要做的是其实是我想公司所有电脑在上班的时候（肯定是连了公司路由DHCP）才访问这些网站，不在公司上班的时候不访问这些网站（hosts劫持）。

这样是不是有其他缺陷，或者哪位大佬给我个示例，不胜赶紧。

来，我自己写好了，给大伙看看，哈哈。
@echo off
if "%1"=="h" goto begin
start mshta vbscript:createobject("wscript.shell").run("%~nx0"^&" h",0)^&(window.close) && exit
::隐藏执行begin后全部内容
:begin
@fltmc >nul || mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~f0","%*",,"runas",1)(window.close) && exit /b
@attrib -R -S C:\windows\system32\drivers\etc\hosts
@cd C:\windows\system32\drivers\etc\
@if not exist hostsbak @copy /y hosts hostsbak
::判断是否在内网
@echo off
ping 192.168.100.66 >nul 2>nul&&goto pingok||goto pingnook

:pingok
::在内网
rename hosts hosts1
rename hostsbak hosts
del /q hosts1
copy /y hosts hostsbak
@goto end

:pingnook
::非内网
echo 127.0.0.1 exmail.qq.com >> %SystemRoot%\System32\drivers\etc\hosts
echo 127.0.0.1 imap.exmail.qq.com >> %SystemRoot%\System32\drivers\etc\hosts
echo 127.0.0.1 smtp.exmail.qq.com >> %SystemRoot%\System32\drivers\etc\hosts
echo 127.0.0.1 pop.exmail.qq.com >> %SystemRoot%\System32\drivers\etc\hosts
@goto end

:end
::复制本身到system32
cd /d "%~dp0"
copy "%~nx0" "%systemroot%\system32\"
::加入到开机启动
@echo off
echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\netexmail.lnk" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "c:\windows\system32\netexmail.bat" >> CreateShortcut.vbs
echo oLink.WorkingDirectory = "c:\windows\system32\" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del CreateShortcut.vbs
exit

2011bigstern

在服务器防火墙上做源地址限制呗。

guies

自已架設DNS服務器，
主要的設內網的DNS IP，
次要的設外網的DNS IP，
這樣在內網自然會用內網DNS優先，在其它地方時，
因為主要的DNS連不上，自然會用次要的DNS。

1G空间100元

楼上正解 在内网路由器上指定内网使用的内网的DNS
将你需要的域名内网解析为内网IP 其他域名代理解析出去就可以了

1G空间100元

可用Acrylic DNS这个软件  任意域名在内网做虚拟解析
其他域名用外网的DNS代理解析
然后内网的电脑DNS设置为这个Acrylic DNS所在的电脑的内网IP就可以了
既不影响外网的域名解析 还可以虚拟任意域名解析 任意后缀 包含不存在的后缀
这个软件虚拟解析权限大于外网代理解析 比如qq.com你这个软件做了虚拟解析到内网IP 就相当于劫持了解析
这个软件也支持泛域名解析

BEIKING

hosts 不支持通配符域名吧

2012huguoliang

BEIKING 发表于 2024-7-8 14:55
hosts 不支持通配符域名吧

嗯 不支持 那就多条 或者说替代Hosts文件，这样更简单

红动中国

这个方法好，谢谢分享

BEIKING

BEIKING 发表于 2024-7-8 14:55
hosts 不支持通配符域名吧

如果是这需求，我有脚本。
晚点给你

2012huguoliang

BEIKING 发表于 2024-7-8 16:17
如果是这需求，我有脚本。
晚点给你

老大 帮忙写下  我觉得可以改进下

先备份下源hosts，命名位hostsbak

然后判断是否内网，如果是内网，则在hosts后面追加劫持。如果是外网，则将现有hosts改名hostsx，将备份的hostsbak改名位hosts。

这样更完美！

BEIKING

1. @echo off
   
2. if /i "%UserName%" == "SYSTEM" (Set PE=1&Goto GotAdmin) else (reg query "HKLM\SYSTEM\ControlSet001\Control\MiniNT" 1>nul 2>nul&&(Set PE=1&Goto GotAdmin))
   
3. :BatchGotAdmin
   
4. Set "_Args=%* "
   
5. if `%1` neq `` Set "_Args=%_Args:"=""%"
   
6. if exist %WinDir%\System32\fltMC.exe fltMC 1>nul 2>nul||mshta VBScript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c """"%~f0"" %_Args%""",,"runas",1)(Window.Close) 2>nul&&Exit /b
   
7. 
   
8. :GotAdmin
   
9. Title Hosts&if exist %WinDir%\System32\ureg.dll Mode 36,6 2>nul
   
10. REM 环境检查
    
11. find /? 1>nul 2>nul&&Set "findstr=find /i "||Set findstr=
    
12. findstr /? 1>nul 2>nul&&Set "findstr=findstr /i /c:"
    
13. if not defined findstr echo "找不到 find.exe 文件，按任意键退出 。。。"&Pause >nul&Exit /b
    
14. ping /? 1>nul 2>nul||(echo "找不到 ping.exe 文件，按任意键退出 。。。"&Pause >nul&Exit /b)
    
15. REM 配置参数
    
16. Set "serIP=10.10.10.80" :: 用于检测是否为内网的服务器IP
    
17. Set "mapIP=127.0.0.1"   :: 网址映射IP，通常是 127.0.0.1
    
18. REM 检测是否为内网 (检测2次)
    
19. echo.&echo.&echo      正在检测网络，请稍候。。。
    
20. ping %SerIP% -n 1 1>nul 2>nul&&(Set lan=1&Goto MapIP)||Set lan=0
    
21. ping %SerIP% -n 1 1>nul 2>nul&&Set lan=1||Set lan=0
    
22. 
    
23. :MapIP
    
24. if "%lan%" == "1" (
    
25.     Call :HostsMap "+::%mapIP% www.qq.com"
    
26.     Call :HostsMap "+::%mapIP% www.baidu.com"
    
27.     Call :HostsMap "+::%mapIP% www.sina.com.cn"
    
28.     Cls&Color 2f&echo.&echo.&echo      内网，已添加 Hosts 映射。
    
29. ) else (
    
30.     Call :HostsMap "-::%mapIP% www.qq.com"
    
31.     Call :HostsMap "-::%mapIP% www.baidu.com"
    
32.     Call :HostsMap "-::%mapIP% www.sina.com.cn"
    
33.     Cls&Color cf&echo.&echo.&echo      非内网，已取消 Hosts 映射。
    
34. )
    
35. if exist %WinDir%\System32\timeout.exe (timeout /t 2 >nul) else if exist %WinDir%\System32\choice.exe (choice /t 2 /d y /n >nul) else ping 127.1 -n 2 >nul
    
36. Exit /b
    
37. 
    
38. :HostsMap :: 修改 Hosts 文件，调用格式 Call :HostsMap "+::127.0.0.1 app.drivereasy.com"
    
39. Set "hosts=%SystemRoot%\System32\Drivers\etc\hosts"
    
40. attrib -s -h -r "%hosts%" 1>nul 2>nul
    
41. Setlocal EnableDelayedExpansion
    
42. for %%a in (%*) do (
    
43.     Set "param=%%~a"&if "!param:~1,2!" == "::" (
    
44.         if "!param:~0,1!" == "+" (
    
45.             %findstr%"!param:~3!" <"%hosts%" 1>nul 2>nul||>>"%hosts%" echo !param:~3!
    
46.         ) else if "!param:~0,1!" == "-" (
    
47.             %findstr%"!param:~3!" /v <"%hosts%" >"%hosts%.mod"
    
48.             move /y "%hosts%.mod" "%hosts%" 1>nul 2>nul
    
49.         )
    
50.     )
    
51. )
    
52. Endlocal&Goto :eof

复制代码

guong

谢谢分享

2012huguoliang

BEIKING 发表于 2024-7-8 21:22

比我的复杂点 我学习下

铿锵玫瑰

这个方法好，谢谢分享！！