主题：短信猫的问题

 短信猫插在哪里，哪台电脑就有发送短信的功能。

 流程是这样的：各个客户端，通过连接服务器的数据库，添加需要发送的内容，保存。在服务器电脑上打开的foxtable检测表的内容，发送。

可以远程控制哦，服务器不是都可以通过远程桌面连接的么？

网络通信功能？不知指的是什么。应该是没有的。

你如果要控制服务器上的foxtable，你就只能是远程桌面连接操作。

 回复12楼，加一个出错处理就好

Try
    Dim dt As DataTable = DataTables("待发送")
    If dt.DataRows.Count = 0 Then
        dt.LoadFilter = "已发送 = 0 Or 已发送 Is Null"
        dt.Load()
    End If
   
    For Each dr As DataRow In dt.DataRows
        If FoxSMS.Ready = False Then
            Exit For
        Else
            FoxSMS.SendMsg(dr("VIP电话"), dr("短信回访内容")) '发送信息
            dr("已发送") = True
            dr("编号") = FoxSMS.MsgID
        End If
    Next
    dt.Save()
    dt.removeFor("已发送 = True")
catch ex As exception
    '出错的时候,怎么处理
End try

 或者这样

'On Error Goto 0

On Error Resume Next

Dim dt As DataTable = DataTables("待发送")
If dt.DataRows.Count = 0 Then
    dt.LoadFilter = "已发送 = 0 Or 已发送 Is Null"
    dt.Load()
End If

For Each dr As DataRow In dt.DataRows
    If FoxSMS.Ready = False Then
        Exit For
    Else
        FoxSMS.SendMsg(dr("VIP电话"), dr("短信回访内容")) '发送信息
        dr("已发送") = True
        dr("编号") = FoxSMS.MsgID
    End If
Next
dt.Save()
dt.removeFor("已发送 = True")