[网络工具] 批处理自动连接VPN[2016-3-27更新]

bailong360

天涯VPN试用源

1>1/* :
::本代码仅作交流学习之用,下载之后请于24小时之内删除,严禁用于其他用途!
::对使用本代码造成的任何后果,作者概不负责
@echo off
title 按Q退出连接
mode con: lines=2 cols=25
echo 连接中...
for /f %%i in ('cscript -nologo -e:jscript "%~f0" "%AppData%"') do set User=%%i
:loop
rasdial|findstr "没有连接" >nul&&rasdial vpn %User% vpntm >nul||echo 已连接
choice /c nq /t 3 /d n /n >nul
if %errorlevel%==2 (
    echo 正在退出...
    rasdial /d >nul
) else goto loop
exit */
var FSO     = new ActiveXObject('Scripting.FileSystemObject');
var XMLHTTP = new ActiveXObject('Microsoft.XMLHTTP');
var ADODB   = new ActiveXObject('ADODB.Stream');
var WShell  = new ActiveXObject('WScript.Shell');
XMLHTTP.Open('GET', 'http://www.tyvpncn.com/page/testvpn.html', 0);
XMLHTTP.Send();
with (ADODB) {
    Type = 1;
    Mode = 3;
    Open();
    Write(XMLHTTP.responseBody);
    Position = 0;
    Type = 2;
    CharSet = 'UTF-8';
}
 
var HTML = ADODB.ReadText();
var DIV  = HTML.match(/testvpnitem'>[^:]+?<\/div>/m)[0];
var IP   = DIV.match(/[0-9.]+(?=<\/span>)/);
var User = DIV.match(/vpn\d+/);
var File = FSO.OpenTextFile(WScript.Arguments.Item(0) + '\\Microsoft\\Network\\Connections\\Pbk\\rasphone.pbk', 2, true);
 
File.Write('[VPN]\r\nMEDIA=rastapi\r\nPort=VPN4-0\r\nDevice=WAN Miniport (L2TP)\r\nDEVICE=vpn\r\nPhoneNumber=' + IP);
WShell.Run('rasdial vpn ' + User + ' vpntm', 0, true);
WSH.Echo(User);COPY

一小时VPN的资源

1>1/* :
::本代码仅作交流学习之用,下载之后请于24小时之内删除,严禁用于其他用途!
::对使用本代码造成的任何后果,作者概不负责
@echo off
title 按Q退出连接
mode con: lines=2 cols=25
echo 连接中...
for /f "tokens=1,2 delims=|" %%i in ('cscript -nologo -e:jscript "%~f0" "%AppData%"') do (
    set User=%%i
    set PSW=%%j
)
:loop
rasdial|findstr "没有连接" >nul&&rasdial vpn %User% %PSW% >nul||echo 已连接
choice /c nq /t 10 /d n /n >nul
if %errorlevel%==2 (
    echo 正在退出...
    rasdial /d >nul
) else goto loop
exit */
var FSO    = new ActiveXObject('Scripting.FileSystemObject');
var WShell = new ActiveXObject('WScript.Shell');
var HTML   = GetURL('http://free.vpn.58tt.net/index.html');
var IP     = HTML.match(/IP地址：[0-9.]+/)[0].match(/[0-9.]+/);
var User   = HTML.match(/用户名：.+?(?=<\/p>)/)[0].replace(/用户名：/, '');
var PSW    = GetURL('http://' + IP + '/mm.txt');
var File   = FSO.OpenTextFile(WScript.Arguments.Item(0) + '\\Microsoft\\Network\\Connections\\Pbk\\rasphone.pbk', 2, true);
File.Write('[VPN]\r\nMEDIA=rastapi\r\nPort=VPN4-0\r\nDevice=WAN Miniport (L2TP)\r\nDEVICE=vpn\r\nPhoneNumber=' + IP);
WShell.Run('rasdial vpn ' + User + PSW, 0, true);
WSH.Echo(User + '|' + PSW);
function GetURL(URL) {
    var ADODB   = new ActiveXObject('ADODB.Stream');
    var XMLHTTP = new ActiveXObject('Microsoft.XMLHTTP');
    XMLHTTP.Open('GET', URL, 0);
    XMLHTTP.Send();
    with (ADODB) {
        Mode = 3;
        Type = 1;
        Open();
        Write(XMLHTTP.responseBody);
        Position = 0;
        Type = 2;
        CharSet = 'UTF-8';
    }
    return ADODB.ReadText();
}COPY

darker

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

bailong360

回复 17# aa77dd@163.com
BOTH
嘿嘿,怪我没讲清楚...

aa77dd@163.com

回复 1# bailong360

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

CrLf

回复 15# aa77dd@163.com


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

aa77dd@163.com

回复 14# CrLf

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

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

CrLf

回复 13# aa77dd@163.com


    lantern 运行后没效果，倒是和 xx-net 配合效果很不错

aa77dd@163.com

回复 12# CrLf

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

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

诅咒竖墙者

┌∩┐(◣_◢)┌∩┐

....................../′ˉ/)
....................,/ˉ../
.................../..../
............./′ˉ/'...'/′ˉˉ`·¸
........../'/.../..../......./¨ˉ\
........('(...′...′.... ˉ~/'...')
.........\.................'...../
..........''...\.......... _.·′
............\..............(
..............\.............\...

CrLf

回复 11# aa77dd@163.com


    是的，那个 vpn 好像又挂了

aa77dd@163.com

回复 3# CrLf


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

第 17 行造成 缺少对象

然后处理了这个问题, 可以正常运行了
结果还是
远程访问错误 628 在连接完成前，连接被远程计算机终止。

aa77dd@163.com

回复 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 连接工具也未曾成功连接

新建VPN!
正在获取地址...
正在获取用户名密码...
IP地址更新!
正在获取地址...
正在获取用户名密码...
正在连接到 VPN...
正在验证用户名及密码...
正在连接到 VPN...
正在连接到 VPN...
正在验证用户名及密码...由于目标计算机积极拒绝，无法连接。 请按任意键继续. . .COPY

codegay

又试了下。两个脚本运行后并没有连接上VPN。

codegay

回复 7# CrLf


    在网络比较好的时候测试已经正常了。

CrLf

回复 6# 依山居


    本机测试通过，不晓得出错原因

依山居

回复 5# CrLf


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