发表回复 
求caps lock提示信息帮助
2009-09-12, 01 : 10 (这个帖子最后修改于: 2015-12-14 14 : 07 by robertL.)
求caps lock提示信息帮助
[i=s] 本帖最后由 zjxsky 于 2009-9-12 01:32 编辑 [/i]
我最近用的是罗技光电高手1000键鼠套装,它有个功能很好用,就是打开CAPS LOCK时会在屏幕上文字提示,就字幕一样,不是对话框的,直接写在屏幕上,不妨碍任何操作的,(不知道论坛怎么贴图,弄在附件里了),这种字幕不知道怎么写,上网找了段​代码,只是会不断发音。或者象 懒人包 里的  屏幕键盘KeyboardOnScreen,那样显示就很好了,请问哪位牛人可修改成,谢谢啦!
代码: (全选)

; AutoHotkey Version: 1.x
; Language: English
; Platform: Win9x/NT
; Author: A.N.Other <myemail@nowhere.com>
;
; Script Function:
; Template script (you can customize this template by editing "ShellNew\Template.ahk" in your Windows folder)
;

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
#Persistent
SetTimer LockOn, 1000
LockOn:
If GetKeyState("CapsLock","T")
SoundBeep, 1244, 150
Sleep 50
If !GetKeyState("NumLock","T")
;Loop 2
Loop 1
;SoundBeep, 880, 150
SoundPlay, C:\WINDOWS\MEDIA\chimes.wav
Sleep 50
If GetKeyState("ScrollLock","T")
;Loop 3
Loop 1
;SoundBeep, 622, 150
SoundPlay, C:\WINDOWS\MEDIA\Windows XP Default.wav
Sleep 50
If GetKeyState("Insert","T")
;Loop 4
Loop 1
;SoundBeep, 440, 150
SoundPlay, C:\WINDOWS\MEDIA\ringout.wav
Return

#^Esc:ause


附件 缩略图
   
查找这个用户的全部帖子
表示感谢 引用并回复 移动视图置页面顶端
2009-09-12, 19 : 00
 
在帮助里面 搜索一下 OSD
访问这个用户的网站 查找这个用户的全部帖子
表示感谢 引用并回复 移动视图置页面顶端
[+] 1用户表示感谢BLooM2
2009-09-12, 23 : 17
 
这个OSD我以前搞过一个,现在我加了个鼠标穿透,发上来:
代码: (全选)
#NoEnv
#Persistent

SendMode Input
CustomColor = EEAA99
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, Color, %CustomColor%
Gui, Font, s32
Gui, Add, Text, vMyText1 cLime,         
Gui, Add, Text, vMyText2 cLime,         
Gui, Add, Text, vMyText3 cLime,         
Gui, Add, Text, vMyText4 cLime,         
WinSet, TransColor, %CustomColor% 150
Gosub, LockOn
SetTimer, LockOn, 200
Gui, Show
hwnd := WinExist()
return


LockOn:
If GetKeyState("CapsLock","T")
GuiControl,, MyText1, CapsLock 开
Else GuiControl,, MyText1, CapsLock 关
Sleep 50
If GetKeyState("NumLock","T")
GuiControl,, MyText2, NumLock 开
Else GuiControl,, MyText2, NumLock 关
Sleep 50
If GetKeyState("ScrollLock","T")
GuiControl,, MyText3, ScrollLock 开
Else GuiControl,, MyText3, ScrollLock 关
Sleep 50
If GetKeyState("Insert","T")
GuiControl,, MyText4, Insert 开
Else GuiControl,, MyText4, Insert 关
Return

+^Esc::
Enable := !Enable
if enable
{
winhide, ahk_id %hwnd%
SetTimer, LockOn, Off
}
Else
{
winshow, ahk_id %hwnd%
SetTimer, LockOn, On
}
Return
查找这个用户的全部帖子
表示感谢 引用并回复 移动视图置页面顶端
[+] 2用户表示感谢xsm121
2009-09-13, 16 : 46
 
哇,好强,正是想达到的效果,非常感谢BLooM2,xsm121.:victory::loveliness:
查找这个用户的全部帖子
表示感谢 引用并回复 移动视图置页面顶端
2015-12-14, 11 : 21
RE: 求caps lock提示信息帮助
真实用啊,我差点就用TrayStatus代替了。
查找这个用户的全部帖子
表示感谢 引用并回复 移动视图置页面顶端
[+] 1用户表示感谢ah8lyff
2015-12-14, 14 : 10
RE: 求caps lock提示信息帮助
不错,可以封装为可半透明的可穿透的自动定时关闭的ToolTip

One for all, but man for himself

帮推广:AHK知乎专栏
查找这个用户的全部帖子
表示感谢 引用并回复 移动视图置页面顶端
发表回复 


论坛跳转:


联系我们 | Autohotkey 中文站 | 回到顶部 | 回到正文区 | 精简(归档)模式 | RSS 聚合