level 1
1.你是在向QQ发消息吗?2.Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Shift = 2 Then MsgBox "你按下了Ctrl+回车!" End IfEnd SubPrivate Sub Form_Load() Me.KeyPreview = True Timer1.Interval = 1500End SubPrivate Sub Timer1_Timer() SendKeys "^~"End Sub
2007年11月24日 05点11分