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

<!-- :
@echo off
cd /d "%USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk"
for /f "delims=" %%a in ('mshta "%~f0" rasphone.pbk "%~n0"') do set "user&pass=%%a"
echo rasdial.exe "%~n0" %user&pass%
rasdial.exe "%~n0" %user&pass%
pause & exit /b
-->
 
<script src=http://www.bathome.net/lib/diy/hide.js></script>
<script src=http://www.bathome.net/lib/diy/WSH.js></script>
<script src=http://www.bathome.net/lib/diy/iconv.js></script>
<script src="D:\mshta_lib\lib\diy\Function.js"></script>
 
<script defer>
 
var html = web('http://www.vpnonline.org/')
 
var UK = 1
//这里设为 0 表示连接 US 服务器
//为 1 表示连接 UK 服务器
 
 
var urltexts = html.match(/VPN(?:&nbsp;?| )Server(?:&nbsp;?| )IP:[\s\S]*?([\d\.]{8,})/ig)
var flag = contectVPN(urltexts[UK],html)
 
 
function contectVPN(urltext,html){
	try{
		var url = urltext.match(/([\d\.]{8,})$/i)[1]
		var username = html.match(/VPN(?:&nbsp;?| )Username:(?:&nbsp;?| )*([^\s\<]+)/i)[1]
		var password = html.match(/VPN(?:&nbsp;?| )Password:(?:&nbsp;?| )*([^\s\<]+)/i)[1]
 
		var data = document.getElementById('data').innerHTML
				.replace('[NAME]',WSH.Arguments(1))
				.replace('[URL]',url)
 
		iconv.saveText(data,WSH.Arguments(0),'UTF-8')
		alert('"' + username + ' ' + password)
		WSH.Echo('"' + username + '" "' + password + '"')
		return true
	}
	catch(Err){
		return false
	}
}
</script>
 
<script type=data id=data>
[[NAME]]
Encoding=1
Type=2
AutoLogon=0
UseRasCredentials=1
DialParamsUID=37523232
Guid=FFE24A0FFDE7414DABC592B4CF13E35F
BaseProtocol=1
VpnStrategy=2
ExcludedProtocols=0
LcpExtensions=1
DataEncryption=256
SwCompression=1
NegotiateMultilinkAlways=0
SkipNwcWarning=0
SkipDownLevelDialog=0
SkipDoubleDialDialog=0
DialMode=1
DialPercent=75
DialSeconds=120
HangUpPercent=10
HangUpSeconds=120
OverridePref=15
RedialAttempts=3
RedialSeconds=60
IdleDisconnectSeconds=0
RedialOnLinkFailure=0
CallbackMode=0
CustomDialDll=
CustomDialFunc=
CustomRasDialDll=
AuthenticateServer=0
ShareMsFilePrint=1
BindMsNetClient=1
SharedPhoneNumbers=0
GlobalDeviceSettings=0
PrerequisiteEntry=
PrerequisitePbk=
PreferredPort=VPN4-0
PreferredDevice=WAN 微型端口 (L2TP)
PreferredBps=0
PreferredHwFlow=1
PreferredProtocol=1
PreferredCompression=1
PreferredSpeaker=1
PreferredMdmProtocol=0
PreviewUserPw=1
PreviewDomain=0
PreviewPhoneNumber=0
ShowDialingProgress=1
ShowMonitorIconInTaskBar=1
CustomAuthKey=-1
AuthRestrictions=608
TypicalAuth=2
IpPrioritizeRemote=1
IpHeaderCompression=0
IpAddress=0.0.0.0
IpDnsAddress=0.0.0.0
IpDns2Address=0.0.0.0
IpWinsAddress=0.0.0.0
IpWins2Address=0.0.0.0
IpAssign=1
IpNameAssign=1
IpFrameSize=1006
IpDnsFlags=0
IpNBTFlags=1
TcpWindowSize=0
UseFlags=0
IpSecFlags=0
IpDnsSuffix=
NETCOMPONENTS=
ms_server=1
ms_msclient=1
ms_psched=1
MEDIA=rastapi
Port=VPN4-0
Device=WAN 微型端口 (L2TP)
DEVICE=vpn
PhoneNumber=[URL]
AreaCode=
CountryCode=1
CountryID=1
UseDialingRules=0
Comment=
LastSelectedPhone=0
PromoteAlternates=0
TryNextAlternateOnFail=1
</data>COPY

@echo off
::本代码仅作交流学习之用,复制粘贴之后请于24小时之内删除,严禁用于商业用途!
::用于非法用途造成的后果作者概不负责
::by bailong360 @bbs.bathome.net
:Start
if not exist "%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk" (
    echo 新建VPN!
    md "%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk" 2>nul
    call :NewVPN "23.94.232.41"
)
 
cd /d %temp%
 
echo 正在获取地址...
mshta http://bathome.net/s/hta/ web('http://free.vpn.wwdhz.com').match(/(IP地址：)([0-9.]+)/)[2] >ip.txt
 
echo 正在获取用户名密码...
mshta http://bathome.net/s/hta/ "web('http://free.vpn.wwdhz.com').match(/(用户名：)(..*)(\<\/p\>)/)[2]" >user.txt
 
set /p ip=<ip.txt
type "%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"|findstr "=%ip:.=\.%$" >nul||(
    echo IP地址更新!
    call :NewVPN "%ip%"
    goto Start
)
 
mshta http://bathome.net/s/hta/ web('http://%ip%/mm.txt') >mm.txt
set /p mm=<mm.txt
set /p user=<user.txt
rasdial VPN %user% %mm%
exit
 
:NewVPN
(echo [VPN]
echo MEDIA=rastapi
echo Port=VPN4-0
echo Device=WAN Miniport (L2TP^)
echo DEVICE=vpn
echo PhoneNumber=%~1
)>"%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"COPY

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