jackyq

SendKeys "^g^a{DEL}"  , True   '   If GetKeyState(vbKeyNumlock) = 0 Then  '¡ö ¦¹«ü¥O¥i¥¿½TŪ¨úª¬ºA  

SendKeys "{NUMLOCK}  ¦n¹³¦³ bug À³¸Ó¤]¨Sªk¥Î

jackyq

SendKeys ¦³ bug
¥i¥H¹Á¸Õ¥Î  keybd_event ¥h°e

jackyq

¦^´_ 5# Scott090

§â©Ò¦³  SendKeys ²¾°£
¥u¯d debug.print GetKeyState(vbKeyNumlock)  ¤@¥y

Numlock ¤â°ÊÃö³¬ , Æ[¹î GetKeyState(vbKeyNumlock) ¬O§_¥¿½T
Numlock ¤â°Ê¶}±Ò , Æ[¹î GetKeyState(vbKeyNumlock) ¬O§_¥¿½T
¦pªG³£¥¿½TµL»~, ªí¥Ü¬O SendKeys ¦b§@©Ç

jackyq

¦^´_ 7# Scott090


SendKeys ¬JµM·|§@©Ç, ¤£¦p³o³¡¤À°®¯Ü¤£¥Î¥¦

Public Sub Sendkey2(keyArray)
  For w = LBound(keyArray) To UBound(keyArray): Call keybd_event(keyArray(w), 0, &H1, 0): Next
  For w = LBound(keyArray) To UBound(keyArray): Call keybd_event(keyArray(w), 0, &H3, 0): Next
End Sub

Public Sub  clear_win  (                 )
Sendkey2 Array(vbKeyControl, vbKeyG)
Sendkey2 Array(vbKeyControl, vbKeyA)
Sendkey2 Array(vbKeyDelete)
If GetKeyState(vbKeyNumlock) = 1 Then
   Sendkey2 Array(vbKeyNumlock)
End If
End Sub

jackyq

¦^´_ 10# Scott090

³o³¡¤ÀÀ³¸Ó¤£¬Obug
sendkey ¥»¨Ó´N¦³¥¢µJªº­·ÀI

´£¨Ñ¤@ºØ²ªk¨Ó²M°£§Y®Éµ¡
¬Ý§A¯à¤£¯à±µ¨ü³oºØ¤èªk
debug.print string(88, vbcr )