Event Form1.Button1.Click
Call ceshi()
End Event
Sub ceshi()
n=0
Do
Delay 500
n=n+1
TracePrint n
AnJianMa = GetLastKey()
If AnJianMa = 123 Then
ExitScript
End If
Loop
End Sub
Event Form1.Button1.Click
Call ceshi()
End Event
Sub ceshi()
n=0
Do
Delay 500
n=n+1
TracePrint n
AnJianMa = GetLastKey()
TracePrint AnJianMa
If AnJianMa = 123 Then
Exit Do
End If
Loop
TracePrint "退出了"
EndScript
End Sub