[سؤال] اذا استقبلت صورة بهذه الطريقة كيف اعطي المستخدم خيار بتحميلها او تجاهلها

كود :

Imports System.IO

Imports System.Net.Sockets

Imports System.Net

Public Class Form1

    Dim ofd As New OpenFileDialog

    Dim listener As TcpListener

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        ofd.Filter = "Jpg(*.jpg)|*.jpg|png (*.png)|*.png|gif (*.gif)|*.gif"

        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Dim mypic_path As String = ofd.FileName

            PictureBox1.Image = Image.FromFile(mypic_path)

            Dim ms As MemoryStream = New MemoryStream

            PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)

            Dim arrImage As Byte() = ms.GetBuffer

            ms.Close()

            Dim myclient As TcpClient = New TcpClient("192.168.1.2", 9999)

            Dim myns As NetworkStream = myclient.GetStream

            Dim mysw As BinaryWriter = New BinaryWriter(myns)

            mysw.Write(arrImage)

            mysw.Close()

            myns.Close()

            myclient.Close()

        End If

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        listener = New TcpListener(IPAddress.Any, "9999")

        Dim athread As New Threading.Thread(AddressOf list)

        athread.Start()

    End Sub

    Private Sub list()

        listener.Start()

    End Sub

     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

        If listener.Pending Then

            Dim mysocket = listener.AcceptSocket

            Dim myns = New NetworkStream(mysocket)

            PictureBox2.Image = Image.FromStream(myns)

        End If

    End Sub

End Class

كود :

If listener.Pending Then

            If MessageBox.Show("A photo has been sent to you, do you want to recieve it?", "Confirmation", MessageBoxButtons.YesNo) = System.Windows.Forms.DialogResult.Yes Then

                Dim mysocket = listener.AcceptSocket

                Dim myns = New NetworkStream(mysocket)

                PictureBox2.Image = Image.FromStream(myns)

            End If

        End If

PHP كود :

<Serializable> _
Public Structure Message
    'variable'
    Public RtfMessage As String
    Public senderName As String
    Public image As Image = Nothing


    'constractor'
    Public Sub New(RtfMessage As String, senderName As String, image As Image)
        Me.RtfMessage = RtfMessage
        Me.senderName = senderName
        Me.image = image
    End Sub
End Structure 

PHP كود :

Private Sub sendButton_Click(sender As Object, e As EventArgs)
    Dim msg As New Message("<b>Hello i'm Mohammed", "Ali", Nothing)

    Dim msgData As Byte() = ToByteArray(msg)

    mySock.Send(msgData)
End Sub


Public Function ToByteArray(source As Object) As Byte()
    Dim formatter = New BinaryFormatter()
    Using stream = New MemoryStream()
        formatter.Serialize(stream, source)
        Dim data As Byte() = stream.ToArray()
        stream.Close()
        Return data
    End Using
End Function 

PHP كود :

Private Sub receiveMessages_Click(sender As Object, e As EventArgs)
    While True
        'قراءة البيانات'
        Application.DoEvents()
        Dim buffer As Byte() = New Byte(999999) {}
        Dim totalReceived As Integer = mySock.Receive(buffer)


        'اكبر من البيانات التي تم استلامها bufferقد تكون قيمة '
        'بعد اعادة كتابتها بصورة صحيحة msgData فهنا يتم حفظ البيانات في المتغير '
        Dim msgData As Byte()
        Using rw As New MemoryStream()
            rw.Write(msgData, 0, totalReceived)
            rw.Close()
        End Using


        ''ارجاع الرسالة الى التركي'
        Dim msg As Message = DirectCast(ToObject(msgData), Message)


        'قراءة الرسالة'
        richTextBox1.Rtf = msg.RtfMessage
        MessageBox.Show("This Message was received from : " + msg.senderName)
        If msg.image IsNot Nothing Then
            pictureBox1.Image = msg.image
        End If
    End While
End Sub


Public Function ToObject(source As Byte()) As Object
    Dim formatter = New BinaryFormatter()
    Using stream = New MemoryStream(source)
        stream.Position = 0
        Dim obj As Object = DirectCast(formatter.Deserialize(stream, Nothing), [Object])
        stream.Close()
        Return obj
    End Using
End Function 