设置 VPN
一天在简书偶然看到免费VPN合集，随意点了进去。看到了 VPN，以前似乎都没尝试过这种方案，既然是免费的，不妨试试。
这个不用注册，于是根据其中的设置教程在系统中设置好。此时，桌面上就出现了连接图标：网友共享VPN
简介：免费美国VPN，支持PPTP，每2小时更换密码
- 宽带连接图标
- 20140720000.png (6.14 KiB) Viewed 11523 times
这个 VPN 会间隔一段时间更换密码，这样我们也必须跟着更新才行：打开网友共享VPN，复制密码并粘贴到从桌面所打开连接的密码框中，然后连接。这操作虽然简单，但一直重复总是很烦。所以，看看能否 AutoHotkey！
于是，搜索“宽带连接 autohotkey”找到了 rasdial 命令，简单测试发现用这个命令操作是可行的：
rasdial "ilvpn" ilvpn.com uzBa4Kp5 /phone:172.245.220.181 /phonebook:"C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"
这里，ilvpn 是刚才建立的宽带连接名称，rasphone.pbk 是我系统中的 pbk 文件，不清楚其他系统如何，可考虑用 Everything 搜索。
现在要用 AutoHotkey 实现的操作就很简单了：断开当前 VPN 连接，从网页上获取新密码再次连接。定时或在需要时手动执行这个操作就行了。
Code: Select all
#Persistent
Settimer, AutoUpdate, % 50 * 60 * 1000 ; 设置为 50 分钟时自动更换。
GoSub, AutoUpdate
Return
F1:: ; 根据自己的情况自定义。
AutoUpdate:
Run, %ComSpec% /c rasdial "ilvpn" /disconnect,, Hide
sUrl := "http://172.245.220.181/mm.txt"
oWinHttp := ComObjCreate("WinHttp.WinHttpRequest.5.1") ; WinHttpRequest Object Reference: http://msdn.microsoft.com/en-us/library/windows/desktop/aa384109
oWinHttp.Open("GET", sUrl, True)
oWinHttp.Send()
If (oWinHttp.WaitForResponse(-1) <> -1)
{
MsgBox, 获取失败，稍后继续尝试。
Sleep, 5000
GoSub, AutoUpdate
}
sPassword := SubStr(oWinHttp.ResponseText, 1, 8)
RunWait, %ComSpec% /c rasdial "ilvpn" ilvpn.com %sPassword% /phone:172.245.220.181 /phonebook:"C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk",, Hide
Return这里手动按个热键代替计时器也很方便了，还可以执行 rasdial 从结果判断当前是否连接了 VPN 实现智能连接（在断线时自动重连，常常不清楚什么原因就断线了）。看个人的需要。
其他
- 有“纯 ahk”情节的朋友考虑同名的 RasDial 函数，新手忽略吧；
- 经常需要的朋友不妨购买支持，免费东西的背后是别人默默的付出；
- 后来找到了无需穿墙即可使用的谷歌搜索（知乎的问题找不到了），偶尔才有需要；
