Dim a, a1, a2,a3
Delay 100
KeyDown 18, 1
KeyDown 16, 1
KeyPress 90, 1
KeyUp 16, 1
KeyUp 18, 1
Delay 100
a = GetLastKey()
Rem 判断
WaitKey 
WaitKey 
a3 = WaitKey()
If a3 = a Then 
   a1 = Plugin.Window.Foreground()
    Call Plugin.Window.Hide(a1)
    Delay 1000
End if
a2 = a1
WaitKey
Rem x
WaitKey
Delay 100
a3 = WaitKey()
If a3 = a Then 
    Call Plugin.Window.Show(a2)
    Delay 1000
    Goto 判断
Else 
    Goto x
End If