bat+hta+jscript 一键连接临时VPN

CrLf

依赖 http://freevpn.wwdhz.com/
免费 VPN 只能连接一个小时，应急用用挺不错，比如楼主发现前天还能用的 HOSTS 突然失效，却急于更新 chrome 的时候...
平时还是用 HOSTS 或者国外代理再或者付费 VPN（其实不贵，Green VPN 两年也就 258.00）吧，可以去这里看看：http://www.i-vpn.net/free-vpn/
-------------------------------------------------------------------------------------------------------------
废话少说，上代码，bat+hta+jscript，请存为 .bat 后缀：

1. <!-- :
   
2. @echo off
   
3. if not exist "%USERPROFILE%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk" (
   
4.     echo 新建VPN!
   
5.     md "%USERPROFILE%\Application Data\Microsoft\Network\Connections\Pbk" 2>nul
   
6. )
   
7. cd /d "%USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk"
   
8. for /f "delims=" %%a in ('mshta "%~f0" rasphone.pbk "%~n0"') do set "user&pass=%%a"
   
9. echo %user&pass%
   
10. rasdial.exe "%~n0" %user&pass%
    
11. pause & exit /b
    
12. -->
    
13. 
    
14. <script src=http://www.bathome.net/lib/diy/hide.js></script>
    
15. <script src=http://www.bathome.net/lib/diy/WSH.js></script>
    
16. <script src=http://www.bathome.net/lib/diy/iconv.js></script>
    
17. <script src=http://www.bathome.net/lib/diy/Function.js></script>
    
18. 
    
19. <script defer>
    
20. var html = web('http://free.vpn.wwdhz.com/')
    
21. 
    
22. var url = html.match(/IP地址：([\d\.]+)/)[1]
    
23. var username = html.match(/\>用户名：([^<]+)/)[1]
    
24. var password = web('http://'+url+'/mm.txt').replace(/^\s+|\s+$/g,'')
    
25. 
    
26. var data = document.getElementById('data').innerHTML
    
27.                 .replace('[NAME]',WSH.Arguments(1))
    
28.                 .replace('[URL]',url)
    
29. 
    
30. iconv.saveText(data,WSH.Arguments(0),'UTF-8')
    
31. WSH.Echo('"' + username + '" "' + password + '"')
    
32. </script>
    
33. 
    
34. <script type=data id=data>
    
35. [[NAME]]
    
36. DialParamsUID=37523232
    
37. Guid=FFE24A0FFDE7414DABC592B4CF13E35F
    
38. MEDIA=rastapi
    
39. Port=VPN4-0
    
40. Device=WAN 微型端口 (L2TP)
    
41. DEVICE=vpn
    
42. PhoneNumber=[URL]
    
43. </data>

复制代码

改良自 http://tech.ddvip.com/2013-06/1372264884197948_2.html，原帖已然找不到了
原帖的 sendkey 方案太不靠谱，这里改造成从获取用户名密码到登陆全自动操作——排除没有写入权限以及被 UAC 或杀软拦截的情况
bathome CrLf 自用
----------------------------------------------------------------------------------------
再次借鉴 http://www.bathome.net/thread-38474-1-1.html 的方案加以改良和修复

CrLf

运行后，去查查 ip 是不是出国了

CrLf

和 bailong360 的脚本是同源的
http://www.bathome.net/thread-38474-1-1.html

另一个来源的免费 VPN 连接脚本见：
http://www.bathome.net/redirect. ... 8474&pid=179094

re168

矮油、、非常感谢楼主的分享!支持...