cliente y servidor hola amigos bueno buscando por san google pude ver el escritorio de mi pc en mi otro pc xD osea cree mi servidor y mi cliente todo bien ahora mi pregunta es como puedo hacer para recibir un string alguna idea
Mi server:
Imports System.Net.Sockets
Imports System.Threading
Imports System.Drawing
Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form2
Dim client As New TcpClient
Dim port As Integer
Dim server As TcpListener
Dim ns As NetworkStream
Dim listening As New Thread(AddressOf Listen)
Dim GetImage As New Thread(AddressOf ReceiveImage)
Private Sub ReceiveImage()
Dim bf As New BinaryFormatter
While client.Connected = True
ns = client.GetStream
PictureBox1.Image = bf.Deserialize(ns)
End While
End Sub
Private Sub Listen()
While client.Connected = False
server.Start()
client = server.AcceptTcpClient
End While
GetImage.Start()
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
port = Integer.Parse(Form1.TextBox1.Text)
server = New TcpListener(port)
listening.Start()
End Sub
End Class
Mi Cliente :
Imports System.Net.Sockets
Imports System.Threading
Imports System.Drawing
Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form1
Dim client As New TcpClient
Dim ns As NetworkStream
Dim port As Integer
Public Function Desktop() As Image
Dim bounds As Rectangle = Nothing
Dim screenshot As System.Drawing.Bitmap = Nothing
Dim graph As Graphics = Nothing
bounds = Screen.PrimaryScreen.Bounds
screenshot = New Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb )
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
Return screenshot
End Function
Private Sub SendDesktop()
Dim bf As New BinaryFormatter
ns = client.GetStream
bf.Serialize(ns, Desktop())
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
port = Integer.Parse(TextBox2.Text)
Try
client.Connect(TextBox1.Text, port)
MsgBox("Client connected !")
Catch ex As Exception
MsgBox("Failed to connect...")
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
SendDesktop()
'SendInfo()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
