Private WithEvents t As New Timers.Timer

    ''''发送数据出去

    Function Send() As ArrayList

        m_Client = New UdpClient

        ''''用来存储获取的sql列表

        Dim atemp As New ArrayList

        ''''发送的目标，广播地址

        Dim host As New IPEndPoint(IPAddress.Parse(Me.StrHost), Me.IntPort)

        Try

            ''''这里发送数据

            m_Client.Send(B, 1, host)

            ''''下面开始读取，因为网络内sql server数量众多,数据包一个一个的返回

            ''''所以这里循环处理了。

            While True

                ''''开定时器

                t.Interval = 1000

上一页  [1] [2] [3] [4] [5] [6]  下一页