有关自定义闪屏文字窗口的疑问？[已解决]

虎虎虎

用在坛子里收集的有关键盘指示灯做了操作提示：
数字键锁定提示正常；操作大写锁定，闪屏闪烁的厉害，不知是什么原因？

代码如下：

;~ ***提示键盘指示灯状态****

Global Const $VK_NUMLOCK = 0x90
Global Const $VK_SCROLL = 0x91;这个你也可以检测
Global Const $VK_CAPITAL = 0x14
HotKeySet("{NUMLOCK}", "SNUMLOCK")
HotKeySet("{CAPSLOCK}", "SCAPSLOCK")

While 1
        Sleep(150)
WEnd



Func SNUMLOCK()
        If _GetKeyState($VK_NUMLOCK) = 1 Then
                SplashTextOn("", "数字锁定键:开", 150, 40, @DesktopWidth - 200, @DesktopHeight - 90, 1, "黑体", 10)
                Send("{numlock on}")
                Sleep(3000)
                SplashOff()
        Else
                SplashTextOn("", "数字锁定键:关", 150, 40, @DesktopWidth - 200, @DesktopHeight - 90, 1, "黑体", 10)
                Send("{numlock off}")
                Sleep(3000)
                SplashOff()
        EndIf
EndFunc   ;==>SNUMLOCK


Func SCAPSLOCK()
        If _GetKeyState($VK_CAPITAL) = 1 Then
                SplashTextOn("", "大小写锁定键:开",150, 40, @DesktopWidth - 200, @DesktopHeight - 90, 1, "黑体", 10)
                Send("{CapsLock on}")
                Sleep(3000)
                SplashOff()
        Else
                SplashTextOn("","大小写锁定键:关", 150, 40, @DesktopWidth - 200, @DesktopHeight - 90, 1, "黑体", 10)
                Send("{CapsLock off}")
                Sleep(3000)
                SplashOff()
        EndIf
EndFunc   ;==>SCAPSLOCK


Func _GetKeyState($VK_Code)

        Local $ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_Code)

        Return $ret[0]

EndFunc   ;==>_GetKeyState

zch11230

Opt("SendCapslockMode", 0)

zch11230

E?小龙哥的回复呢  刚才明明看见他说注释掉Send("{numlock on}")和Send("{CapsLock on}")的 我试了下确实可以 加分时提示未定义操作再刷新就不见了?!  我见鬼了  我要上床睡觉了 肯定是幻觉....

lixiaolong

回复 3# zch11230

我觉得你的方法好，所以删了...

lixiaolong

回复 5# zldfsz

阅读权限没关系吧，在自己回复的帖子下面点编辑后看看右角上有没有【删?】.

zldfsz

回复 5# lixiaolong
恩，看到了，以前还真没注意到

虎虎虎

有长知识了，谢谢各位。。