防止应用程序截屏(容器式,防止极域电子教室和录屏软件录制)

核心原理、实现目的

1、使用Panel容器将外部窗口嵌入自己写的程序

2、使用防止截屏的函数来对窗口透明,这可以使本窗口内所有窗口在录屏软件上消失

3、解放,抓取,存储句柄,实现摆脱录屏(极域监控)

程序设计

本人始终坚持使用vb.net来编程,不是C#难学,而是vb.net更有性价比……C#源码可以自行翻译C#与vb.net互相转换

防止应用程序截屏(容器式,防止极域电子教室和录屏软件录制)_第1张图片中间那一坨是Panel容器,也可以替换成别的控件

如何选取窗口?

看到座上的一个按钮,显示的是一个“+”

按住它不放并且移动到窗口上即可,注意的是,最好要移动到窗口的标题栏或者是边框上才算是该窗体的最终窗体,本人编程能力有限,目前功能不是很完善

此时松开鼠标,就可以看到label处是对应的窗口的名字,listbox内是历史窗口的句柄信息和窗口标题。

如何将目标窗口拖入容器?

点击放入容器,即可将选定窗口或当前选定窗口“嵌入” panel

点击移出容器即可将选定窗口或当前选定窗口“挤出” panel

如何防止截屏?

按下防止截屏即可,此时按钮为红色,容器内窗口为无法录制(截屏),这样性能会变差,可以在必要时恢复录制

代码

API解读

全部封装到模块

    ''' 
    ''' 屏幕坐标->窗口句柄,实现鼠标移动到哪就得到什么窗口的句柄
    ''' 
    ''' 
    ''' 
    ''' 
    
    Public Function WindowFromPoint(xPoint As Integer, yPoint As Integer) As IntPtr

    End Function
    ''' 
    ''' 防止截屏的核心,设置窗口是否可录制
    ''' 
    ''' 
    ''' 常量
    ''' 
    
    Public Function SetWindowDisplayAffinity(hWnd As IntPtr, dwAffinity As Integer) As Boolean
    End Function

    ''' 
    ''' 获取窗口标题,注意需要一个外部变量存储标题名称,是ByRef / out
    ''' 
    ''' 
    ''' 
    ''' 接收的最大值
    ''' 
    
    Public Function GetWindowText(hWnd As IntPtr, lpString As StringBuilder, nMaxCount As Integer) As Integer

    End Function

    ''' 
    ''' 设置窗口的父容器
    ''' 
    ''' 
    ''' 此处写IntPtr.Zero则移除容器
    ''' 
    
    Public Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr

    End Function

    ''' 
    ''' 改变窗口形态
    ''' 
    ''' 
    ''' 常量
    ''' 
    
    Public Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As Integer

    End Function
    ''' 
    ''' 查找标题窗口
    ''' 
    ''' 可为空
    ''' 
    ''' 
    
    Public Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr

    End Function

 常量声明

SetWindowDisplayAffinity

防止应用程序截屏(容器式,防止极域电子教室和录屏软件录制)_第2张图片

 ShowWindow

防止应用程序截屏(容器式,防止极域电子教室和录屏软件录制)_第3张图片主要代码

请自行分离代码

初始化

Dim ispick As Boolean
Public Const WDA_NONE = &H0
Public Const WDA_EXCLUDEFROMCAPTURE = &H11
Dim s As New StringBuilder
Dim hwnd As IntPtr
Dim childHwnd As IntPtr'没用

Dim dirHwnd As New List(Of HwndName)

Dim jiyuPath As String

Public KeyHandle As Integer'没用
Structure HwndName
    Dim hwnd As IntPtr
    Dim text As String
    Sub New(hwnd As IntPtr, text As String)
        Me.hwnd = hwnd
        Me.text = text
    End Sub
End Structure

截屏组

'''防止截屏
SetWindowDisplayAffinity(Me.Handle, WDA_EXCLUDEFROMCAPTURE)
Button2.BackColor = Color.Red
Button3.BackColor = Color.Blue
'''恢复截屏
SetWindowDisplayAffinity(Handle, WDA_NONE)
Button2.BackColor = Color.Blue
Button3.BackColor = Color.Red

容器组

'''放入容器 这里if可以排除其他控件,防止手欠把自己的控件也嵌入panel
If Label1.Text <> "+" Then
    SetParent(hwnd, Panel1.Handle)
End If
'''移出容器
SetParent(hwnd, IntPtr.Zero)
'''更新(最大化窗口)
SetParent(hwnd, Panel1.Handle)
ShowWindow(hwnd, 3)

选取窗口

'''按下
Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
    ispick = True

End Sub
'''移动
Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove
    If ispick = True Then
        hwnd = WindowFromPoint(MousePosition.X, MousePosition.Y)
        GetWindowText(hwnd, s, 255)
        Label1.Text = s.ToString
    End If
End Sub
'''松开
Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
    ispick = False

    dirHwnd.Add(New HwndName(hwnd, s.ToString))
    ListHwnd.Items.Clear()
    For Each item In dirHwnd
        ListHwnd.Items.Add("标题:" & item.text & " 句柄:" & item.hwnd.ToString)
    Next
End Sub

其余代码

Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
    Panel1.Width = Width - Panel1.Location.X - 25
    Panel1.Height = Height - 75
End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked = False Then
        Me.TopMost = False
    Else
        TopMost = True
    End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If TopMost = True Then
        TopMost = True
    End If
End Sub
'可以不写
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    Form2.Show()
    Dim hwnd

    hwnd = FindWindow(vbNullString, "屏幕广播")
    SetParent(hwnd, Form2.Panel2.Handle)
    ShowWindow(hwnd, 3)
    'SetWindowDisplayAffinity(Form2.Handle, WDA_EXCLUDEFROMCAPTURE)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For Each p In Process.GetProcesses
        If p.ProcessName = "StudentMain" Then
            jiyuPath = p.MainModule.FileName

        End If
    Next
    If jiyuPath = "" Then
        MsgBox("极域未运行,请在极域运行后点击启动极域即可完成操作")
    End If
    CheckBox1.Checked = True
End Sub


Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    IO.File.WriteAllBytes("C:/助手.exe", My.Resources.v1_2_助手_64位)
    Process.Start("C:/助手.exe")
End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    IO.File.WriteAllText("C:/RootCA.reg", My.Resources.RootCA)
    Process.Start("regedit", "/s C:/RootCA.reg")
End Sub


Private Sub ListHwnd_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListHwnd.SelectedValueChanged
    If ListHwnd.SelectedIndex <> -1 Then
        hwnd = dirHwnd(ListHwnd.SelectedIndex).hwnd
        Label1.Text = dirHwnd(ListHwnd.SelectedIndex).text
    End If
End Sub

Private Sub Button10_Click_1(sender As Object, e As EventArgs) Handles Button10.Click
    If jiyuPath = "" Then
        For Each p In Process.GetProcesses
            If p.ProcessName = "StudentMain" Then
                jiyuPath = p.MainModule.FileName
            End If
        Next
        If jiyuPath = "" Then
            MsgBox("极域未运行,请在极域运行后点击启动极域即可完成操作")
        End If
    Else
        Process.Start(jiyuPath)
    End If
End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    Process.Start("cmd", "/c taskkill /f /im studentmain.exe")
End Sub

源程序和源代码应该会在开头有,感谢博主小流汗黄豆提供的应用程序和设计思路小流汗黄豆 

你可能感兴趣的:(vb.net,vb.net,.net,图形渲染,反截屏,反极域)