便携小工具

防锁屏.vbs

 1 ' 先定义一个Shell对象
 2 Set WshShell = WScript.CreateObject("WScript.Shell")
 3  
 4 WScript.Sleep 5000
 5 wshShell.SendKeys "{NUMLOCK}"
 6 WScript.Sleep 500
 7 wshShell.SendKeys "{NUMLOCK}"
 8  
 9 '设置成正需要接续的时间
10 for i=1 to 180
11 '设置成比屏保时间短点就可以
12     WScript.Sleep 180000
13     wshShell.SendKeys "{NUMLOCK}"
14     WScript.Sleep 1
15     wshShell.SendKeys "{NUMLOCK}"
16     WScript.Sleep 500
17     wshShell.SendKeys "{NUMLOCK}"
18     WScript.Sleep 1
19     wshShell.SendKeys "{NUMLOCK}"
20 next

提醒喝水.vbs

set WshShell = WScript.CreateObject("WScript.Shell")
'对话框标题
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext =  "该喝水了" 
for i = 1 to 12    '12为提醒的次数
    WScript.Sleep(1000*60*90)    '每90分钟提醒一次
    msgbox alerttext,4096,alerttitle
next