can anyone show me how to do this? or give me the code please...thanks

check you pms i send u some info bout it

umm i think this code should go publik lol but its no mines so i can do it, hehhe

thanks million times bro...have a great day

No problem man

some one might as well put a code up and updated it ..

true i gonna ask the owner o see wha they say cause i think this ould help a lot of peeps

locohacker wrote:check you pms i send u some info bout it

umm i think this code should go publik lol but its no mines so i can do it, hehhe

Locohacker could u send me this code too. i need it badly.thanks

the owner?? there is no owner for that code as it was an example code on VBforum , I posted the example code on this forum and i NVYE addapted it to suit paltalk, thats if it the same code from doctor (i for got the last bit)

Ah so it can be publik

aigh here it is, And give them credict is a great code

Many thanks loco for sharing this code. Could u tell me how i can compile and run this code using paltalk 8.3 ? i can not make .exe out of it !! i keep getting error! ;

Compile error:


User-defined type not defined

click ok or help

and it points to this line

Private Sub Command2_Click()
Dim LV As LV_ITEM === error here

i be happy if u tell me how to fix it and how to use it?Thannks

Ah thas a part of the code I don't know what they use it for lol, anyways click on the comand button2

and erase the code inside it I mean this

Code: Select all

Private Sub Command2_Click()
   Dim LV As LV_ITEM
   Dim numSelected As Long
   Dim mywindowclass As Long, wtlsplitterwindow As Long, atlac As Long
Dim syslistview As Long
mywindowclass = FindWindow("my window class", vbNullString)
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atlac = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053a8c0", vbNullString)
syslistview = FindWindowEx(atlac, 0&, "syslistview32", vbNullString)
   With LV
      .mask = LVIF_STATE
      .state = True
      .stateMask = LVIS_SELECTED
   End With
     
  'by setting wParam to -1, the call affects all
  'listitems. To just change a particular item,
  'pass its index as wParam.
   Call SendMessage(syslistview, _
                    LVM_SETITEMSTATE, _
                     1, _
                     LV)
End Sub

just erase than and it should fix that ):

Thank u for u reply. Now it complains about TVM_GETNEXTITEM when i try to make .exe for it :

compile error variable not defined!!

Code: Select all

Public Function TreeView_GetNextItem(hWnd As Long, hItem As Long, Flag As Long) As Long
  TreeView_GetNextItem = SendMessage(hWnd, TVM_GETNEXTITEM, ByVal Flag, ByVal hItem)
End Function

i am intrested in making it .exe and play around with it. Could u tell me how i can make this program to add those names to my list instead of just adding it to program list?

lol ah crap lol aigh I going to check it again lol aigh let me check

Aich check this one it works perfect I think

loco could u clean up this code since it has lots of modules.Furthermore, what was that second button for ?Thanks