批处理文件怎样映射键盘？

liu12300123

比如说：设定10秒内，检测到键盘按下“E”则打开某网站、计算器、指定的文本“A.TXT”；检测到键盘按下“空格”则关闭已运行的指定程序（最好多个）；检测到“Q”则启动“QQ”什么的 可否？
不知是否有高手解答下

cjiabing

请使用第三方！~在论坛第三方版块。
因为，第一，批处理不善于监控；第二，批处理不善于获得键盘操作。
当然，你想按下键盘就知道结果而无须enter也是可以的。

liu12300123

可以？  怎么弄？   第三方？  软件吗？  VBS？

liu12300123

比如说：设定10秒内，检测到键盘按下“E”则打开某网站、计算器、指定的文本“A.TXT”；检测到键盘按下“空格”则关闭已运行的指定程序（最好多个）；检测到“Q”则启动“QQ”什么的 可否？
不知是否有高手解答下  求解

Perl

回复 2# cjiabing


choice命令可以限时输入的吧？

cjiabing

回复 4# Perl


    你说的限时和我说的不一样呢。批处理可以限时啊，用choice也得，用其他办法也得（搜索：按任意键和自动退出）。不过我从来没用过choice和shift，既然被淘汰了就不必用了。

Perl

回复 5# cjiabing


Vista和Windows7都是自带choice命令的，淘汰一词从何说起啊？

cjiabing

回复 6# Perl


    没有过xp以上的，xp没有呢。看来是我淘汰了。

cjiabing

不要开那么多帖！~把标题的重心放在前面！~

vsbat

低级键盘钩子 WH_KEYBOARD_LL
最适合了~~~

liu12300123

求高手详解，偶只会模仿，还未超越·····

liu12300123

找到一个关于屏蔽的，不知运行程序和10秒内有效 怎么弄？

　LRESULT  CALLBACK  LowLevelKeyboardProc(int  nCode,  WPARAM  wParam,  LPARAM  lParam)  
　　{  
     　　  BOOL  fEatKeystroke  =  FALSE;  
     　　  PKBDLLHOOKSTRUCT  p  =  NULL;  

　　  if  (nCode  ==  HC_ACTION)    
   　　    {  
    　　           p  =  (PKBDLLHOOKSTRUCT)  lParam;  
    　　           switch  (wParam)    
    　　           {  
    　　                   case  WM_KEYDOWN:    
    　　                   case  WM_SYSKEYDOWN:  
           　　                                    case  WM_KEYUP:          
            　　           case  WM_SYSKEYUP:    
         　　      fEatKeystroke  =  (p->vkCode  ==  VK_LWIN)    ¦  ¦  (p->vkCode  ==  VK_RWIN)    ¦  ¦    //  屏蔽Win  
           　　    //  屏蔽Alt+Tab  
           　　    ((p->vkCode  ==  VK_TAB)  &&  ((p->flags  &  LLKHF_ALTDOWN)  !=  0))    ¦  ¦  
             　　  //  屏蔽Alt+Esc  
             　　  ((p->vkCode  ==  VK_ESCAPE)  &&  ((p->flags  &  LLKHF_ALTDOWN)  !=  0))    ¦  ¦  
             　　  //  屏蔽Ctrl+Esc  
             　　  ((p->vkCode  ==  VK_ESCAPE)  &&  ((GetKeyState(VK_CONTROL)  &  0x8000)  !=  0));  
             　　  break;  
               　　        default:  
                     　　          break;  
          　　 }  
    　　   }  
 
　　return  (fEatKeystroke  ?  TRUE  :  CallNextHookEx(glhHook,nCode,wParam,lParam));  
　　}  
复制代码

ivor

Hook 不太懂这方面的内容

Perl

回复 3# liu12300123


试试choice命令吧

Perl

choice命令不满足要求吗？