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

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.

do you have it for vb.net code

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

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

Yes http://www.imfiles.com/instant-messenger/listview-hands-raised-t31198.html?hilit=hand%20up#p77064

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

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

Code: Select all

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

I dont think you are calling your getuserstatus function correctly.

Should be like this:

Code: Select all

getuserstatus(handle_of_listview, item_index)

getuserstatus will return 1, if it is red dot.

You might use somthing like:

Code: Select all

If getuserstatus (lstviewhwnd, (i)) = "1" Then
'    they are red dotted
End If

String wrote:Should be like this:

Code: Select all

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.

Code: Select all

Call getuserstatus(syslistview, List2.Index)

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

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

Code: Select all

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

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.

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.

<off topic> 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.</off topic>

i tryed this code

Code: Select all

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