vb .net检查唯一打开的窗口是否为当前窗口

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.dll")>
    Private Shared Function GetForegroundWindow() As IntPtr
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim currentWindow As IntPtr = GetForegroundWindow()
        ' 进一步处理当前窗口的逻辑
    End Sub
End Class

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function GetWindowText(hWnd As IntPtr, lpString As StringBuilder, nMaxCount As Integer) As Integer
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim currentWindow As IntPtr = GetForegroundWindow()
        Dim windowTitle As New StringBuilder(256)
        GetWindowText(currentWindow, windowTitle, windowTitle.Capacity)
        ' 进一步处理当前窗口的逻辑
    End Sub
End Class

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function GetWindowText(hWnd As IntPtr, lpString As StringBuilder, nMaxCount As Integer) As Integer
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim currentWindow As IntPtr = GetForegroundWindow()
        Dim windowTitle As New StringBuilder(256)
        GetWindowText(currentWindow, windowTitle, windowTitle.Capacity)

        Dim expectedWindowTitle As String = "My Unique Window"
        If windowTitle.ToString() = expectedWindowTitle Then
            ' 当前窗口是唯一打开的窗口
        Else
            ' 当前窗口不是唯一打开的窗口
        End If
    End Sub
End Class