羞羞的一指禅
小A一个人在宿舍里，对着电脑屏幕，观赏着某岛国动作片！哇，好带劲哦！！啪宿舍门开了，小A女朋友进来，小A。。。好尴尬。
小B一个人在单位办公室，对着电脑屏幕，观赏着某岛国动作片！哇，好带劲哦！！“咦，有脚步声”，我点，电脑屏幕上就是桌面，上边写着“业精于勤”，我操这也行！！
使用方法:
-
点击屏幕最上端最小化所有窗口,
-
再次点击最小化的窗口还原
; 点击桌面最上端最小化所有窗口,
;再次点击最小化的窗口还原
;河许人
#SingleInstance,Force
#NoEnv
SendMode,Input
SetWorkingDir,%A_ScriptDir%
SetWinDelay,0
CoordMode,Mouse,Screen
applicationname=羞羞一指禅
Gosub,MENU
WinMinimizeAllUndo
hidden=0
Return
~LButton::
MouseGetPos,mx,my,mwin,mctrl
WinGetClass,class,ahk_id %mwin%
Return
~LButton Up::
If (my=0 And mx>A_ScreenWidth/4 And mx<A_ScreenWidth/4+A_ScreenWidth/2)
If hidden=0
{
WinMinimizeAll
hidden=1
Return
}
Else
{
WinMinimizeAllUndo
hidden=0
Return
}
If mctrl Not In SysListView321
Return
If class Not In Progman,WorkerW
{
If hidden=1
{
WinMinimizeAllUndo
hidden=0
}
Return
}
WinWaitActive,ahk_id %mwin%
ControlGet,selected,List,Count Selected,%mctrl%,ahk_id %mwin%
If hidden=1
{
If selected>0
Return
WinMinimizeAllUndo
hidden=0
}
Else
{
WinMinimizeAll
hidden=1
}
Return
MENU:
Menu,Tray,DeleteAll
Menu,Tray,NoStandard
Menu,Tray,Add,%applicationname%,ABOUT
Menu,Tray,Add,
Menu,Tray,Add,关于,ABOUT
Menu,Tray,Add,退出,EXIT
Menu,Tray,Tip,%applicationname%
Menu,Tray,Default,%applicationname%
Return
ABOUT:
Gui,99:Destroy
Gui,99:Margin,20,20
Gui,99:Add,Picture,xm Icon1,%applicationname%.exe
Gui,99:Font,Bold
Gui,99:Add,Text,x+10 yp+10,%applicationname% v1.0
Gui,99:Font
Gui,99:Add,Text,y+10,- 点击桌面顶端最小化所有窗口,
Gui,99:Add,Text,xp+5 y+5,或者点击屏幕顶部的中间部分.
Gui,99:Add,Text,xp-5 y+10,- 再次点击恢复窗口.
Gui,99:Add,Picture,xm y+20 Icon2,%applicationname%.exe
Gui,99:Font,Bold
Gui,99:Add,Text,x+10 yp+10,智能热键
Gui,99:Font
Gui,99:Add,Text,y+10,查找更多工具,信息 或者打赏, 请访问
Gui,99:Font,CBlue Underline
Gui,99:Add,Text,y+5 G智能热键,www.autoahk.com
Gui,99:Font
Gui,99:Add,Picture,xm y+20 Icon7,%applicationname%.exe
Gui,99:Font,Bold
Gui,99:Add,Text,x+10 yp+10,捐赠
Gui,99:Font
Gui,99:Add,Text,y+10,支持我：
Gui,99:Font,CBlue Underline
Gui,99:Add,Text,y+5 G捐赠,www.autoahk.com/buyamoney
Gui,99:Font
Gui,99:Add,Picture,xm y+20 Icon6,%applicationname%.exe
Gui,99:Font,Bold
Gui,99:Add,Text,x+10 yp+10,AutoAHK
Gui,99:Font
Gui,99:Add,Text,y+10,这个工具原产于这里：
Gui,99:Font,CBlue Underline
Gui,99:Add,Text,y+5 GAutoAHK,http://www.autoahk.com/archives/1475
Gui,99:Font
Gui,99:Show,,%applicationname% About
hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND
OnMessage(0x200,"WM_MOUSEMOVE")
Return
智能热键:
Run,http://www.autoahk.com,,UseErrorLevel
Return
捐赠:
Run,http://www.autoahk.com/buyamoney,,UseErrorLevel
Return
AutoAHK:
Run,http://www.autoahk.com/archives/1475,,UseErrorLevel
Return
ABOUTOK:
Gui,99:Destroy
OnMessage(0x200,"")
DllCall("DestroyCursor","Uint",hCur)
Return
WM_MOUSEMOVE(wParam,lParam)
{
Global hCurs
MouseGetPos,,,,ctrl
If ctrl in Static9,Static13,Static17
DllCall("SetCursor","UInt",hCurs)
Return
}
Return
EXIT:
ExitApp
代码不会使用的话，可以到网盘直接下载可执行文件哦！！
百度网盘下载地址：
https://pan.baidu.com/s/1dFpR3MT 密码：3myr
网友评论