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

466640010

以下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

466640010

没有表哥帮忙解决一下吗

dianziguan

最新的qqnt 9.9.15-28131（64位）失效了，无法返回qq号码了

466640010

有没有大佬可以解决？

rmb788520

有没有大佬可以解决？