Navigation Menu

[steven]

Chike .. i dont know what i have to say more than thank you .. yah it works finaly .. thanks for all professionals and experts in this forum . am just looking for knowledge and skills .. but i was wondering how people doing all these applications .. now i can arrange the code and try to understand it from the begining as autopilot advice me before . thank you again Chike 😳

[steven]

thank you Departure .. this is NickGet i changed and it work fine because the nicknames are listed in list3

Function NickGet()

Dim dlggroupchatwindowclass As Long, wtlsplitterwindow As Long, atlfb As Long

Dim syslistview As Long

On Error Resume Next

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

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)

atlfb = FindWindowEx(wtlsplitterwindow, 0&, "atl:006fb328", vbNullString)

syslistview = FindWindowEx(atlfb, 0&, "syslistview32", vbNullString)

Call GetListviewItem(syslistview)

End Function



Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As String) As Long

Dim mywindowclass As Long, wtlsplitterwindow As Long, atldd As Long

Dim syslistview As Long

Dim strCaption As String

Dim lLen As Long

Dim dlggroupchatwindowclass As Long

Dim atlfb As Long



hwnd = FindWindow("dlggroupchat window class", Form1.Text1)

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)

atlfb = FindWindowEx(wtlsplitterwindow, 0&, "atl:006fb328", vbNullString)

hWndlvw = FindWindowEx(atlfb, 0&, "syslistview32", vbNullString)



' If we've found a window with the SysListView32 class

' check to see if parent window caption is the one we are looking for

If hWndlvw  0 Then

lLen = GetWindowTextLength(hwnd)

If lLen > 0 Then

strCaption = Space(lLen)

GetWindowText hwnd, strCaption, lLen + 1

End If

End If

EnumWindowsProc = (hWndlvw = 0 And strCaption  lParam)

End Function



Public Function FindListView(strInWindowWithCaption As String) As Long

EnumWindows AddressOf EnumWindowsProc, StrPtr(strInWindowWithCaption)

FindListView = hWndlvw

End Function



Public Function MessageCrossProcess(ByVal hwnd As Long)

Dim lProcID As Long

Dim hProc As Long

Dim lxprocLVITEM As Long

Dim LVITEM As LV_ITEM

Dim lItemPos As Long



GetWindowThreadProcessId hwnd, lProcID ' Get the process ID in which the ListView is running

If lProcID  0 Then

hProc = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, lProcID) ' make sure we have read write permissions in the process space

If hProc  0 Then

lxprocLVITEM = VirtualAllocEx(hProc, 0, LenB(LVITEM), MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE) ' Grab enough memory in the other procedure's space to hold our LV_ITEM



' Set up our local LV_ITEM to change the selected item

LVITEM.mask = LVIF_STATE

LVITEM.state = True

LVITEM.stateMask = LVIS_SELECTED Or LVIS_FOCUSED ' Just enforcing the selection better than in original version by moving the focus as well

' Copy the local LV_ITEM into the space we reserved in the foreign process

WriteProcessMemory hProc, ByVal lxprocLVITEM, ByVal VarPtr(LVITEM), LenB(LVITEM), 0



' Now send the message, but pass the address of the copy of our LV_ITEM that now exists in the foreign process instead of our local version

' Aigh Peeps this wha you need to change in order to higlight the item you want :)

lItemPos = Form1.Text7.Text ' first item

SendMessage hwnd, LVM_SETITEMSTATE, lItemPos, ByVal lxprocLVITEM



' Clean up

VirtualFreeEx hProc, ByVal lxprocLVITEM, LenB(LVITEM), MEM_RELEASE

CloseHandle hProc

End If

End If

End Function

[steven]

yes Chike .. i changed EnumWindowsProc but still the problem is there .. double clicked in list1 or list2 to bounce but nothing happen only paltalk notification .. even no nickname selected from the room nicknam list..
can you give an example , i mean source code so that be able to know how the nicknam is selected from the form listbox should be selected from the room nicknam list. 🙁

[steven]

🙁 one more trouble .. the nicknames listed successfuly in list3 .. but no nickname is selectd from the room when i double click list1 or list2 to bounce .. always notice from paltalk ” This user has not been on recently …..”

[steven]

🙂 thankss Chike .. thanx autopilot .. it works now .. yah it works .. really appreciated i realy do .. thankssss autopilot Chike

[steven]

yah Chike .. syslistview return zero 🙁

i dont know where can i make the changes .. is it in the NickGet function or GetListviewItem

[steven]

thanks alot .. yah the case is that list3 is empty while NickGet called.. is that means the function not working properly ? i hope that you have an easir code so that be able to understand how the nic is bounced exactly using list ?

thank you again and again

[steven]

hello Chike .. am sorry if my language is not clear . but i realy need your help . actualy i post my problem before i view all the topics in the forum am sorry about this , and am new in this forum , and i found it helpfull .
my problem is that i downloaded the fast bouncer source code , posted by Admin i think , and i tried to use it with paltalkscene but when i select the nickname from the form listbox1 and double click it , then it bounce the wrong nicknam that selected from the paltalk room unfortunately , actualy am not good in vb like you , but when i traced the code i observed that the nicknames wonn’t be listed in list3 to match the bounced nicknam from list1 .

i will be appreciated for help.. thank you and am sorry again

[steven]

hi guys .. no solution to select the nicknam !! 😥

[steven]

Public Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetParent& Lib “user32” (ByVal hWnd As Long)
Public Declare Function IsWindowVisible& Lib “user32” (ByVal hWnd As Long)
Public Declare Function EnumWindows& Lib “user32” (ByVal lpEnumFunc As Long, ByVal lParam As Long)
Public 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
Public Declare Function SendMessageLong& Lib “user32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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
Public Declare Function GetWindow Lib “user32” (ByVal hWnd As Long, ByVal wCmd As Long) As Long

[steven]

ohh thanx , actually i tried to get the room nicknames to be listed in vb6 list box 🙄 . i knows that it works with paltalk 9.1 but it doesnt work with paltalkscene .

[steven]

GetListviewItem become useless when using PaltalkScene 🙁 i tried so many time with nickget but 😕 it doesnt work … the only nick that will be bopunced is the admin itself. even when you select another nicknam

[Author]

Posts