Paltalk 9.x Handles Class Vb.net

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #187171
    TWiZA
    Member

    Hey

    It’s just my old method https://www.imfiles.com/topic/twiza-roomscontrols-handles-9-29-49-5-source/ put in a class

    It’s not really conventional lol but it still works.

     

    Public Class PtkRoom
    
    Private Delegate Function EnumWin(ByVal HwD As Integer, ByRef lparam As Integer) As Int32
    
    Private Declare Function EnumWindows Lib "user32.dll" Alias "EnumWindows" (ByVal FuncCall As EnumWin, ByRef lParam As Integer) As Boolean
    Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Integer, ByVal FuncCall As EnumWin, ByRef lParam As Integer) As Boolean
    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal HwnD As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
    
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HwnD As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal HwnD As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
    
    Private Const WM_GETTEXT = &HD
    Private Const WM_GETTEXTLENGTH = &HE
    
    Private _RoomName As String
    Private _RoomHwd As Integer
    Private _listHWD As Integer
    Private _roomCTL As Integer
    Private _sendCTL As Integer
    Private Shared _Rooms As New List(Of Integer)
    
    Sub New(ByVal RoomHwd As Integer)
    
    _RoomHwd = RoomHwd
    _RoomName = GetText(RoomHwd)
    EnumChildWindows(RoomHwd, New EnumWin(AddressOf FindHwndCTL), 0)
    
    End Sub
    
    Public Shared Function hGetRooms() As Integer()
    
    EnumWindows(New EnumWin(AddressOf FindRooms), 0)
    Return _Rooms.ToArray
    
    End Function
    
    Public ReadOnly Property hRoomWindow As Integer
    Get
    Return _RoomHwd
    End Get
    End Property
    
    Public ReadOnly Property hUsersListCTL As Integer
    Get
    Return _listHWD
    End Get
    End Property
    
    Public ReadOnly Property hRoomTextCTL As Integer
    Get
    Return _roomCTL
    End Get
    End Property
    
    Public ReadOnly Property hSendTextCTL As Integer
    Get
    Return _sendCTL
    End Get
    End Property
    Public ReadOnly Property RoomName As String
    Get
    Return _RoomName
    End Get
    End Property
    
    Private Shared Function FindRooms(ByVal HwD As Integer, ByRef lparam As Integer) As Int32
    
    Dim sClass As String = Space(255)
    Dim nC As Integer = GetClassName(HwD, sClass, 255)
    Dim WinTxt As String
    
    sClass = sClass.Substring(0, nC)
    
    If sClass = "DlgGroupChat Window Class" Then
    WinTxt = GetText(HwD)
    If WinTxt.Contains(" Voice Room") Then
    _Rooms.Add(HwD)
    End If
    End If
    
    Return 1
    End Function
    
    Private Function FindHwndCTL(ByVal HwD As Integer, ByRef lparam As Integer) As Int32
    
    Dim sClass As String = Space(255)
    Dim nC As Integer = GetClassName(HwD, sClass, 255)
    Static i As UShort
    
    sClass = sClass.Substring(0, nC)
    
    If sClass = "SysListView32" Then _listHWD = HwD
    If sClass = "RichEdit20A" Then
    i += 1
    If i = 3 Then _sendCTL = HwD
    If i = 4 Then _roomCTL = HwD : i = 0 : Return 0 : Exit Function
    End If
    
    Return 1
    End Function
    
    Private Shared Function GetText(ByVal Hwnd As Integer) As String
    
    Dim MyStr As String = Space(SendMessage(Hwnd, WM_GETTEXTLENGTH, 0, 0) + 1)
    SendMessageByString(Hwnd, WM_GETTEXT, Len(MyStr), MyStr)
    Return MyStr.Replace(Chr(0), "")
    
    End Function
    
    End Class

     

    Example of use in form named “form1” with a TextBox named “TextBox1”

    Public Class Form1
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
    For Each i As Integer In PtkRoom.hGetRooms
    Dim Room As New PtkRoom(i)
    With Room
    TextBox1.Text &= .RoomName & vbCrLf & "Window Handle: " & .hRoomWindow.ToString & vbCrLf & _
    "Users List (SysListView32) Handle: " & .hUsersListCTL.ToString & vbCrLf & _
    "Room Text (RichEdit20A) Handle: " & .hRoomTextCTL.ToString & vbCrLf & _
    "Send Text (RichEdit20A) Handle: " & .hSendTextCTL.ToString & vbCrLf & vbCrLf
    End With
    Next
    End Sub

     

    I’m sorry I got this bad habit of sources with no comments 😳


    Message for people who don’t understand what’s going on this class
    You should use Winspector Spy or Spy++ and some Google, That’s the way I did 😉

    #187172
    String
    Member

    Works. Good example of creating a class also.

Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.