天部里面9星手工怎么做。。
W键弹起按键精灵自动按s键,代码如下:满意请采纳,谢谢
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
ajm = 87 //w的按键码
Do
aj = WaitKey
If aj = 87 Then
do
Key = GetAsyncKeyState(ajm)
If Key = 0 Then //w键是弹起状态
KeyPress "S", 1
Exit Do
End If
Loop
End If
Delay 10
Loop...
7895