Dim ASCII(3)ASCII(0) = 87ASCII(1) = 83ASCII(2) = 65ASCII(3) = 68While True Randomize RndNumber = Int(4 * Rnd) KeyPress ASCII(RndNumber), 1 Delay 5000Wend
我猜你想要的是按下（KeyDown）
