vbs自动刷新脚本

需求：某个网页的登录具有时效性，一段时间不操作就会推出登录。并且只是简单F5刷新的话，一段时间之后，可能会由于异次元的乱流导致地址栏跳转到有点关系却又莫名其妙的地址。

方案：采用vbs脚本模拟按键，就不需要像其他语言一样准备运行和编码环境了。

可以根据各自需要修改里面的各项等待时间，单位为毫秒，1000毫秒=1秒。

使用流程如下：

在运行脚本前，先手动复制一下当前的网站页面地址。
双击脚本文件，快速打开浏览器并保持在网站页面的Tab。
脚本运行逻辑：
            等待5秒（给用户打开浏览器的时间）

            模拟按键F5，刷新页面

            模拟按键CTRL+L定位到浏览器地址栏并全选(目前实验了Firefox和Google浏览器，两者都支持)

            模拟按键CTRL+V粘贴之前手动复制的网站页面地址(为了解决以前单纯执行刷新，一段时间后网页会崩溃到其他地址的问题)

            模拟按键ENTER跳转到网站页面

代码如下：

Dim objShell
Set objShell = CreateObject("Wscript.Shell")
do
WScript.Sleep 5000
objShell.SendKeys "{F5}"
WScript.Sleep 1000
objShell.SendKeys "^l" 
WScript.Sleep 1000
objShell.SendKeys "^v" 
WScript.Sleep 1000
objShell.SendKeys "{ENTER}"
WScript.Sleep 2000
loop

另外附上kill脚本，结束上述vbs脚本。

Dim objShell
set objShell= wscript.createobject("wscript.shell") 
objShell.run "taskkill /im wscript.exe /f ",0 ,true