[RESOLVED] Winsock problem? Not sure -- Shuttingdown Multiple PCs on Network

[Genovah]

I've included my source. Basically I am looking for help. I believe that the problem is in the Reciever portion (server that recieves the command to shutdown) I have the shutdown disabled in the code and it is just supposed to display a msgbox saying that the shutdown happned but I'm not getting any result and I included the whole thing since I cant get the reciever portion to work properly I don't know if something in the way it is sending it out is correct either if you don't want to download the source I have included the code here:

So to recap jus one more time... I am not getting any response when the command is sent it doesnt even look like its trying to send it to me. Any help is greatly appreciated this is for a medium size network of approximately 50 computers and the IP range will be edited before it is sent out....

Thanks again in advance!

Private Sub Form_Load()
'    Socket1.Listen
'    frmSys32Control.Hide
End Sub
 
Private Sub Socket1_ConnectionRequest(ByVal requestID As Long)
    Socket1.Accept requestID
End Sub
 
Private Sub Socket1_DataArrival(ByVal bytesTotal As Long)
    'sckServer(Index).GetData strData, vbString, bytesTotal
    Dim strData As String
    Socket1.GetData strData, vbString, bytesTotal
    
    If strData = "shutdown" Then
        MsgBox "shutdown"
        'shell "shutdown -s -t 10"
    ElseIf strData = "restart" Then
        MsgBox "restart"
        'shell "shutdown -r -t 10"
    Else
        'do nothing stupid
    End If
    
End Sub

Option Explicit
Dim varA As String
Dim strCommand As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Result As String
 
Public Sub Wait(HalfSeconds As Single)
 Dim lMilliSeconds As Long
 lMilliSeconds = HalfSeconds * 500
 Sleep lMilliSeconds
End Sub
 
Public Sub CmdSend1()
    Dim strHostIP As String
    Dim strHostPort As String
    strHostIP = "0.0.0.0"
    strHostPort = "0"
    If varA >= 256 Then
        Exit Sub
    ElseIf varA < 256 Then
        strHostPort = 4955
        sckSend.RemotePort = strHostPort
        strHostIP = "192.168.0." & varA
        varA = varA + 1
        sckSend.RemoteHost = strHostIP
        sckSend.SendData strCommand
        Call Wait(1)
        Call CmdSend2
    Else
        MsgBox "Talk to Josh if the problem persists.", vbCritical
    End If
End Sub
 
Public Sub CmdSend2()
    Dim strHostIP As String
    Dim strHostPort As String
 '   Dim Result As String
    strHostIP = "0.0.0.0"
    strHostPort = "0"
    If varA >= 256 Then
        Exit Sub
    ElseIf varA < 256 Then
        strHostPort = 4955
        sckSend.RemotePort = strHostPort
        strHostIP = "192.168.0." & varA
        varA = varA + 1
        sckSend.RemoteHost = strHostIP
        sckSend.SendData strCommand
        Call Wait(1)
        Call CmdSend1
    Else
        MsgBox "Talk to Josh if the problem persists.", vbCritical
    End If
    If Result = 1 Then
        'do nothing because the question has already been answered
    Else
        If strCommand = "restart" Then
            Result = MsgBox("Restart is now complete. Exit the program if you wish.", vbOKOnly)
            If Result = 1 Then
                Exit Sub
            Else
                MsgBox "***? how did you manage that?!??!!"
            End If
        ElseIf strCommand = "shutdown" Then
            Result = MsgBox("Shutdown is now complete. Exit the program if you wish.", vbOKOnly)
            If Result = 1 Then
                Exit Sub
            Else
                MsgBox "***? how did you manage that?!??!!"
            End If
        End If
    End If
End Sub
 
Private Sub cmdRestart_Click()
    Dim Result As String
    Result = MsgBox("Are you sure you want to Restart all PC's?", vbYesNo)
    If Result = 6 Then
        MsgBox "Do not press anything for approxamitely one or two minutes. Restart in progress", vbCritical
        varA = 0
        strCommand = "restart"
        Call CmdSend1
    Else
        'do nothing
    End If
End Sub
 
Private Sub cmdShutdown_Click()
    Dim Result As String
    Result = MsgBox("Are you sure you want to Shutdown all PC's?", vbYesNo)
    If Result = 6 Then
        MsgBox "Do not press anything for approxamitely one or two minutes. Shutdown in progress", vbCritical
        varA = 250
        strCommand = "shutdown"
        Call CmdSend1
    Else
        'do nothing
    End If
End Sub
 
Private Sub Form_Load()
    Result = 0
End Sub

Just in case anyone wonders stupid in my code refers to me so don't be offended its my way of telling myself something