浏览器网页自动刷新脚本

hvv时盯设备老是会话过期，可以使用脚本自动刷新浏览器网页达到会话不过期的效果

 

 

AutoFlush.vbs

'Author:LinshaoSec
set WS=CreateObject("wscript.Shell")

sub flush()
	WScript.Sleep 300
	WS.SendKeys "^{F5}"
	WScript.Sleep 300
	WS.SendKeys "^{PGDN}"
end sub

sub startTask()
	For i=1 to 4	'----浏览器有几个标签栏目改为几
	flush()
Next
end sub


'-----------------------------------------START-----------------------------
a = MsgBox("结束任务请点击目录中的killflush.bat, 是否清楚?", 1+vbQuestion,"HvvBt专用防session过期")
if a="2" Then
	WScript.quit
end if

MsgBox "请将鼠标放置到浏览器,任务开始时间:点击确定5秒后",0,"摸鱼王要开始打工啦"
WScript.Sleep 5*1000

do 
	startTask() 
	WS.popup "刷新任务成功,下次刷新时间:5s后", 5,"LinshaoSec", 64
	WScript.Sleep 5*1000	'----刷新间隔时间5分钟
Loop

停止脚本

@echo off
taskkill /f /im wscript*
echo "已停止运行脚本"
pause