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] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18