便携小工具

防锁屏.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

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

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

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

 

posted @ 2024-09-26 08:27  野生薄荷糖  阅读(3)  评论(0)  编辑  收藏  举报