What is the Code to display connected computers?

[tauhu82]

Hi i just join this forum. I'm doing on a project to control the computers in my campus lab. It need to display computers which just on and to display the number of connected computer. The code i have can only display the computers which are connected to the same network as mine if they off their computer then it won't display anymore. I also need to display the computer which are off coz i have to do Wake on LAN on them to wake them up. Please help me....

[the182guy]

Is this a winsock app and the other computer is connected via sockets? Or is it just a windows Local Area Network and you want to find out about the connected PCs on the LAN?

If its a winsock app can you please post the entire code for the winsock events

[the182guy]

Provided you have

Winsock1.Close(Index)

in your Winsock_Close and Winsock_Error events you should be able to use a timer like the other thread

Dim i as Integer
Dim OnlineUsers as Integer
 
For i = 1 to Winsock1.UBound
     If Winsock1(i).State = sckConnected Then
          OnlineUsers = OnlineUsers + 1
     End If
Next i
 
Label1.Caption = "There are currently: " & OnlineUsers & " computers connected."

You could also do it by just updating the onlineusers when a socket is closed and when a new socket is connected

[tauhu82]

Private Sub lstComputers_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim i As Integer
Dim PCName As String
Dim RemoteHost As String


If lstComputers.Selected(selectedPC_index) = True Then
If Button = 2 Then ' if the mousebutton 2 is pressed (right)
PopupMenu Rclick ' then it calls the menu which is hidden to be shown
' at the cordinates of the mousepointer (x,y)

Else

Button = 1

RemoteHost = lstComputers.List(selectedPC_index)
sckControlPanel.RemoteHost = RemoteHost
sckControlPanel.RemotePort = 8005
sckControlPanel.Connect

End If

Else
sckControlPanel.Close
Call sckControlPanel_Close

End If

Data1.Refresh
End Sub

[Rob123]

This wont solve your problem, but you need to change your if statements to this:

Private Sub lstComputers_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim i As Integer
Dim PCName As String
Dim RemoteHost As String
 
 
If lstComputers.Selected(selectedPC_index) = True Then
 
If Button = 2 Then ' if the mousebutton 2 is pressed (right)
PopupMenu Rclick ' then it calls the menu which is hidden to be shown
' at the cordinates of the mousepointer (x,y)
 
Elseif Button = 1 then
 
RemoteHost = lstComputers.List(selectedPC_index)
sckControlPanel.RemoteHost = RemoteHost
sckControlPanel.RemotePort = 8005
sckControlPanel.Connect
 
End If
 
Else
sckControlPanel.Close
Call sckControlPanel_Close
 
End If
 
Data1.Refresh
End Sub

[tauhu82]

Thanks alot you guys!!! I will look into your suggustions. Thanks alot Hope all of you will have a nice day...

[tauhu82]

visual basic code:--------------------------------------------------------------------------------
Winsock1.Close(Index)

What is this??

When i run this codes

visual basic code:--------------------------------------------------------------------------------
Dim i as Integer
Dim OnlineUsers as Integer

For i = 1 to Winsock1.UBound
If Winsock1(i).State = sckConnected Then
OnlineUsers = OnlineUsers + 1
End If
Next i

Label1.Caption = "There are currently: " & OnlineUsers & " computers connected."
---------------------------------------------------------------------------

It come out compile error method or data not found Please advise me.. I used it like this Private Sub sckControlPanel_Close()
If sckControlPanel.State <> sckNotConnected Then

StatusBar1.Panels(1).Text = "Not Connected "

End If

Dim i As Integer
Dim OnlineUsers As Integer

For i = 1 To sckControlPanel.UBound(ServerList.List)
If sckControlPanel(i).State = sckConnected Then
OnlineUsers = OnlineUsers + 1
End If
Next i

Label5.Caption = "There are currently: " & OnlineUsers & " computers connected."

End Sub

[the182guy]

If you read my post carefully it tells you to put that in a timer, not the close event, it tells you you need Sock.Close in the close event..........

I thought you said this was an app which many more than 1 client connect in which case you need a socket array sckControlPanel() but from your code you seem to just have a single socket with no array, one socket can only handle one connection.

Its giving error because you dont have an array you only have the single socket

[tauhu82]

Can you show me how to do a socket array sckControlPanel()? I'm still not that good with this. Yes sorry i miss out the word timer. Can you give me more guide on this matter.. Thanks alot in advance.