主题：UDPClients代码请教

Dim udp As New System.Net.Sockets.UdpClient(0)
Dim ip As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("127.0.0.1"), 52178)
Dim bytes() As Byte = System.Text.Encoding.Unicode.GetBytes("#PD01#PD02#PD03#")
udp.Send(bytes, bytes.Length, ip)
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5) '等到5秒
    If udp.Available > 0 Then
        Dim remoteIp As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
        Dim rbytes() As Byte = udp.Receive(remoteIp)
        Dim rev As String = System.Text.Encoding.Unicode.GetString(rbytes)
        MessageBox.Show(rev)
    End If
End While
udp.Close

该代码是编写前 是否 需要 进行 dll 的引用

以上代码如果用vba 该怎么改呢

我放入 excel 里面 运行不了

狐爸 我需要把 outlook 的邮件 与 openqq 联动 起来 

袍哥 ，能给一个vba的简单的代码吗？