VB.NET怎么判断当前登录的QQ号（新版QQNT9版本)2024-9-19更新

以下VB.NET代码之前支持QQNT版本， 前几天QQ更新到QQ9版本后获取不到了，哪位表哥有空帮忙优化改善一下，谢谢

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Public Class Class1
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Public Shared Function GetClassName(hWnd As IntPtr, lpClassName As StringBuilder, nMaxCount As Integer) As Integer
    End Function
    <DllImport("user32.dll")>
    Private Shared Function IsWindowVisible(hWnd As IntPtr) As Boolean
    End Function
    <DllImport("user32.dll")>
    Private Shared Function IsWindow(hWnd As IntPtr) As Boolean
    End Function
    Public Shared Function FindAndProcessWindows() As List(Of String)
        Dim result As New List(Of String)()
        Dim hWnd As IntPtr
        Dim className As New StringBuilder(64)
        Dim qqclassName As String
        For i As Integer = 65535 To 42000000
            hWnd = CType(i, IntPtr)
            If IsWindow(hWnd) AndAlso Not IsWindowVisible(hWnd) Then
                className.Length = 0
                If GetClassName(hWnd, className, className.Capacity) <> 0 Then
                    qqclassName = className.ToString()
                    If qqclassName.StartsWith("NTQQOpenSdk") OrElse qqclassName.StartsWith("OPENSDK_SHARE2QQ_QQ_WINCLASS") Then
                        Dim match = Regex.Match(qqclassName, "_(\d+)$")
                        If match.Success Then
                            Dim result1 As String = match.Groups(1).Value
                            result.Add(result1)
                        End If
                    End If
                End If
            End If
        Next
        Return result
    End Function
End Class

蔡坤明 发表于 2024-10-30 18:15
在你的VB.NET代码中，似乎是根据窗口类名查找QQ窗口并提取特定信息之间出了问题。这可能是由于QQ的更新导致 ...

非常感谢大佬分享!

不客气的

好好学习