湖南营销型网站建设磐石网络知名/北京网站制作建设公司

http://ahk.5d6d.com/thread-357-1-1.html

9月6日更新：
加入了下面两行，当用KMPlayer播放电影的时候，不会播歌。
IfWinExist,ahk_class Winamp v1.x ;判断是否有在前台运行的KMplayer窗口类
Continue

另外，7楼的 aqtd 加了一个随机选歌的功能……



——————————————以下为脚本————————————————

/*天堂之门 menk33@163.com 2008年8月28日
功能:
   1.在脚本运行1小时后开始倒计时1分钟并显示提示。倒计时结束后，锁定所有设备输入，再关闭显示屏并播放一首MP3歌曲。歌曲播完后开启显示屏和解锁设备输入，移动鼠标来恢复。
   2.中途如果待机或休眠，恢复后将重载脚本，即重新计时。
   3.能用 Win+0 重载脚本。如果暂停脚本，Sleep计时不会停止。
注意：按下Ctrl+Alt+Del将解除输入设备的锁定！锁定设备输入期间如果按键盘，将激活显示屏。
*/
Menu,Tray,Icon,Shell32.dll,42

OnMessage(0x218, "监视电源广播消息") ;脚本接收到0x218:WM_POWERBROADCAST消息时调用“监视电源广播消息”这个自定义函数
监视电源广播消息(wParam) ;将电源广播消息的wParam值作为此函数里的wParam变量
{
If (wParam = 7 OR wParam = 8) ;电源广播消息的wParam值如为7:挂起，8:待机
Reload
}

Loop ;主体循环
{
Sleep,3600000 ;3600秒即1小时
IfWinExist,ahk_class Winamp v1.x ;判断是否有在前台运行的KMplayer窗口类
Continue

加1分钟=%A_Now%

加1分钟 += 1,Minutes ;当前时间变量加上1分钟，重新赋值为加1分钟
  Loop ;倒计时提示
  {
   倒计几秒=%加1分钟%
   倒计几秒 -= %A_Now%,Seconds
   ToolTip, %倒计几秒% 秒后开始休息:-)
   Sleep,33 ;瞬间进入下次循环，从而产生ToolTip跟指针移动的效果。0~20一般没实际意义。
     If A_Now>%加1分钟%
       {
        ToolTip ;清空提示
        Break ;退出倒计时提示循环
       }
  }
BlockInput,On ;开启屏蔽输入设备
SendMessage,0x112,0xF170,2,,Program Manager ;关闭显示器。0x112：WM_SYSCOMMAND，0xF170：SC_MONITORPOWER，2：关闭。-1：开启显示器。
SoundPlay,%A_Desktop%/I Could Be The One-Donna Lewis.mp3,1 ;后台播放MP3。自定义歌曲~
SendMessage,0x112,0xF170,-1,,Program Manager ;开启显示器
BlockInput,Off
ToolTip,移动鼠标来恢复
MouseGetPos,oldx,oldy ;获得指针的位置并赋值给oldx和oldy变量

MOUSE:
MouseGetPos,x,y
If x=%oldx%
If y=%oldy%
  Goto,MOUSE
ToolTip
}

#0::
ToolTip
Reload

——————————————以上为脚本————————————————

好像没啥好详细说明的，复杂的地方就在倒计时提示那个循环。