Navigation Menu

[James]

Private Function GetTreeviewHandlesFrom(ByVal hwnd As IntPtr) As List(Of IntPtr)
        TVList.Clear()
        EnumChildWindows(hwnd, AddressOf EnumChildWindowProc, &H0)
        Return TVList
    End Function

    Private Function EnumChildWindowProc(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Integer
        Dim cn As New StringBuilder(255)
        GetClassNameW(hwnd, cn, 255)
        If cn.ToString.ToLower.ToLower.Contains("systreeview32") Then 'Make sure the child window is a Treeview before adding its handle to the List
            TVList.Add(hwnd)
        End If
        Return 1
    End Function

     _
    Private Shared Function FindWindowW( ByVal lpClassName As String,  ByVal lpWindowName As String) As IntPtr
    End Function

     _
    Private Shared Function GetClassNameW(ByVal hWnd As IntPtr,  ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
    End Function

    Private Delegate Function EnumCallBackDelegate(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Integer

     _
    Private Shared Function EnumChildWindows(ByVal hWndParent As System.IntPtr, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As  Boolean
    End Function

[James]

i’m currently working on this. stay tuned. 🙂

[James]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim HWND As IntPtr
        HWND = FindWindowLike(0, "*Video Chat Room*", "*")
        ShowWindow(HWND, SW_MINIMIZE)
        HWND = FindWindowLike(0, "*Topic*", "*")
        ShowWindow(HWND, SW_MINIMIZE)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim HWND As IntPtr
        HWND = FindWindowLike(0, "*Video Chat Room*", "*")
        ShowWindow(HWND, SW_NORMAL)
        HWND = FindWindowLike(0, "*Topic*", "*")
        ShowWindow(HWND, SW_NORMAL)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim csplitterctrlsts, x, cbuttonts, hParentWindow, hParentWindow2 As IntPtr
        hParentWindow = FindWindowLike(0, "*: *", "*")
        SetForegroundWindow(hParentWindow)
        x = FindWindowEx(hParentWindow, 0&, "#32770", vbNullString)
        x = FindWindowEx(hParentWindow, x, "#32770", vbNullString)
        x = FindWindowEx(hParentWindow, x, "#32770", vbNullString)
        x = FindWindowEx(hParentWindow, x, "#32770", vbNullString)
        x = FindWindowEx(hParentWindow, x, "#32770", vbNullString)
        csplitterctrlsts = FindWindowEx(x, 0&, "csplitterctrlsts", vbNullString)
        x = FindWindowEx(csplitterctrlsts, 0&, "#32770", vbNullString)
        cbuttonts = FindWindowEx(x, 0&, "cbuttonts", vbNullString)
        SendMessage(cbuttonts, WM_LBUTTONDOWN, 0, Nothing)
        SendMessage(cbuttonts, WM_LBUTTONUP, 0, Nothing)

    End Sub

[James]

Compiled

[James]

lol

[James]

This is nice thank you

[James]

This is fantastic. I’ve been trying to figure this out for weeks, and you found both the .NET and VB6 code. amazing.

All that you need to get this code going is this:

Dim html As HTMLDocument
html = IEDOMFromhWnd(hwnd)
MsgBox(html.body.innerText)

OKAY, so… any idea how to get the list of chatroom members? I started a new thread

Oh you make it sound so easy.

[James]

I will try and convert this to VB.NET

[Author]

Posts