Navigation Menu

[method]

I think now we need some how copy buddy list in palalk 10 that uses CAccordionCtl instead of treeview ! did any one come with solution for CAccordionCtl ?

[method]

Thanks for reply string. I am looking for a solution for paltalk 9.9 and it is treeview still the buddy list. What i want to do is loop over buddylist and delete each user !! i know there are such programs out there but i want to learn how this can be done using vb6. i know how to send delete command but i dont know how to loop over each buddylist item one by one !

Hope you be able to help me .Thanks in advance.

[method]

String can you tell me how to highlight each user name in buddy list one by one till i reach the end of the tree ?

[method]

is it still working or they fixed the bug?

[method]

Both users see the same thing at every moment ? is it realtime stream ? or there might ber delay for one of the users with slower net ?

[method]

Very nice thing departure. could show an example of how you hooked to paltalk winsock API in vb6? How did you ignore the traffic from other applications running in system ?
So you think one can make more stable greeter for patlalk this method without missing any user entry to greet?

[method]

Chick could you explain to me what TVM_GETNEXTITEM, TVGN_NEXT values are and method to get them ? Furthermore why hItem is 2 place in sendMesange ? I am just trying to learn how i could search for a name in treeview and highlight it and be happy if you explain to me the alghoritm for it.Thanks

hItem = SendMessage(hlwd, TVM_GETNEXTITEM, TVGN_NEXT, hItem)

[method]

chike thanks for your reply. Is that a button ? once i be able to click i can read the clipboard to get the url but only problem is that i can’t click it using above method !!do you mean the button has no caption that is why we can’t but it has handle and calass name … Hope i be able some how be able to click it ..

this is the way i get handle of it:

Dim dlggroupchatwindowclass As Long, wtlsplitterwindow As Long, cwndvideobar As Long

Dim cpngimagectrl As Long, ctransparenttextout As Long

dlggroupchatwindowclass = FindWindow("dlggroupchat window class", vbNullString)

wtlsplitterwindow = FindWindowEx(dlggroupchatwindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

cwndvideobar = FindWindowEx(wtlsplitterwindow, 0&, "cwndvideobar", vbNullString)

cpngimagectrl = FindWindowEx(cwndvideobar, 0&, "cpngimagectrl", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, 0&, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

ctransparenttextout = FindWindowEx(cpngimagectrl, ctransparenttextout, "ctransparenttextout", vbNullString)

[method]

Thanks for you reply chike. I am trying to do this in vb6. So could you explain to me how to get value of hItem and what is it? Is it treeview item index ?Furthermore, how to get ByVal code? and what is it ? I assume hWnd is the handle of treeview right ? could you look at this code and tell me if this is the right way to do it in VB6. I already know how to get handle of treeview and total treeview item.Looking forward for your reply.

hWnd: handle of treeview
code:?
hItem:?
TreeView_Select : is it value of selected item in our case buddy name ?

  Const TV_FIRST = &H1100

Const TVM_SELECTITEM = (TV_FIRST + 11)

TreeView_Select = SendMessage(hWnd, TVM_SELECTITEM, ByVal code, ByVal hItem)

[method]

Departure could you show me how i can select a perticule item in treeview assuming i have the handle of treeview in VB6?Thanks in advance.

[method]

loco any update on this ? Is there away to browse such treeview one by one and for example delete them ?

[method]

Thanks string for your reply. I used the following function to get listview hwnd but unfortunelty when i use that hwnd value to count the listview items i get zero. Could you tell me what i am doing wrong to get the number of liste view itemes?
Looking forward for your reply.Thanks

code to count the listview items:

.ItemCount = SendMessage(lvWindow, LVM_GETITEMCOUNT, 0&, 0&)
MsgBox "itemcount:" & .ItemCount

Note:lvWindow is same as hwnd of listview

 

funcion to get listview hwnd value:

Function getNickListHwnd2() As Long
'Variables
'Dim mywindowclass As Long, wtlsplitterwindow As Long, atldd As Long
Dim syslistview As Long

Dim atlc As Long, atlcf As Long, atla As Long

atlc = FindWindow("#32770", "Add a pal")
syslistview = FindWindowEx(atlc, 0&, "SysListView32", vbNullString)

MsgBox syslistview
getNickListHwnd2 = syslistview
End Function

 

room list code to get hWnd :

Private Sub Command1_Click()

Dim dlggroupchatwindowclass As Long, wtlsplitterwindow As Long, cwndmembertree As Long
'Dim syslistview As Long
dlggroupchatwindowclass = FindWindow("dlggroupchat window class", vbNullString)
wtlsplitterwindow = FindWindowEx(dlggroupchatwindowclass, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
cwndmembertree = FindWindowEx(wtlsplitterwindow, 0&, "cwndmembertree", vbNullString)
syslistview = FindWindowEx(cwndmembertree, 0&, "syslistview32", vbNullString)

MsgBox syslistview

Call GetListviewItem(syslistview)
End Sub

 

[method]

@Chike wrote:

LV must be copied to paltalk process address space (VirtualAllocEx).

Can yo show me how ? i don’t know exactly what you mean!

[method]

Thanks guys i tried the following code but paltalk keep closing when i click the button. Could you you guys tell what i am doing wrong and how to fix it ?

 

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
' ByVal hwnd As Long, _
' ByVal wMsg As Long, _
' ByVal wParam As Long, _
' ByVal lParam As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Const WM_COMMAND = &H111
Private Const WM_CLOSE As Long = &H10
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_SPACE = &H20
'
Private Const LVIS_STATEIMAGEMASK As Long = &HF000
Private Const LVIS_UNCHECKED = &H1000
Private Const LVIS_CHECKED = &H2000
Private Const LVIF_STATE = &H8
Private Const LVM_FIRST = &H1000
Private Const LVM_SETITEMSTATE = (LVM_FIRST + 43)

Private Type LV_ITEM
Mask As Long
iItem As Long
iSubItem As Long
state As Long
stateMask As Long
pszText As String
cchTextMax As Long
iImage As Long
lParam As Long
iIndent As Long
End Type

Private Sub Command1_Click()
Dim x As Long, editx As Long
Dim button As Long

Dim LV As LV_ITEM
Dim Sel As Boolean
'Set up our local LV_ITEM to change the selected item
With LV
.Mask = LVIF_STATE
'.state = LVIS_SELECTED
.state = IIf(Sel, LVIS_CHECKED, LVIS_UNCHECKED)
.stateMask = LVIS_STATEIMAGEMASK
End With

x = FindWindow("#32770", "Invite to room")
If x Then
'MsgBox "found"

'button = FindWindowEx(x, 0&, "button", vbNullString)
'button = FindWindowEx(x, button, "button", vbNullString)
'button = FindWindowEx(x, button, "button", vbNullString)

button = FindWindowEx(x, 0&, "SysListView32", vbNullString)
SendMessage button, LVM_SETITEMSTATE, 1, LV

End If
End Sub

 

[method]

@String wrote:

I’m not yet sure which listview you are referring to. Where?

on palgtalk 9.6 you can play video in the room. Action==> play video in the room. There is a list view where all your video listed.

[Author]

Posts