按键精灵隐藏当前窗口源码

运行环境：分辨率：1440×900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.50.11632

@3437224462012/11/23

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