Servidor
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
##Server $port=2051 $IPEndPoint=New-Object System.Net.IPEndPoint([IPAddress]::Any,$port) $TcpListener=New-Object System.Net.Sockets.TcpListener $IPEndPoint $TcpListener.Start() $AcceptTcpClient=$TcpListener.AcceptTcpClient() $GetStream=$AcceptTcpClient.GetStream() $StreamReader=New-Object System.IO.StreamReader $GetStream $ReadAllLines = $StreamReader.ReadToEnd() $Bytes = ([system.Text.Encoding]::Default).GetBytes($ReadAllLines) rm screenshotcopy.bmp [System.IO.File]::WriteAllBytes('screenshotcopy.bmp',$Bytes) #Creación del formulario $Image=[system.drawing.image]::FromFile(".\screenshotcopy.bmp") $form2 = [Windows.Forms.Form] @{ Text = 'Mi formulario' BackgroundImage = $Image Width = $Image.Width Height = $Image.Height BackgroundImageLayout = "None" WindowState = "maximized" FormBorderStyle = "None" } $form2.ShowDialog() $StreamReader.Dispose() $GetStream.Dispose() $AcceptTcpClient.Dispose() |
Cliente
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
##Client $port=2051 $TcpClient=New-Object System.Net.Sockets.TcpClient([IPAddress]::Loopback, $port) $GetStream = $TcpClient.GetStream() $StreamWriter = New-Object System.IO.StreamWriter $GetStream $path='screenshot.bmp' $Bitmap=New-Object System.Drawing.Bitmap([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height) $Graphics=[System.Drawing.Graphics]::FromImage($Bitmap) $Graphics.CopyFromScreen((New-Object System.Drawing.Point(0,0)), (New-Object System.Drawing.Point(0,0)), $Bitmap.Size) $Graphics.Dispose() $Bitmap.Save($path,'Bmp') $Bytes = [System.IO.File]::ReadAllBytes($path) $StreamWriter.Write($Bytes,0,$Bytes.length) $StreamWriter.Dispose() $GetStream.Dispose() $TcpClient.Dispose() |