VB_Script

用简单的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

(完)

发布者

《用简单的VBS脚本保持校园网VPN连接》上有4条评论

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注