便携小工具

防锁屏.vbs

' 先定义一个Shell对象
Set WshShell = WScript.CreateObject("WScript.Shell")
 
WScript.Sleep 5000
wshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 500
wshShell.SendKeys "{NUMLOCK}"
 
'设置成正需要接续的时间
for i=1 to 180
'设置成比屏保时间短点就可以
    WScript.Sleep 180000
    wshShell.SendKeys "{NUMLOCK}"
    WScript.Sleep 1
    wshShell.SendKeys "{NUMLOCK}"
    WScript.Sleep 500
    wshShell.SendKeys "{NUMLOCK}"
    WScript.Sleep 1
    wshShell.SendKeys "{NUMLOCK}"
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

 通过设置环境变量访问应用

新建文件输入以下内容，修改扩展名为.bat文件(eg: set_nls_lang.bat)，打开应用时通过双击这个.bat文件打开。

@echo off
set NLS_LANG=AMERICAN_AMERICA.AL32UTF8
start D:\softwares\plsql_developer\plsqldev.exe