While 1key = GetLastKey()If key = 68 Then KeyDown "D", 1 Delay 1000 KeyUp "D", 1 WaitKey ElseEnd IfWend
不太明白你的意思,你是说每隔一秒按一下D 还是按下D一秒钟弹起?