Board logo

标题: [网络工具] bat+hta+jscript 一键连接临时VPN [打印本页]

作者: CrLf    时间: 2015-3-27 05:43     标题: bat+hta+jscript 一键连接临时VPN

本帖最后由 CrLf 于 2015-12-7 04:29 编辑

依赖 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. <script src=http://www.bathome.net/lib/diy/hide.js></script>
  14. <script src=http://www.bathome.net/lib/diy/WSH.js></script>
  15. <script src=http://www.bathome.net/lib/diy/iconv.js></script>
  16. <script src=http://www.bathome.net/lib/diy/Function.js></script>
  17. <script defer>
  18. var html = web('http://free.vpn.wwdhz.com/')
  19. var url = html.match(/IP地址:([\d\.]+)/)[1]
  20. var username = html.match(/\>用户名:([^<]+)/)[1]
  21. var password = web('http://'+url+'/mm.txt').replace(/^\s+|\s+$/g,'')
  22. var data = document.getElementById('data').innerHTML
  23. .replace('[NAME]',WSH.Arguments(1))
  24. .replace('[URL]',url)
  25. iconv.saveText(data,WSH.Arguments(0),'UTF-8')
  26. WSH.Echo('"' + username + '" "' + password + '"')
  27. </script>
  28. <script type=data id=data>
  29. [[NAME]]
  30. DialParamsUID=37523232
  31. Guid=FFE24A0FFDE7414DABC592B4CF13E35F
  32. MEDIA=rastapi
  33. Port=VPN4-0
  34. Device=WAN 微型端口 (L2TP)
  35. DEVICE=vpn
  36. PhoneNumber=[URL]
  37. </data>
复制代码
改良自 http://tech.ddvip.com/2013-06/1372264884197948_2.html,原帖已然找不到了
原帖的 sendkey 方案太不靠谱,这里改造成从获取用户名密码到登陆全自动操作——排除没有写入权限以及被 UAC 或杀软拦截的情况
bathome CrLf 自用
----------------------------------------------------------------------------------------
再次借鉴 http://www.bathome.net/thread-38474-1-1.html 的方案加以改良和修复
作者: CrLf    时间: 2015-3-27 05:44

运行后,去查查 ip 是不是出国了
作者: CrLf    时间: 2015-12-7 04:01

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

另一个来源的免费 VPN 连接脚本见:
http://www.bathome.net/redirect. ... 8474&pid=179094
作者: re168    时间: 2016-7-2 18:20

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2