查看完整版本: 创建VPN拨号并且自动登陆批处理

创建VPN拨号并且自动登陆批处理

脚本说明：以下是一个通过VBS的模拟按键动作的实例，试用了不少关于创建ADSL拨号账号的VBS例子，实际使用遇上了无法重复创建账号报错问题，以下是TVZML编写的自动创建VPN和自动拨号脚本，增加了是否创建过的检测，如果创建过了，直接跳转到拨号这步。6eEgBynz.W{ f
)Cp0h6T?l `z&E'Z
使用说明：以下脚本连续10次以上测试通过，实际使用发生失败，请适当调整延迟时间，WScript.Sleep 500改为WScript.Sleep 1000即延迟为1秒。
!Pq*a'Dq tUsu2| ikE
/U;ltCH$q8T
@echo offk@ca.Y O{ M fO
set VPN_LAN=02?`2M:uCI'U\-g
findstr /c:"VPN_LAN" "C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk" ||set VPN_LAN=1
$EyvY'A y @echo %VPN_LAN%
1HNsj*Y7J5]\
v echo set WshShell = CreateObject("WScript.Shell") >VPN_phone.VBS
z?EO)\g if %VPN_LAN%==0 goto VPN_ADD9?
K'X*{
|G)J"U
echo WshShell.Run "Rasphone -a" >>VPN_phone.VBS
bG H*I&^y]*? f9KR echo WScript.Sleep 500 >>VPN_phone.VBS
Sk0I(wW{%oP*OZ echo WshShell.SendKeys "%%+T" >>VPN_phone.VBS
RJ(D}g echo WshShell.SendKeys "%%+N" >>VPN_phone.VBS
/yPkvGq echo WScript.Sleep 100 >>VPN_phone.VBS ?.y%zZk!m:C7R@"z
echo WshShell.SendKeys "vpn.server.ip.com" >>VPN_phone.VBS
R(E^U9p/L~3e1u echo WScript.Sleep 100 >>VPN_phone.VBS6B*F
|4T*{S"vR
echo WshShell.SendKeys "%%+N" >>VPN_phone.VBS)OU{.s,\C'?-c
echo WScript.Sleep 500 >>VPN_phone.VBS
|$a#J [v4bKF echo WshShell.SendKeys "VPN_LAN" >>VPN_phone.VBS'V*h2qP#d^
echo WScript.Sleep 500 >>VPN_phone.VBS&Iqq'w+hy
echo WshShell.SendKeys "{ENTER}" >>VPN_phone.VBS-o/b1ey-Z
echo WScript.Sleep 50 >>VPN_phone.VBS1{%qWu/ZZ8A$e
echo WshShell.SendKeys "{ENTER}" >>VPN_phone.VBS
eWs1K!TRe :VPN_ADD

uE/Er:HO echo WScript.Sleep 500 >>VPN_phone.VBS
{\V+]cm3X echo WshShell.Run "Rasphone -d VPN_LAN" >>VPN_phone.VBSaJ k2[CPz:^2A
echo WScript.Sleep 100 >>VPN_phone.VBS
#z#ag3TTU|l:z echo WshShell.AppActivate "连接 VPN_LAN" >>VPN_phone.VBS
F RR.Pw*OA echo WScript.Sleep 100 >>VPN_phone.VBS@Q:?:l5f-W
echo WshShell.SendKeys "%%+u" >>VPN_phone.VBS)loAd9S6{
echo WScript.Sleep 100 >>VPN_phone.VBS
.z1]U8X@9Q1mm echo WshShell.SendKeys "USER" >>VPN_phone.VBS
0T2a-~?7R echo WScript.Sleep 100 >>VPN_phone.VBS.r8IX.[Ks*E[{d;Q
echo WshShell.SendKeys "%%+p" >>VPN_phone.VBS;P"ka
M0f?J
echo WScript.Sleep 500 >>VPN_phone.VBS
&V:Qr2P]-p1K:bd echo WshShell.SendKeys "password" >>VPN_phone.VBS
U8t2q:I Q[@^qd,Y echo WScript.Sleep 100 >>VPN_phone.VBS
!k%TMfj echo WshShell.SendKeys "%%+c" >>VPN_phone.VBS
7\D _|o1nV^ start VPN_phone.VBS

VPN_phone.VBS4^c7s\1ZCa)@
set WshShell = CreateObject("WScript.Shell") XdFzw
WshShell.Run "Rasphone -a" j]+Dxny%kT
WScript.Sleep 500 ,Z;U`-uHcP
WshShell.SendKeys "%+T" IX!r7lW.n
WshShell.SendKeys "%+N" j j|*h,n^b9y
WScript.Sleep 100 0sg0M5Y2}we
WshShell.SendKeys "220.189.127.106"
/f[^.@ c WScript.Sleep 100
oq c3?jM-I WshShell.SendKeys "%+N" ZU*HWx
WScript.Sleep 500

[u\X'NA WshShell.SendKeys "VPN_LAN" cq'g~2t?\
WScript.Sleep 500
!G}uwTd5pE WshShell.SendKeys "{ENTER}" 9I*v~W
Cq
WScript.Sleep 50
&F"x1LAMX r WshShell.SendKeys "{ENTER}" -jw"?q#SlVV*Wg^!E
WScript.Sleep 500 E8n},^ ]d2k
WshShell.Run "Rasphone -d VPN_LAN"
1q%goa&s%D WScript.Sleep 100 ,?/pX)xC)Adk
WshShell.AppActivate "连接 VPN_LAN" 0` E2I"K,yw1p Gv^
WScript.Sleep 100
Z:]+{kc3r)H!s
jU(I WshShell.SendKeys "%+u"
6j/qxeD/f X WScript.Sleep 100 Pn|:_Cl
Y"D`
WshShell.SendKeys "USER" 0t C9eC] V7|0Yy
WScript.Sleep 100 5?;gh+uD1b;v8[~
a
WshShell.SendKeys "%+p"
T5t"I QDx WScript.Sleep 500
${Ey#G rb2B WshShell.SendKeys "password" !aJ \)K"BC(Dk
WScript.Sleep 100 "v{8C!dfP
WshShell.SendKeys "%+c"

看不懂啊。

用SendKeys来实现不太好，网上还有一个用纯批处理实现的版本。

试一试，好东西大家分享。

用纯批处理的应该好一些 这个不通用啊

呵呵.暂时不发表意见.试下再说.

好像不行哎！！

看不懂 了!

建议用AUTOIT，易用易学！

实用的东东哈