短信猫的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 短信猫的问题

共有3546人关注过本帖树形打印复制链接主题：短信猫的问题

狐狸爸爸

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/3/8 9:41:00 [只看该作者]

foxtable暂时没有提供监听功能，都是通过数据库。

fubblyc

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2014/4/21 13:12:00 [只看该作者]

可以做一个计划：

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

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

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 14:14:00 [只看该作者]

回复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