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

查看 41|回复 4
作者:466640010   
以下VB.NET代码之前支持QQNT版本, 前几天QQ更新到QQ9版本后获取不到了,哪位表哥有空帮忙优化改善一下,谢谢
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Public Class Class1
   
    Public Shared Function GetClassName(hWnd As IntPtr, lpClassName As StringBuilder, nMaxCount As Integer) As Integer
    End Function
   
    Private Shared Function IsWindowVisible(hWnd As IntPtr) As Boolean
    End Function
   
    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
OP
  

没有表哥帮忙解决一下吗
dianziguan   

最新的qqnt 9.9.15-28131(64位)失效了,无法返回qq号码了
466640010
OP
  

有没有大佬可以解决?
rmb788520   

有没有大佬可以解决?
您需要登录后才可以回帖 登录 | 立即注册

返回顶部