Board logo

标题: [网络工具] 批处理自动连接VPN[2016-3-27更新] [打印本页]
作者: bailong360    时间: 2015-12-6 21:18     标题: 批处理自动连接VPN[2016-3-27更新]

本帖最后由 bailong360 于 2016-3-27 19:19 编辑

天涯VPN试用源
  1. 1>1/* :

  2. ::本代码仅作交流学习之用,下载之后请于24小时之内删除,严禁用于其他用途!

  3. ::对使用本代码造成的任何后果,作者概不负责

  4. @echo off

  5. title 按Q退出连接

  6. mode con: lines=2 cols=25

  7. echo 连接中...

  8. for /f %%i in ('cscript -nologo -e:jscript "%~f0" "%AppData%"') do set User=%%i

  9. :loop

  10. rasdial|findstr "没有连接" >nul&&rasdial vpn %User% vpntm >nul||echo 已连接

  11. choice /c nq /t 3 /d n /n >nul

  12. if %errorlevel%==2 (

  13.     echo 正在退出...

  14.     rasdial /d >nul

  15. ) else goto loop

  16. exit */

  17. var FSO     = new ActiveXObject('Scripting.FileSystemObject');

  18. var XMLHTTP = new ActiveXObject('Microsoft.XMLHTTP');

  19. var ADODB   = new ActiveXObject('ADODB.Stream');

  20. var WShell  = new ActiveXObject('WScript.Shell');

  21. XMLHTTP.Open('GET', 'http://www.tyvpncn.com/page/testvpn.html', 0);

  22. XMLHTTP.Send();

  23. with (ADODB) {

  24.     Type = 1;

  25.     Mode = 3;

  26.     Open();

  27.     Write(XMLHTTP.responseBody);

  28.     Position = 0;

  29.     Type = 2;

  30.     CharSet = 'UTF-8';

  31. }

  32. 

  33. var HTML = ADODB.ReadText();

  34. var DIV  = HTML.match(/testvpnitem'>[^:]+?<\/div>/m)[0];

  35. var IP   = DIV.match(/[0-9.]+(?=<\/span>)/);

  36. var User = DIV.match(/vpn\d+/);

  37. var File = FSO.OpenTextFile(WScript.Arguments.Item(0) + '\\Microsoft\\Network\\Connections\\Pbk\\rasphone.pbk', 2, true);

  38. 

  39. File.Write('[VPN]\r\nMEDIA=rastapi\r\nPort=VPN4-0\r\nDevice=WAN Miniport (L2TP)\r\nDEVICE=vpn\r\nPhoneNumber=' + IP);

  40. WShell.Run('rasdial vpn ' + User + ' vpntm', 0, true);

  41. WSH.Echo(User);
复制代码
一小时VPN的资源
  1. 1>1/* :

  2. ::本代码仅作交流学习之用,下载之后请于24小时之内删除,严禁用于其他用途!

  3. ::对使用本代码造成的任何后果,作者概不负责

  4. @echo off

  5. title 按Q退出连接

  6. mode con: lines=2 cols=25

  7. echo 连接中...

  8. for /f "tokens=1,2 delims=|" %%i in ('cscript -nologo -e:jscript "%~f0" "%AppData%"') do (

  9.     set User=%%i

  10.     set PSW=%%j

  11. )

  12. :loop

  13. rasdial|findstr "没有连接" >nul&&rasdial vpn %User% %PSW% >nul||echo 已连接

  14. choice /c nq /t 10 /d n /n >nul

  15. if %errorlevel%==2 (

  16.     echo 正在退出...

  17.     rasdial /d >nul

  18. ) else goto loop

  19. exit */

  20. var FSO    = new ActiveXObject('Scripting.FileSystemObject');

  21. var WShell = new ActiveXObject('WScript.Shell');

  22. var HTML   = GetURL('http://free.vpn.58tt.net/index.html');

  23. var IP     = HTML.match(/IP地址：[0-9.]+/)[0].match(/[0-9.]+/);

  24. var User   = HTML.match(/用户名：.+?(?=<\/p>)/)[0].replace(/用户名：/, '');

  25. var PSW    = GetURL('http://' + IP + '/mm.txt');

  26. var File   = FSO.OpenTextFile(WScript.Arguments.Item(0) + '\\Microsoft\\Network\\Connections\\Pbk\\rasphone.pbk', 2, true);

  27. File.Write('[VPN]\r\nMEDIA=rastapi\r\nPort=VPN4-0\r\nDevice=WAN Miniport (L2TP)\r\nDEVICE=vpn\r\nPhoneNumber=' + IP);

  28. WShell.Run('rasdial vpn ' + User + PSW, 0, true);

  29. WSH.Echo(User + '|' + PSW);

  30. function GetURL(URL) {

  31.     var ADODB   = new ActiveXObject('ADODB.Stream');

  32.     var XMLHTTP = new ActiveXObject('Microsoft.XMLHTTP');

  33.     XMLHTTP.Open('GET', URL, 0);

  34.     XMLHTTP.Send();

  35.     with (ADODB) {

  36.         Mode = 3;

  37.         Type = 1;

  38.         Open();

  39.         Write(XMLHTTP.responseBody);

  40.         Position = 0;

  41.         Type = 2;

  42.         CharSet = 'UTF-8';

  43.     }

  44.     return ADODB.ReadText();

  45. }
复制代码
作者: aa77dd@163.com    时间: 2015-12-6 22:14

灯笼高高挂, 艹墙快快倒

Great F*UCKing Wall
作者: CrLf    时间: 2015-12-7 01:57

原来一小时 vpn 跑到这里了！
分享另一个来源的免费 vpn
  1. <!-- :

  2. @echo off

  3. cd /d "%USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk"

  4. for /f "delims=" %%a in ('mshta "%~f0" rasphone.pbk "%~n0"') do set "user&pass=%%a"

  5. echo rasdial.exe "%~n0" %user&pass%

  6. rasdial.exe "%~n0" %user&pass%

  7. pause & exit /b

  8. -->

  9. 

  10. <script src=http://www.bathome.net/lib/diy/hide.js></script>

  11. <script src=http://www.bathome.net/lib/diy/WSH.js></script>

  12. <script src=http://www.bathome.net/lib/diy/iconv.js></script>

  13. <script src="D:\mshta_lib\lib\diy\Function.js"></script>

  14. 

  15. <script defer>

  16. 

  17. var html = web('http://www.vpnonline.org/')

  18. 

  19. var UK = 1

  20. //这里设为 0 表示连接 US 服务器

  21. //为 1 表示连接 UK 服务器

  22. 

  23. 

  24. var urltexts = html.match(/VPN(?:&nbsp;?| )Server(?:&nbsp;?| )IP:[\s\S]*?([\d\.]{8,})/ig)

  25. var flag = contectVPN(urltexts[UK],html)

  26. 

  27. 

  28. function contectVPN(urltext,html){

  29. 	try{

  30. 		var url = urltext.match(/([\d\.]{8,})$/i)[1]

  31. 		var username = html.match(/VPN(?:&nbsp;?| )Username:(?:&nbsp;?| )*([^\s\<]+)/i)[1]

  32. 		var password = html.match(/VPN(?:&nbsp;?| )Password:(?:&nbsp;?| )*([^\s\<]+)/i)[1]

  33. 

  34. 		var data = document.getElementById('data').innerHTML

  35. 				.replace('[NAME]',WSH.Arguments(1))

  36. 				.replace('[URL]',url)

  37. 

  38. 		iconv.saveText(data,WSH.Arguments(0),'UTF-8')

  39. 		alert('"' + username + ' ' + password)

  40. 		WSH.Echo('"' + username + '" "' + password + '"')

  41. 		return true

  42. 	}

  43. 	catch(Err){

  44. 		return false

  45. 	}

  46. }

  47. </script>

  48. 

  49. <script type=data id=data>

  50. [[NAME]]

  51. Encoding=1

  52. Type=2

  53. AutoLogon=0

  54. UseRasCredentials=1

  55. DialParamsUID=37523232

  56. Guid=FFE24A0FFDE7414DABC592B4CF13E35F

  57. BaseProtocol=1

  58. VpnStrategy=2

  59. ExcludedProtocols=0

  60. LcpExtensions=1

  61. DataEncryption=256

  62. SwCompression=1

  63. NegotiateMultilinkAlways=0

  64. SkipNwcWarning=0

  65. SkipDownLevelDialog=0

  66. SkipDoubleDialDialog=0

  67. DialMode=1

  68. DialPercent=75

  69. DialSeconds=120

  70. HangUpPercent=10

  71. HangUpSeconds=120

  72. OverridePref=15

  73. RedialAttempts=3

  74. RedialSeconds=60

  75. IdleDisconnectSeconds=0

  76. RedialOnLinkFailure=0

  77. CallbackMode=0

  78. CustomDialDll=

  79. CustomDialFunc=

  80. CustomRasDialDll=

  81. AuthenticateServer=0

  82. ShareMsFilePrint=1

  83. BindMsNetClient=1

  84. SharedPhoneNumbers=0

  85. GlobalDeviceSettings=0

  86. PrerequisiteEntry=

  87. PrerequisitePbk=

  88. PreferredPort=VPN4-0

  89. PreferredDevice=WAN 微型端口 (L2TP)

  90. PreferredBps=0

  91. PreferredHwFlow=1

  92. PreferredProtocol=1

  93. PreferredCompression=1

  94. PreferredSpeaker=1

  95. PreferredMdmProtocol=0

  96. PreviewUserPw=1

  97. PreviewDomain=0

  98. PreviewPhoneNumber=0

  99. ShowDialingProgress=1

  100. ShowMonitorIconInTaskBar=1

  101. CustomAuthKey=-1

  102. AuthRestrictions=608

  103. TypicalAuth=2

  104. IpPrioritizeRemote=1

  105. IpHeaderCompression=0

  106. IpAddress=0.0.0.0

  107. IpDnsAddress=0.0.0.0

  108. IpDns2Address=0.0.0.0

  109. IpWinsAddress=0.0.0.0

  110. IpWins2Address=0.0.0.0

  111. IpAssign=1

  112. IpNameAssign=1

  113. IpFrameSize=1006

  114. IpDnsFlags=0

  115. IpNBTFlags=1

  116. TcpWindowSize=0

  117. UseFlags=0

  118. IpSecFlags=0

  119. IpDnsSuffix=

  120. NETCOMPONENTS=

  121. ms_server=1

  122. ms_msclient=1

  123. ms_psched=1

  124. MEDIA=rastapi

  125. Port=VPN4-0

  126. Device=WAN 微型端口 (L2TP)

  127. DEVICE=vpn

  128. PhoneNumber=[URL]

  129. AreaCode=

  130. CountryCode=1

  131. CountryID=1

  132. UseDialingRules=0

  133. Comment=

  134. LastSelectedPhone=0

  135. PromoteAlternates=0

  136. TryNextAlternateOnFail=1

  137. </data>
复制代码
作者: CrLf    时间: 2015-12-7 02:00

话说 rasphone.pbk 原来可以这么短
作者: CrLf    时间: 2015-12-7 02:54

借顶楼代码稍微精简一下，省掉第三方...
  1. @echo off

  2. ::本代码仅作交流学习之用,复制粘贴之后请于24小时之内删除,严禁用于商业用途!

  3. ::用于非法用途造成的后果作者概不负责

  4. ::by bailong360 @bbs.bathome.net

  5. :Start

  6. if not exist "%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk" (

  7.     echo 新建VPN!

  8.     md "%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk" 2>nul

  9.     call :NewVPN "23.94.232.41"

  10. )

  11. 

  12. cd /d %temp%

  13. 

  14. echo 正在获取地址...

  15. mshta http://bathome.net/s/hta/ web('http://free.vpn.wwdhz.com').match(/(IP地址：)([0-9.]+)/)[2] >ip.txt

  16. 

  17. echo 正在获取用户名密码...

  18. mshta http://bathome.net/s/hta/ "web('http://free.vpn.wwdhz.com').match(/(用户名：)(..*)(\<\/p\>)/)[2]" >user.txt

  19. 

  20. set /p ip=<ip.txt

  21. type "%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"|findstr "=%ip:.=\.%$" >nul||(

  22.     echo IP地址更新!

  23.     call :NewVPN "%ip%"

  24.     goto Start

  25. )

  26. 

  27. mshta http://bathome.net/s/hta/ web('http://%ip%/mm.txt') >mm.txt

  28. set /p mm=<mm.txt

  29. set /p user=<user.txt

  30. rasdial VPN %user% %mm%

  31. exit

  32. 

  33. :NewVPN

  34. (echo [VPN]

  35. echo MEDIA=rastapi

  36. echo Port=VPN4-0

  37. echo Device=WAN Miniport (L2TP^)

  38. echo DEVICE=vpn

  39. echo PhoneNumber=%~1

  40. )>"%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"
复制代码
作者: 依山居    时间: 2015-12-11 20:13

回复 5# CrLf


    bailong 的代码win7 64位测试，已经可用。
crlt的代码运行后，没有连接上VPN。
提示：
name:Error
message:操作超时
number:12002
description:操作超时
作者: CrLf    时间: 2015-12-11 20:33

回复 6# 依山居


    本机测试通过，不晓得出错原因
作者: codegay    时间: 2015-12-12 15:45

回复 7# CrLf


    在网络比较好的时候测试已经正常了。
作者: codegay    时间: 2015-12-15 12:52

又试了下。两个脚本运行后并没有连接上VPN。
作者: aa77dd@163.com    时间: 2015-12-25 11:25

本帖最后由 aa77dd@163.com 于 2015-12-25 13:37 编辑

回复 5# CrLf
我用的系统版本:
   Operating System: Windows 7 旗舰版 64-bit (6.1, Build 7601) Service Pack 1 (7601.win7sp1_gdr.130828-1532)
           Language: Chinese (Simplified) (Regional Setting: Chinese (Simplified))

ver 信息:
Microsoft Windows [版本 6.1.7601]

下面这个路径无效:
"%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"

下面的路径有效:
"%AllUsersProfile%\Microsoft\Network\Connections\Pbk\rasphone.pbk"
或者
"%APPDATA%\Microsoft\Network\Connections\Pbk\rasphone.pbk" <==> "%USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.pbk"



用这个 VPN 连接工具也未曾成功连接
  1. 新建VPN!

  2. 正在获取地址...

  3. 正在获取用户名密码...

  4. IP地址更新!

  5. 正在获取地址...

  6. 正在获取用户名密码...

  7. 正在连接到 VPN...

  8. 正在验证用户名及密码...

  9. 正在连接到 VPN...

  10. 正在连接到 VPN...

  11. 正在验证用户名及密码...由于目标计算机积极拒绝，无法连接。 请按任意键继续. . .
复制代码
作者: aa77dd@163.com    时间: 2015-12-25 12:54

本帖最后由 aa77dd@163.com 于 2015-12-25 13:38 编辑

回复 3# CrLf


开始没下载
D:\mshta_lib\lib\diy\Function.js
也就是
http://www.bathome.net/lib/diy/Function.js

第 17 行造成 缺少对象

然后处理了这个问题, 可以正常运行了
结果还是
远程访问错误 628 在连接完成前，连接被远程计算机终止。
作者: CrLf    时间: 2015-12-25 21:57

回复 11# aa77dd@163.com


    是的，那个 vpn 好像又挂了
作者: aa77dd@163.com    时间: 2015-12-26 14:17

回复 12# CrLf

之前不注意, 在灯笼的页面上因为 油管, 脸书, 推特 的图标都是空白的, 以为 灯笼 熄了, 后来一点原来都可以打开, google 和油管都给我转到了岛国, 反正能开就行

这样暂时我也不需要 VPN 了.

诅咒竖墙者

┌∩┐(◣_◢)┌∩┐

....................../′ˉ/)
....................,/ˉ../
.................../..../
............./′ˉ/'...'/′ˉˉ`·¸
........../'/.../..../......./¨ˉ\
........('(...′...′.... ˉ~/'...')
.........\.................'...../
..........''...\.......... _.·′
............\..............(
..............\.............\...
作者: CrLf    时间: 2015-12-26 15:51

回复 13# aa77dd@163.com


    lantern 运行后没效果，倒是和 xx-net 配合效果很不错
作者: aa77dd@163.com    时间: 2015-12-26 17:03

回复 14# CrLf

我是 GoAgent 挂掉后开始用灯笼的, 最开始灯笼的页面上可以看到6个最多被墙网址的缩略图, 现在3个是空白的了, 但还是可以访问

从开始用灯笼, 我就把 GoAgent 和 Chrome 里的 Proxy SwitchyOmega 插件都废掉了, 灯笼页面上有个齿轮可点出设置, 但我都用的默认设置

作者: CrLf    时间: 2015-12-26 17:24

回复 15# aa77dd@163.com


    不晓得为什么，我这没有效果...倒是 xx-net 妥妥能用，和 goAgent 原理差不多，再配合 lantern 就能全局翻墙，chrome+ie 均有效
    翻墙以后可以下一个“智能代理”插件以备不时之需，是基于免费代理的
作者: aa77dd@163.com    时间: 2016-1-3 00:06

回复 1# bailong360

2016-1-2 的更新指的啥, 只是指贴出的 AHK 代码, 还是同时指 VPN 恢复可用了, 我也没认真测试啊, 嘿嘿呵
作者: bailong360    时间: 2016-1-3 09:49

回复 17# aa77dd@163.com
BOTH
嘿嘿,怪我没讲清楚...
作者: darker    时间: 2016-1-31 18:29

连上了，怎么解除啊，重启电脑才恢复



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