无门槛vbs定时刷新页面

无门槛vbs定时刷新电脑页面

本文为一篇福利篇，无门槛，是个电脑都能直接用。之前小编在网上看到有人要可以不用手动，能定时刷新电脑屏幕的代码，故此整理了一个精简的代码，如下：
（行外看精彩，行内看笑话，勿喷）

一，开启定时刷新代码

Do
set ws=CreateObject("wscript.shell")
ws.SendKeys "{F5}" 	此处引号内的键可以换成你自己想要的按键
WScript.Sleep 10*1000
Loop

上述文章直接用txt文档编写即可（注：10*1000表示10秒，单位为毫秒）

然后将文档保存，修改文件后缀名类型txt为vbs即可。
最后双击改文件即可启动（关闭代码如下）

二，关闭vbs代码

其实关闭方式有很多种，我们这边介绍一种最粗暴的直接关闭代码：

msgbox"确定关闭所有vbs吗？"
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 

同理用txt编写即可，然后保存。最后修改文件后缀名为vbs。
双击该文件夹即可关闭所有vbs代码（包括定时炸弹等vbs代码）

（* 注：上诉中文可能会乱码，如果可以，在保存时将编码调成unicode即可解决）

最后，在此总结一下，上诉代码来自个人对vbs兴趣学习，不推荐恶搞。另外电脑本身也有页面不熄屏的桌面设置。本文只是编码爱好，其原理也就是通过代码控制，让他刷新一下，就相当于F5刷新键，我只是让他多久自动执行一次。谢谢，如有不足请多多指教。行外看精彩，行内看笑话。