Enable or disable internet connection of remote computers

[the182guy]

do you have any code so that the client can receive the data?

[tauhu82]

Client
 
Private Sub sckControlPanel_DataArrival(ByVal bytesTotal As Long)
Dim Command As String, txtData As String
Dim Position As Integer
    
On Error Resume Next
    sckControlPanel.GetData txtData
    
    Position = InStr(1, txtData, "#")
    Command = Left(txtData, Position - 1)
    txtData = Mid(txtData, Position + 1)
    
    Select Case Command
            
        Case "ScreenSaver"
            RunScreenSaver
        Case "CDDoor"
            If txtData = "Open" Then
                OpenCDDoor
            Else
                CloseCDDoor
            End If
        Case "LockSystem"
            SystemParametersInfo SPI_SCREENSAVERRUNNING, _
            1&, Null, SPIF_UPDATEINIFILE
            LockForm.Show
        Case "UnLockSystem"
             Unload LockForm
             UnlockForm.Show
        Case "Logoff"
            ExitWindowsEx (EWX_LOGOFF Or EWX_FORCE), &HFFFF
        Case "Reboot"
            AdjustToken
            ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), &HFFFF
        Case "Shutdown"
            AdjustToken
            ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE), &HFFFF
        Case "GetUserName"
            txtData = GetUser()
            sckControlPanel.SendData "GetUserName#" & txtData
        Case "GetTickCount"
            txtData = GetLoginTime
            sckControlPanel.SendData "GetTickCount#" & txtData
        Case "SystemInfo"
            txtData = "SystemInfo#" & SystemInfo()
            sckControlPanel.SendData txtData
        Case "Connect"
             AddConnection
        Case "Disconnect"
             CancelConnection
        Case "Message"
            MsgBox txtData, vbExclamation, "Windows Message"
        Case "Date&Time"
        Case "Mouse"
    End Select
End Sub

I put this part at the client side. so when i execude this

Server
 
Private Sub Command1_Click()
sckControlPanel.SendData "Connect#"
End Sub
 
Private Sub Command2_Click()
sckControlPanel.SendData "Disconnect#"
End Sub

It should have call for the disconnect to function. But nothing seem to be happening. I wonder why??