基于VB .NET Framework的通用模态窗体及设备管控问题咨询

一、替代全局模态窗体：全屏幕覆盖窗口 #

Windows系统禁止恶意阻塞UI，但教育类应用可通过合法的全屏幕覆盖实现“锁定”效果：

• 枚举所有显示器，为每个显示器创建无边框、置顶的全屏窗体，覆盖整个显示区域
• 窗体设置TopMost=True，并通过Timer定期检查是否被其他窗口覆盖，确保始终在最上层
• 在覆盖窗体上集成挑战界面，完成后关闭所有覆盖窗口并恢复之前的窗口状态

示例代码（VB.NET）：

Imports System.Windows.Forms

' 创建多显示器覆盖窗口
Sub CreateFullScreenOverlays()
    For Each scr In Screen.AllScreens
        Dim overlay As New Form()
        overlay.FormBorderStyle = FormBorderStyle.None
        overlay.Bounds = scr.Bounds
        overlay.TopMost = True
        overlay.BackColor = Color.DimGray ' 可替换为带挑战内容的界面
        overlay.Show()
    Next
End Sub

' 关闭所有覆盖窗口
Sub CloseOverlays()
    For Each frm In Application.OpenForms
        If frm.FormBorderStyle = FormBorderStyle.None AndAlso frm.TopMost Then
            frm.Close()
        End If
    Next
End Sub

二、优化进程管控：避免暂停进程，改为隐藏窗口 #

暂停进程会导致点击崩溃，改为隐藏/最小化目标进程窗口更安全：

• 使用Windows APIShowWindowAsync操作进程主窗口，而非暂停进程
• 监听进程创建事件（通过WMI或Process类的监控），发现目标应用启动时立即隐藏其窗口
• 挑战完成后，恢复所有被隐藏的窗口

示例代码（VB.NET）：

Imports System.Diagnostics
Imports System.Runtime.InteropServices

<DllImport("user32.dll")>
Private Shared Function ShowWindowAsync(hWnd As IntPtr, nCmdShow As Integer) As Boolean
End Function

Private Const SW_HIDE As Integer = 0
Private Const SW_RESTORE As Integer = 9

' 隐藏指定进程的窗口
Sub HideTargetApps(appNames As List(Of String))
    For Each name In appNames
        For Each proc In Process.GetProcessesByName(name)
            If proc.MainWindowHandle <> IntPtr.Zero Then
                ShowWindowAsync(proc.MainWindowHandle, SW_HIDE)
            End If
        Next
    Next
End Sub

' 恢复被隐藏的窗口
Sub RestoreTargetApps(appNames As List(Of String))
    For Each name In appNames
        For Each proc In Process.GetProcessesByName(name)
            If proc.MainWindowHandle <> IntPtr.Zero Then
                ShowWindowAsync(proc.MainWindowHandle, SW_RESTORE)
            End If
        Next
    Next
End Sub

三、微软商店UWP应用管控方案 #

UWP应用运行在沙箱中，无法直接暂停进程，可通过以下方式处理：

• 利用UWP窗口管理API：通过WinRT API枚举UWP应用的窗口实例，获取句柄后用ShowWindowAsync隐藏
• 集成Windows屏幕时间功能：通过调用屏幕时间的API，限制特定UWP应用的使用权限，挑战完成后解除限制
• 创建辅助UWP应用：开发轻量UWP应用与你的WinForms应用通信，由UWP应用管控同沙箱内的其他应用窗口

示例代码（枚举UWP窗口）：

Imports Windows.ApplicationModel.Core
Imports WinRT.Interop

' 隐藏所有UWP应用窗口
Sub HideUwpApps()
    For Each appView In CoreApplication.Views
        Dim coreWindow = appView.CoreWindow
        Dim hWnd = WindowNative.GetWindowHandle(coreWindow)
        ShowWindowAsync(hWnd, SW_HIDE)
    Next
End Sub

四、额外增强建议 #

• 拦截系统快捷键：使用键盘钩子拦截Alt+Tab、Win键等切换窗口的快捷键，防止儿童绕过覆盖界面
• 请求管理员权限：在应用清单中设置requestedExecutionLevel为requireAdministrator，确保有足够权限管控进程和窗口
• 保存窗口状态：在隐藏窗口前记录每个窗口的位置和状态，挑战完成后精准恢复

内容的提问来源于stack exchange，提问作者rbairas