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 里面 运行不了

你为什么不直接在foxtable里面做个界面发邮件？

Dim ol = CreateObject("Outlook.Application")
Dim t = ol.CreateItem(0)
With t
    .To = "xxx@xxx.com"  
    .CC = "xxx@xxx.com"
    .Subject = "预警"
    .Body = "yujingla "
    .Display
    .Send
End With

如果要在vba里实现udp、tcp通信，1楼的代码是不能用的。

http://blog.chinaunix.net/uid-194025-id-35803.html

那个要你配置的。

在Excel中，因为该控件不是自带的控件，如果使用者的电脑上没有安装VB的话，需要做一定的设置才能在Excel中使用Winsock控件。下面介绍一下使用的步骤： 1. 先复制MSWinsck.OCX文件到C:\\Windows\\System32目录下，使用者可以在互联网上搜索该OCX文件，或从下面的链接下载：MSWinsck控件 2. 上面的文件中同时包括一个注册表文件，双击该文件可以导入MSWinsck控件的Licence Key到注册表中，这样在使用控件时就不会出现下面的提示窗口。 （在打开包含Winsock控件时出现） （在新添加控件时出现） 3. 完成前面的步骤以后，打开VBE窗口，添加用户窗体（Winsock控件需要保持连接，因此一般在窗体中使用），单击菜单“工具”->“引用”，打开“引用对话框”，单击“浏览”按钮，从System32目录下选择MSWinsck.OCX文件，然后单击“确定”按钮。

vba的知识都去excelhome里面找

http://club.excelhome.net/thread-867492-1-1.html

http://club.excelhome.net/thread-325127-1-1.html

http://club.excelhome.net/thread-391593-1-1.html