Skip to content

need help with code for paltalk

Viewing 15 posts - 1 through 15 (of 16 total)
1 2
  • Author
    Posts
  • November 15, 2009 at 5:56 pm #190709
    pharaon
    Member

    i want code to unreddot users that i put their nick in white list
    can someone help me

    November 15, 2009 at 10:14 pm #190724
    String
    Member

    This question was answered when you asked it here.

    Call your red-dot function to red-dot the user.
    Call the same function to UN red-dot the user.

    If you still need more, post what you have so far.
    I appreciate that you are new to programming, but, what your trying to do is pretty much spelled out for you in the example.

    November 15, 2009 at 11:50 pm #190723
    pharaon
    Member

    do you have it for vb.net code

    November 16, 2009 at 3:04 am #190722
    pharaon
    Member

    is there a code the check the user if he is reddot or not

    November 16, 2009 at 3:40 am #190721
    Chike
    Member

    @pharaon wrote:

    is there a code the check the user if he is reddot or not

    Yes

    November 16, 2009 at 3:33 pm #190720
    Chike
    Member

    See the code attached to this post. You still need some work to do by your own.

    November 18, 2009 at 8:25 pm #190719
    pharaon
    Member

    check this code guys and tell me what is wrong about it

    Private Sub Timer1_Timer()
    
Dim i As Integer
    
Call NickGet
    
For i = 0 To List1.ListCount - 1
    
If List1.List(i) = List2.Index Then
    
Call getuserstatus(List2.Index)
    
End If
    
Next i
    
End Sub

    i want to check the status for my friends in list1 from the room list
    and i get error that object is not an array

    November 18, 2009 at 11:51 pm #190718
    String
    Member

    I dont think you are calling your getuserstatus function correctly.

    Should be like this:

    getuserstatus(handle_of_listview, item_index)

    getuserstatus will return 1, if it is red dot.

    You might use somthing like:

    If getuserstatus (lstviewhwnd, (i)) = "1" Then
    
'    they are red dotted
    
End If
    November 19, 2009 at 12:31 am #190717
    Chike
    Member

    @String wrote:

    Should be like this:

    getuserstatus(handle_of_listview, item_index)

    getuserstatus will return 1, if it is red dot.

    Better if getuserstatus will return the image number for more flexible code.

    EDIT: note that the red dot may be covered by a hand, but it’s not a problem if you only check for new comers, if someone raise his hand before being undotted he will simply remain dotted.

    November 19, 2009 at 12:47 am #190716
    pharaon
    Member
    Call getuserstatus(syslistview, List2.Index)

    i make the code this way and still get error object not an array

    November 19, 2009 at 1:05 am #190715
    Departure
    Member

    because handle to syslistview is not in your timer….

    you must set the handle to your variable “syslistview” otherwise make it public variable which all functions can access

    November 19, 2009 at 1:45 am #190714
    pharaon
    Member
    Private Sub Timer1_Timer()
    
Dim syslistview As Long
    
syslistview = FindWindowEx(atldd, 0&, "syslistview32", vbNullString)
    
Dim i As Integer
    
Call NickGet
    
For i = 0 To List1.ListCount - 1
    
If List1.List(i) = List2.Index Then
    
Call getuserstatus(syslistview, List2.Index)
    
End If
    
Next i
    
End Sub

    i did it that way and still get the same error

    November 19, 2009 at 12:04 pm #190713
    Departure
    Member

    yes because you need to find the handle of the parent window, the main chat room handle then subclass down to the handle of the systemlistview32 handle.

    You have
    “syslistview = FindWindowEx(atldd, 0&, “syslistview32″, vbNullString)”

    but whats the handle of “atldd” ? you need to find the handles from the top level window then find the handles of the component (for example systemlistview32). only after finding the main window can you find child windows and components.

    November 19, 2009 at 11:16 pm #190712
    String
    Member

    @Chike wrote:

    Better if getuserstatus will return the image number for more flexible code.

    It does. Returns 1 if red dot, 4 if mic.. etc etc… as you described in link posted above.

    Departure, whats up with your server? The forum page returns a “Server Not Found” and your main page returns an odd looking Google 404 error page. Thought Id mention it, in case you were not aware.

    November 20, 2009 at 7:04 pm #190711
    pharaon
    Member

    i tryed this code

    Private Sub Timer1_Timer()
    
Dim i As Integer
    
Call NickGet
    
For i = 0 To List1.ListCount - 1
    
For j = 0 To List2.ListCount - 1
    
If List1.List(i) = List2.List(j) Then
    
Call getuserstatus(syslistview, List2.List(j))
    
End If
    
Next
    
Next
    
End Sub

    but i get error for Call getuserstatus(syslistview, List2.List(j)) type missmatch

  • Author
    Posts

Related

Viewing 15 posts - 1 through 15 (of 16 total)
1 2
  • You must be logged in to reply to this topic.