本文由 资源共享网 – D 发布，转载请注明出处，如有问题请联系我们！TCP客户端

Imports System.IO

Imports System.Text

Imports System.Threading

Imports System.Net

Imports System.Net.Sockets

Public Class TCP_ClientClass

    ''' <summary>

    ''' 接口

    ''' </summary>

    ''' <remarks></remarks>

    Public ClientSocket As Socket

#Region "建立连接"

    Dim Thread_PLC As Thread

    Dim iep As EndPoint

    ''' <summary>

    ''' 建立客户端连接

    ''' </summary>

    ''' <remarks></remarks>

    Public Function PLC_connection(ByRef Server_IP As String, ByVal Server_Point1 As Integer) As String

        Try

            ClientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)  '连接

            Dim ipa As IPAddress = IPAddress.Parse(Server_IP)

            iep = New IPEndPoint(ipa, CInt(Server_Point1))

            'Dim endpoint As IPEndPoint = ClientSocket.RemoteEndPoint

            'Dim Client_IP As String = endpoint.Port 'endpoint.Address.ToString

            ClientSocket.Connect(iep)            '建立连接

            '    sendDataToPLC("CR" & vbCrLf)            '连接上发送信号，建立连接

            Threading.Thread.Sleep(10)

            PLC_ConectStat_Booleat = True

            Thread_PLC = New Thread(AddressOf PLCReceive) '开启线程扫描得到信号

            Thread_PLC.Start()

            Return "OK"

        Catch ex As Exception

            Return "NG" & ex.Message

        End Try

    End Function