标签： VBS

用简单的VBS脚本保持校园网VPN连接

剧情提要

这是在n次清空博客之后的第一篇文章。

为了在今后针对软件工程学科的学习中打好基础(为了在排行榜上出租广告位)，就要在学院的OJ上努力刷题。

因为我们的宿舍在校外，好像并不能很好的享受刷OJ的过程中还能进行其他的网页浏览操作(最早的话是只挂上锐捷认证，而不进行宽带连接来访问OJ);后来在发现连接学校的SSLVPN的时候，可以一边访问校园网一边又不会断网:-D，但是这样还是有点缺点的，比如一段时间不访问校园网的话，就会提示登录超时，然后就需要断开连接重新登录，脑阔疼
sslvpn_timeout

解决办法

咳咳，原本想用C语言摸(抄)一个的，结果好像回到家里这台电脑用的devc++并没有sys/socket.h这个头文件，遂放弃。

然后就开始打起了vbs脚本的主意，毕竟实现起来还是比较简单的✔(记事本编程大法)

function keeper()
    dim http
    set http = createobject("Msxml2.ServerXMLHTTP")
    http.open "GET","http://x.x.x.x/JudgeOnline",false
    http.send
    wscript.sleep 30000
    keeper()
end function
keeper()

原理的话大概就是，每30秒调用一次自定义的keeper函数，让keeper函数在后台向校园网的OJ发送get请求

咳咳，原本还想着用if判断http.status来决定要不要提示网络连接失败然后退出什么的，但是vbs会自动在连接不上校园网的时候跳出执行超时然后退出，就没有必要多此一举了。
vbs_timeout

(完)