主题：短信猫的问题

可以做一个计划：

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")

 

 

但是有一个问题，有时插短信设备的电脑网络有时断掉，那么计划就会中断。当网络恢复后，计划没办法自动执行，要点下确定。。。。

哦，谢谢有点甜老师，才看到帖子，不好意思。我试一下。