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

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

运行环境：分辨率：1440x900 色深：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