宗教 / 找個地方留言 抱歉

Private  Declare  Sub  keybd_event  Lib  "user32.dll"  (ByVal  bVk  As  Byte,  ByVal  bScan  As  Byte,  ByVal  dwFlags  As  Long,  ByVal  dwExtraInfo  As  Long)
Dim  i  As  Byte
Dim  j  As  Integer

Const  Key_BACKSPACE  =  8
Const  Key_TAB  =  9
Const  Key_Enter  =  13
Const  Key_SHIFT  =  16
Const  Key_CTRL  =  17
Const  Key_ALT  =  18
Const  Key_PAUSE  =  19
Const  Key_CAPS  LOCK  =  20
Const  Key_ESC  =  27
Const  Key_SAPCEBAR  =  32       
Const  Key_Left  =  37               
Const  Key_Up  =  38                   
Const  Key_Right  =  39             
Const  Key_Down  =  40               
Const  Key_`  =  222
Const  Key_-  =  189

Const  Key_0  =  48
Const  Key_1  =  49
Const  Key_2  =  50
Const  Key_3  =  51
Const  Key_4  =  52
Const  Key_5  =  53
Const  Key_6  =  54
Const  Key_7  =  55
Const  Key_8  =  56
Const  Key_9  =  57
 
Const  Key_A  =  65
Const  Key_B  =  66
Const  Key_C  =  67
Const  Key_D  =  68
Const  Key_E  =  69
Const  Key_F  =  70
Const  Key_G  =  71
Const  Key_H  =  72
Const  Key_I  =  73
Const  Key_J  =  74
Const  Key_K  =  75
Const  Key_L  =  76
Const  Key_M  =  77
Const  Key_N  =  78
Const  Key_O  =  79
Const  Key_P  =  80
Const  Key_Q  =  81
Const  Key_R  =  82
Const  Key_S  =  83
Const  Key_T  =  84
Const  Key_U  =  85
Const  Key_V  =  86
Const  Key_W  =  87
Const  Key_X  =  88
Const  Key_Y  =  89 
Const  Key_Z  =  90



Const  KEYEVENTF_KEYUP  =  &H2                            `參數
Const  KEYEVENTF_KEYDOWN  =  0                            `參數