[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] 求一工具,实现“鼠标长时间不动,关闭某一程序或进程”

求一工具,实现“鼠标长时间<时间可设定>不动,关闭某一程序或进程”

非常感谢版主tmplinshi提供的方案,此方案完全可以达到我的目的。

TOP

任务计划不行吗?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

http://pan.baidu.com/share/link?shareid=4231451799&uk=1124163200

ak: Away Kill - 在指定时间内没有键盘或鼠标操作,则结束指定进程。

用法:

    ak.exe <秒> <进程名或PID> [结束次数]

    注意: 参数顺序不能变

    <秒>         -    数值必须大于 1。
    [结束次数]   -    结束进程几次后退出。默认不退出。


用 AutoHotkey 写的。实现方法不是很好。先将就着用一下,我再看看其他的方法

源码:
  1. #NoTrayIcon
  2. #NoEnv
  3. #SingleInstance off
  4. #Persistent
  5. s = %1%
  6. s := Abs(s)
  7. IfLess, s, 2, goto usage
  8. IfEqual, 2,, goto usage
  9. ms := s * 1000
  10. n_kill = %3%
  11. n_kill := Abs(n_kill)
  12. SetTimer, MonitorAway, 1000
  13. return
  14. MonitorAway:
  15. If (A_TimeIdle > ms)
  16. {
  17.     MouseGetPos, x, y
  18.     MouseMove, % x+1, %y%, 0
  19.     MouseMove, %x%, %y%, 0
  20.     goto kill
  21. }
  22. return
  23. kill:
  24. Process, Close, %2%
  25. if n_kill <>
  26. {
  27.     n_kill -= 1
  28.     if n_kill <= 0
  29.         ExitApp
  30. }
  31. return
  32. usage:
  33. text =
  34. (
  35. ak: Away Kill - 在指定时间内没有键盘或鼠标操作,则结束指定进程。
  36. 用法:
  37.     ak.exe <秒> <进程名或PID> [结束次数]
  38.     注意: 参数顺序不能变
  39.     <秒>         -    数值必须大于 1。
  40.     [结束次数]   -    结束进程几次后退出。默认不退出。
  41. )
  42. MsgBox %text%
  43. ExitApp
复制代码

TOP

不知道AutoHotkey可以实现你这个功能不?没用过它

TOP

返回列表