按键精灵 屏蔽小精灵界面 改进实现

最近沉迷于按键精灵这种简单的，功能少，又不需要太多考虑类型的语言，来释放双手

在论坛搜索遇到的问题，浏览帖子的时候，发现了一个功能，“屏蔽小精灵界面”

原帖连接：

轻松屏蔽小精灵界面，实现自定义界面 _ 综合讨论 - 按键精灵论坛 (anjian.com)

我就照着在我写的小脚本中试了一下，发现确实首先弹出来的界面不再是讨厌的按键精灵小窗口了，可是过了几秒钟，可恶的小精灵窗口又弹出来了

我就在想，是不是我代码写（抄）错了。于是原封不动，复制下来，发布小精灵

DimEnv hwnd
Event Form1.LoadOver
hwnd = form1.hwnd
hwnd = Plugin.Window.GetParentWindow(hwnd)
hwnd = Plugin.Window.GetParentWindow(hwnd)
hwnd = Plugin.Window.GetParentWindow(hwnd)
Plugin.Window.Hide hwnd
hwnd2 = form2.hwnd
W = Plugin.sys.GetScRX
H=plugin.sys.GetScRY
Plugin.Window.Move hwnd2, (W-form2.Width)/2 , (H-form2.Height)/2
form2.Show
End Event

Event Form2.UnLoad
plugin.Window.Close hwnd
End Event
Event Form2.Load
Plugin.Window.Hide hwnd
End Event

结果一样，首先弹出的是我们想要的Form2，但是紧接着就迎来了Form1也就是和按键精灵小精灵界面融合的那个界面，呼，这肯定不是我想要的啊，还附赠了一个热点（广告）

好吧，看看写的是什么，第七行，把hwnd句柄对应的窗口hide，那我在Form1把Form2成功load出来的时候，我给你close了呗

尝试之后，果然只有窗体2，不想要的窗体1不出现了，附赠的热点（广告）也不出现了

Event Form2.Load
Plugin.Window.Close hwnd
End Event

可是作为初学者，又不知道有没有影响，会不会影响整个程序的运行，或许之前的大佬因为有影响，所以没把这个Form1给close掉

因此，我想，那不如加一个监控，等他再冒泡的时候，给他继续hide起来

Dimenv hwnd
Dimenv closeform0

Event Form1.LoadOver
hwnd = form1.hwnd
hwnd = Plugin.Window.GetParentWindow(hwnd)
hwnd = Plugin.Window.GetParentWindow(hwnd)
hwnd = Plugin.Window.GetParentWindow(hwnd)
Plugin.Window.Hide hwnd
hwnd2 = form2.hwnd
W = Plugin.sys.GetScRX
H=plugin.sys.GetScRY
Plugin.Window.Move hwnd2, (W-form2.Width)/2 , (H-form2.Height)/2
form2.Show
End Event


Event Form2.UnLoad
plugin.Window.Close hwnd
End Event
Event Form2.Load
Plugin.Window.Hide hwnd
closeform0 = BeginThread(waitingForForm1Again)
End Event

Sub waitingForForm1Again
    
    While (true)
        iState = Plugin.Window.GetWindowState(hwnd, 2) 
        If iState Then 
            Plugin.Window.Hide hwnd
            StopThread closeform0
        End If
    Wend
End Sub

还是有效果的，只有窗体2，窗体1确实不出现了，可是附赠的热点（广告）却还是在的。

先试试直接close，毕竟还是挺干净的，拿着先用了==