无门槛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刷新键,我只是让他多久自动执行一次。谢谢,如有不足请多多指教。行外看精彩,行内看笑话。