Navigation Menu

[honey_34]

what kind of list control paltalk 10 uses . can you show me an example . i read the comments in your previous project and it was very helpful .. thanks in advance

[honey_34]

i tried to change the handle for the pal friends list treeview as follow..
gradienttreeviewclass = getPalSubForm(“seinfeld_superman”, “Paltalk Messenger”, “CAccordianctrl”, 1)

im using ms spy++ instead of PAT spy , but am still getting error >> “Run time error : subscript out of range ” in CopyTargetTreeview procedure . could any one tell me what is the problem ? 🙁

[honey_34]

thx string . yes i was able to collect my friend list before the latest release -> paltalk 10 . would you please update it .. ? thank you again

[honey_34]

i added it via the vb program (Microsoft Windows Common Control 6.0 (sp6)) 🙄

[honey_34]

hi Admin thank you for the latest update , but am asking is there is any way for the treeview item , i mean paltalk buddy list .

[honey_34]

hello guys , could any one show example in vb

[honey_34]

yah i tried all updated source code by Admin , but it is not the code that am looking for 🙁 . thank you for reply

[honey_34]

i tried to understand the code posted by chike and Departure , but i couldn’t am not familiar with C++ and delphi 🙁 .. so how can i convert it to vb6 ?

[honey_34]

thank you Chike .. i gt it but it seems not working with paltalk 9.6

[honey_34]

Sorry guys i expected the getlistviewitem will return my paltalk nicknames when i call GetMyPalList Function.

Function GetMyPalList()

Dim SuperM As Long, Wsplt As Long, Atla, GradViewClass As Long

SuperM = FindWindow("seinfeld_superman", vbNullString)

Wsplt = FindWindowEx(SuperM, 0&, "wtl_splitterwindow", vbNullString)

Atla = FindWindowEx(Wsplt 0&, "atl:0080daa8", vbNullString)

GradViewClass = FindWindowEx(Atla, 0&, "gradienttreeviewclass", vbNullString)



' Then pass GradViewClass to the GetListViewItem



Call GetListviewItem(GradViewClass)

End Function

This is GetListviewItem code posted by chike i guess.

Public Function GetListviewItem(ByVal lstviewhwnd As Long) As String

Dim result              As Long

Dim myItem              As LV_ITEMA

Dim pHandle             As Long

Dim pStrBufferMemory    As Long

Dim pMyItemMemory       As Long

Dim strBuffer()         As Byte

Dim Index               As Long

Dim tmpString, tmp2          As String

Dim strLength           As Long

Dim ProcessID As Long

Dim ItemCount, i As Long



'**********************

'init the string buffer

'**********************

ReDim strBuffer(MAX_LVMSTRING)



'***********************************************************

'open a handle to the process and allocate the string buffer

'***********************************************************

Call GetWindowThreadProcessId(lstviewhwnd, ProcessID)

pHandle = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, ProcessID)

pStrBufferMemory = VirtualAllocEx(pHandle, 0, MAX_LVMSTRING, MEM_COMMIT, PAGE_READWRITE)



'************************************************************************************

'initialize the local LV_ITEM structure

'The myItem.iSubItem member is set to the index of the column that is being retrieved

'************************************************************************************

myItem.mask = LVIF_TEXT

myItem.iSubItem = 2

myItem.pszText = pStrBufferMemory

myItem.cchTextMax = MAX_LVMSTRING



'**********************************************************

'write the structure into the remote process's memory space

'**********************************************************

pMyItemMemory = VirtualAllocEx(pHandle, 0, Len(myItem), MEM_COMMIT, PAGE_READWRITE)

ItemCount = SendMessage(lstviewhwnd, LVM_GETITEMCOUNT, 0&, 0&)



For i = 0 To ItemCount - 1

result = WriteProcessMemory(pHandle, pMyItemMemory, myItem, Len(myItem), 0)



'*************************************************************

'send the get the item message and write back the memory space

'*************************************************************

result = SendMessage(lstviewhwnd, LVM_GETITEMTEXT, i, ByVal pMyItemMemory)

result = ReadProcessMemory(pHandle, pStrBufferMemory, strBuffer(0), MAX_LVMSTRING, 0)

result = ReadProcessMemory(pHandle, pMyItemMemory, myItem, Len(myItem), 0)



'**************************************************

'turn the byte array into a string and send it back

'**************************************************

For Index = LBound(strBuffer) To UBound(strBuffer)

If Chr(strBuffer(Index)) = vbNullChar Then Exit For

tmpString = tmpString & Chr(strBuffer(Index))

tmp2 = tmp2 & Chr(strBuffer(Index))

Next Index

tmp2 = Replace(tmp2, "@", "")

List3.AddItem tmp2

tmp2 = ""



Next

'

'**************************************************

'deallocate the memory and close the process handle

'**************************************************

result = VirtualFreeEx(pHandle, pStrBufferMemory, 0, MEM_RELEASE)

result = VirtualFreeEx(pHandle, pMyItemMemory, 0, MEM_RELEASE)



result = CloseHandle(pHandle)



If Len(tmpString) > 0 Then GetListviewItem = tmpString

End Function

the original code was used to get the nicknames from the room by calling NickGet function. my problem is that i tried to get my own paltalk nicknames including offline nicknames using GetMyPalList function instead of NickGet but List3 return nothing .

[honey_34]

This is my code :

Dim SuperM As Long, Wsplt As Long, Atla, GradViewClass As Long

SuperM = FindWindow("seinfeld_superman", vbNullString)

Wsplt = FindWindowEx(SuperM, 0&, "wtl_splitterwindow", vbNullString)

Atla = FindWindowEx(Wsplt 0&, "atl:0080daa8", vbNullString)

GradViewClass = FindWindowEx(Atla, 0&, "gradienttreeviewclass", vbNullString)



' Then pass GradViewClass to the GetListViewItem



Call GetListviewItem(GradViewClass)

[honey_34]

i want to display my paltalk nickname list including offline nicknames into a vb list box .

[honey_34]

yes sure .. Ghost

[honey_34]

Thanx YeaAnd … i want vb source code that rais the hand and open cam as well as the vb code posted by Admin which was working with the previous paltalk version 8.3 .. but it is not working with paltalk 9 beta .. the last version ..
would be appreciated .. thanx 😕

[honey_34]

i meant a text box that show me the (Group #) number .. but the code posted it seems much better ..
thank you too much Admin , nanomachine007 😆

[Author]

Posts