按下的键怎么弹不起来了？

我用以下的代码实现：按下Win键和“R”的功能  
   
  keybd_event   91,0,0,0  
  keybd_event   82,0,0,0  
   
  keybd_event   91,0,KEYEVENTF_KEYUP,0  
  keybd_event   82,0,KEYEVENTF_KEYUP,0  
   
  可是发现   "win”键并没有弹起。我错在什么地方了 问题点数：20、回复次数：1Top

1 楼rainstormmaster（暴风雨 v2.0）回复于 2003-06-01 23:24:52 得分 20

Const   KEYEVENTF_KEYUP   =   &H2  
  Private   Declare   Sub   keybd_event   Lib   "user32.dll"   (ByVal   bVk   As   Byte,   ByVal   bScan   As   Byte,   ByVal   dwFlags   As   Long,   ByVal   dwExtraInfo   As   Long)  
   
  Private   Sub   Command1_Click()  
          keybd_event   91,   0,   0,   0  
          keybd_event   82,   0,   0,   0  
          keybd_event   91,   0,   KEYEVENTF_KEYUP,   0  
          keybd_event   82,   0,   KEYEVENTF_KEYUP,   0  
  End   SubTop

相关问题

• keybd
• keyeventf
• keyup
• 键
• event
• byval
• sub
• win
• long
• byte

• 帖主：cnlyh
• rainstormmaster

• Visual Basic类图书
• Visual Basic类源码下载