[VB 2008] Program na socketach .net.socket lub winsock

Public Class Form1

    Dim tcpClient As New System.Net.Sockets.TcpClient()



    Dim connect As Boolean = False

    Dim p As Integer = 0

    Dim s As String = 0

    'Dim returndata As String = "111"

    Dim returndata2 As String = ""

    'Dim n As Boolean = False

    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



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

        Me.Close()

    End Sub





    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        tcpClient.Connect("192.168.1.254", 55555)

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If connect = False Then

            Dim networkStream As NetworkStream = tcpClient.GetStream()

            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("1")

            NetworkStream.Write(sendBytes, 0, sendBytes.Length)

            returndata2 = ""

            Timer1.Enabled = True

            connect = True

            Button3.Text = ("Connect")

        Else

            Timer1.Enabled = False

            connect = False

            'TcpClient.Close()

            Button3.Text = ("DisConnect")

        End If



    End Sub



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

        Timer1.Enabled = False

        Dim networkStream As NetworkStream = tcpClient.GetStream()

        If networkStream.CanWrite And networkStream.CanRead Then

            ' Do a simple write.

            'Dim bytes(tcpClient.ReceiveBufferSize) As Byte

            'Read the NetworkStream into a byte buffer.

            'Dim bytes(tcpClient.ReceiveBufferSize) As Byte



 










            'networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

            'Dim returndata As String = Encoding.ASCII.GetString(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

            'returndata = returndata.Trim

            ' Output the data received from the host to the console.



            'Dim returndata As String = Encoding.ASCII.GetString(bytes, 0, CInt(tcpClient.ReceiveBufferSize))



            'Dim returndata As String = CType(sender, NetworkStream).Read(bytes, 0, tcpClient.ReceiveBufferSize)

            'Dim returndata As String = Encoding.ASCII.GetString(bytes, 0, bytes.Length)

            'Dim myCompleteMessage As StringBuilder = New StringBuilder()

            'myCompleteMessage.AppendFormat("{0}", Encoding.ASCII.GetString(bytes, 0, bytes.Length))

            'Dim returndata As String = myCompleteMessage.ToString







            ' Receive the TcpServer.response.

            ' Buffer to store the response bytes.

            Dim Data = New [Byte](255) {}



            ' String to store the response ASCII representation.

            Dim responseData As [String] = [String].Empty



            ' Read the first batch of the TcpServer response bytes.

            Dim bytes As Int32 = networkStream.Read(Data, 0, Data.Length)

            responseData = System.Text.Encoding.ASCII.GetString(Data, 0, bytes)



            Dim returndata As String = responseData



            ' Close everything.

            'stream.Close()

            'client.Close()



            'TextBox1.Text = (("Host returned: " + returndata))

            ''TextBox1.Text = (TextBox1.Text + returndata)

            ''TextBox1.Text = TextBox1.Text + " "

            'TextBox1.Text = TextBox1.Text + Chr(13) & Chr(10)





            ''If TextBox1.Text.Length > 600 Then

            ''TextBox1.Text = ""

            ''End If

            'TextBox1.Text = returndata.Trim.Length

            'Dim w() As String = Split(returndata, " ")

            returndata2 = CInt(returndata)

            'returndata2 = returndata

            'returndata2 = returndata2 + Trim(returndata)

            'If returndata2.Length < 330 Then



            

            TextBox1.Text = returndata2.Length

            If returndata2.Length > -1 Then

                p = p + 1

                Dim graph As Graphics = PictureBox1.CreateGraphics

                graph.DrawLine(New Pen(Color.Red, 1), p - 1, s, p, 470 - returndata2 * 0.8)

                s = 470 - returndata2 * 0.8



                If p >= 600 Then

                    p = 0

                    graph.Clear(Color.Black)

                End If

            End If

            'Else

            If Not networkStream.CanRead Then

                TextBox1.Text = ("cannot not write data to this stream")

                tcpClient.Close()

            Else

                If Not networkStream.CanWrite Then

                    TextBox1.Text = ("cannot read data from this stream")

                    tcpClient.Close()

                End If

            End If

            If returndata2.Length < 200 Then

                Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("1")

                networkStream.Write(sendBytes, 0, sendBytes.Length)

                returndata2 = ""

            End If



        End If



    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Timer1.Enabled = True

    End Sub

End Class