【即用】自动 VPN 穿墙无忧

许多实用脚本和封装函数, 可以让您编写脚本更加便捷高效
User avatar
amnesiac
Posts: 186
Joined: 22 Nov 2013, 03:08
Location: Egret Island, China
Contact:

【即用】自动 VPN 穿墙无忧

26 Jun 2014, 22:01

一直使用谷歌搜索,大约在 4、5 月份时,突然用不了了,一时茫然。我知道 goagent,也用过赛风,然而网速实在慢,这些网上常见的免费方案基本用不了。于是尝试着看看必应如何,用了许多天感觉效率很低,尤其搜索结果中重复项很多(网络内容过度冗余)。

设置 VPN

一天在简书偶然看到免费VPN合集,随意点了进去。看到了 VPN,以前似乎都没尝试过这种方案,既然是免费的,不妨试试。
网友共享VPN
简介:免费美国VPN,支持PPTP,每2小时更换密码
这个不用注册,于是根据其中的设置教程在系统中设置好。此时,桌面上就出现了连接图标:
20140720000.png
宽带连接图标
20140720000.png (6.14 KiB) Viewed 5618 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
其中 http://172.245.220.181/mm.txt 是从源码分析而得。
这里手动按个热键代替计时器也很方便了,还可以执行 rasdial 从结果判断当前是否连接了 VPN 实现智能连接(在断线时自动重连,常常不清楚什么原因就断线了)。看个人的需要。

其他
  • 有“纯 ahk”情节的朋友考虑同名的 RasDial 函数,新手忽略吧;
  • 经常需要的朋友不妨购买支持,免费东西的背后是别人默默的付出;
  • 后来找到了无需穿墙即可使用的谷歌搜索(知乎的问题找不到了),偶尔才有需要;
一开始使用这个 VPN 时是两小时更换一次密码的,6 月中旬当机了一次,现在更新时间变成一小时了(有这个脚本一分钟一次都不会有压力)。好好珍惜吧,有更好的方案记得分享~最后老生常谈一次:VPN 有风险,使用需谨慎
Last edited by amnesiac on 26 Jun 2014, 23:11, edited 1 time in total.
AutoHotkey 学习指南(Beauty of AutoHotkey)
I do not make codes, and only a porter of AutoHotkey: from official to Chinese, from other languages to AutoHotkey, and show AutoHotkey to ordinary users sometimes.
User avatar
RobertL
Posts: 540
Joined: 18 Jan 2014, 01:14
Location: China

Re: 【即用】自动 VPN 穿墙无忧

27 Jun 2014, 05:04

好东西,才在知乎专题看到。
不过我直接用的自由門,也只是看看Google,还不错。
Last edited by RobertL on 27 Jun 2014, 08:49, edited 1 time in total.
我为人人,人人为己?
User avatar
amnesiac
Posts: 186
Joined: 22 Nov 2013, 03:08
Location: Egret Island, China
Contact:

Re: 【即用】自动 VPN 穿墙无忧

27 Jun 2014, 06:49

@RobertL,以前接触过,可惜像赛风,我这里基本连不上服务器。
偶尔 VPN 居然还行,真是意外。
AutoHotkey 学习指南(Beauty of AutoHotkey)
I do not make codes, and only a porter of AutoHotkey: from official to Chinese, from other languages to AutoHotkey, and show AutoHotkey to ordinary users sometimes.
User avatar
RobertL
Posts: 540
Joined: 18 Jan 2014, 01:14
Location: China

Re: 【即用】自动 VPN 穿墙无忧

27 Jun 2014, 08:50

amnesiac wrote:@RobertL,以前接触过,可惜像赛风,我这里基本连不上服务器。
偶尔 VPN 居然还行,真是意外。
哦,自由門,很久没用过的话,可以试试,说不定升级了呢..我是才接触..够用~
我为人人,人人为己?

Return to “脚本函数”

Who is online

Users browsing this forum: No registered users and 2 guests