Skip to content

toxinburn

Forum Replies Created

Viewing 3 posts - 1 through 3 (of 3 total)
  • Author
    Posts
  • #190670
    toxinburn
    Member

    thanks ya I had messed with the coding on both of those to try to make it add it to a list box using a string, just didnt work for me i will take a look at this and probably be like DUH thanks again.

    #190240
    toxinburn
    Member

    Well for now since I am soooooo rusty and out of practice I am just starting back to what I am more familiar with at the moment and that is VB6, I have at least got some of my codes to work there lol. Anyhow I was gonna show you guys another code that I have but I am trying to figure out how to get it to show up in a list. this code is to find the paltalk names list in a chat room but how do i make it go to my own list when I click a command button?

     

    Public Sub GetNames()
    Dim TheText As String, TL As Long
    Dim dlggroupchatwindowclass As Long
    Dim splitterwindowex As Long
    Dim cwndmembertree As Long
    Dim syslistview As Long
    
    dlggroupchatwindowclass = FindWindow("dlggroupchat window class", vbNullString)
    splitterwindowex = FindWindowEx(dlggroupchatwindowclass, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    cwndmembertree = FindWindowEx(splitterwindowex, 0&, "cwndmembertree", vbNullString)
    syslistview = FindWindowEx(cwndmembertree, 0&, "syslistview32", vbNullString)
    TL = SendMessageLong(syslistview&, WM_GETTEXTLENGTH, 0&, 0&)
    TheText = String(TL + 1, " ")
    Call SendMessageByString(syslistview&, WM_GETTEXT, TL + 1, TheText)
    TheText = Left(TheText, TL)
    
    If syslistview = 0 Then
    MsgBox "Error: Cannot find window"
    Exit Sub
    End If
    
    End Sub

     

    #190242
    toxinburn
    Member

    Wow go figure the VB is newer yet more complicated lol, oh well I really appreciate your help bud and I actually get this at least looks like i will have to do that with all functions that I add to the module then to make sure they work in any instance just seems crazy to do away with the As Any

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