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

虎虎虎 发表于 2012-3-1 21:59:49

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

本帖最后由 虎虎虎 于 2012-3-2 07:40 编辑

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

代码如下：;~ ***提示键盘指示灯状态****

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

EndFunc   ;==>_GetKeyState

zch11230 发表于 2012-3-2 00:16:25

Opt("SendCapslockMode", 0)

zch11230 发表于 2012-3-2 00:21:53

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

lixiaolong 发表于 2012-3-2 00:27:40

回复 3# zch11230

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

lixiaolong 发表于 2012-3-2 01:42:16

回复 5# zldfsz

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

zldfsz 发表于 2012-3-2 01:46:42

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

虎虎虎 发表于 2012-3-2 11:54:47

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

查看完整版本: 有关自定义闪屏文字窗口的疑问？[已解决]