Autohotkey分享帖

Capslock这个键的位置是比较好的，但是系统默认它只有切换大小写一个功能，因此可以利用AHK来改造它，让它更利于我们操作。下面就演示像Ctrl、Alt、Shift等修饰键一样的利用它。方法不唯一，这里分享出我一直使用的方法：
;Capslock用作修饰键
#inputlevel,2
$CapsLock::F20
#inputlevel,1
;单按Capslock切换大小写状态
F20::
capstate :=GetKeyState("capslock","T")
if capstate=0
{
SetCapsLockState,On
}
else
{
SetCapsLockState,off
}
return
;Capslock 实现上下左右,删除,回车等
F20 & j::
send,{left}
return
F20 & l::
send,{right}
return
F20 & i::
send,{up}
return
F20 & k::
send,{down}
return
F20 & u::
send,{BackSpace}
return
F20 & o::
send,{enter}
return
F20 & space::
send,{ctrl down}{shift}{ctrl up}
return
#inputlevel,0

;<Ctlr+鼠标中键> 移动窗口
SetWindelay,0
CoordMode,Mouse,Screen
^mbutton::
MouseGetPos,x,y,win
WinGetPos,x1,y1,,,ahk_id %win%
a=%x1%
b=%y1%
loop
{
MouseGetPos,x2,y2
c=%x2%
d=%y2%
c-=%x%
d-=%y%
a+=%c%
b+=%d%
x=%x2%
y=%y2%
Winmove,ahk_id %win%,,%a%,%b%
getkeystate,var,Mbutton,p
if var=U
return
Sleep,20
continue
}
return

感谢 @xuxu1a 吧友分享
【好用！】CapsLock+IKJL 来代替方向的上左下右,CapsLock H 删除文字
CapsLock N 恢复删除，相当于Ctrl_Z
$CapsLock::
KeyWait, CapsLock
If (A_PriorKey="CapsLock")
SetCapsLockState, % GetKeyState("CapsLock","T") ? "Off":"On"
Return
#If, GetKeyState("CapsLock", "P")
i::Up
j::Left
k::Down
l::Right
h::Backspace
n::^z

;F7配合鼠标移动调节窗口大小
SetWinDelay,0
CoordMode,mouse,Screen
F7:: ;若要修改热键，此处应修改。 1/2（共2处）
MouseGetPos,mx1,my1
WinGetPos,winx,winy,winw,winh,A
loop{
GetKeyState,varp,F7,p;若要修改热键，此处应修改。 2/2（共2处）
if varp=U
break
MouseGetPos,mx2,my2
xx=% winw + mx2 - mx1
yy=% winh + my2 - my1
winmove,A,,%winx%,%winy%,%xx%,%yy%
sleep,30
}
return

;单、双、三击示例--热键P
p::
keywait,p,T0.2
if errorlevel
{
msgbox,超时
return
}
keywait,p,D T0.13
if errorlevel
{
msgbox,单击
return
}
keywait,p,T0.07
if errorlevel
{
msgbox,双击
return
}
keywait,p,D T0.13
if errorlevel
{
msgbox,双击
return
}
MsgBox,三击
return

;避免输入法影响输出英文及符号
F8::Send % getAscStr("-Log")
getAscStr(str)
{
charList:=StrSplit(str)
for key,val in charList
out.="{Asc " . asc(val) . "}"
return out
}

;;;同时按下asdf四键执行
SendMode Input
$a::
a=1
gosub,ok
KeyWait,a
return
$s::
s=1
gosub,ok
KeyWait,s
return
$d::
d=1
gosub,ok
KeyWait,d
return
$f::
f=1
gosub,ok
KeyWait,f
return
$a up::
a=0
if (asdf<1||asdf>4)
{
send,a
}
else{
asdf++
}
return
$s up::
s=0
if (asdf<1||asdf>4)
{
send,s
}
else{
asdf++
}
return
$d up::
d=0
if (asdf<1||asdf>4)
{
send,d
}
else{
asdf++
}
return
$f up::
f=0
if (asdf<1||asdf>4)
{
send,f
}
else{
asdf++
}
return
ok:
if (a=1&&s=1&&d=1&&f=1){
asdf=1
send,nihao
}
return

请问这个怎么改进一下，隐藏时不知彻底隐藏，而是让任务栏自动隐藏，在偶尔需要时，鼠标飘到底部任务栏还能出来，也就是跟设置任务栏自动隐藏一样

请问我想把一套按一下启动，按一下关闭的。改成按住启动松开关闭的我该怎么改

找图-by FeiYue
链接：http://pan.baidu.com/s/1c2rez1u 密码：174e