James

Forum Replies Created

Viewing 8 posts - 1 through 8 (of 8 total)

Author

Posts

January 31, 2019 at 6:06 pm in reply to: Camfrog CTreeViewTS chat member list #186395

Member

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

January 31, 2019 at 5:19 pm in reply to: Camfrog CTreeViewTS chat member list #186396

Member

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

January 29, 2019 at 2:14 pm in reply to: Microphone Grabbing in Camfrog #190215

Member

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

January 28, 2019 at 7:55 pm in reply to: Microphone Grabbing in Camfrog #190216

Member

Compiled

January 28, 2019 at 7:24 pm in reply to: pls Help Me Voice Actived VBnet #186391

Member

lol

January 28, 2019 at 7:20 pm in reply to: Internet Explorer_Server Class #186400

Member

This is nice thank you

January 28, 2019 at 10:23 am in reply to: Internet Explorer_Server Class #186401

Member

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.

January 28, 2019 at 5:09 am in reply to: Camfrog Op Tool Source Code #186419

Member

I will try and convert this to VB.NET

Author

Posts

Related

Viewing 8 posts - 1 through 8 (of 8 total)