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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]短信猫多用户使用的问题

共有7092人关注过本帖树形打印复制链接主题：[求助]短信猫多用户使用的问题

飞

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

加好友

发短信

等级：三尾狐帖子：732 积分：5491 威望：0 精华：14 注册：2011/8/28 12:49:00

Post By：2013/1/28 11:46:00 [只看该作者]

关于这个问题,我有经验,我们公司就是这样的模式

向金笛公司买短信猫的时候要同时购买中间件,大概几百块钱不记得了

然后把短信猫插在服务器上,装上中间件,设置一下数据源连接到你的数据库,它会在你的数据库里面创建五个表

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20130128114337.png

然后你在狐表的程序里面向T_SendTask表里面插入数据它就可以自动发送出去了

[此贴子已经被作者于2013-1-28 12:12:55编辑过]

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/28 11:57:00 [只看该作者]

木有用过短信猫，都是调用网上接口的多，就简单一些。

短信猫的资费便宜一些吗？有什么区别。

fubblyc

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

加好友

发短信

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

Post By：2014/2/27 21:43:00 [只看该作者]

我只购买了短信猫，不用中间件的话，要怎么做了。看了狐爸5楼的回答，我做了：

创建了一张表{待发送}，三列：号码，内容，已发送（逻辑列）。在项目打开后自动打开短信猫。

然后怎么做呢？

是这样吗：

做个计划，定期10秒钟执行一次：

Dim dt As DataTable = DataTables("xxx")
If dt.DataRows.Count = 0 Then
    dt.LoadFilter = "已发送 = False Or 已发送 Is Null"
    dt.Load()
    For Each dr As DataRow In dt.DataRows
        '发送信息
        dr("已发送") = True
    Next
    dt.Save()
    dt.RemoveFor("True")
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:怎么加载待发送的信息.rar

[此贴子已经被作者于2014-2-27 21:44:00编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/2/27 21:58:00 [只看该作者]

回复13楼，发送短信的代码是这句

Dim dt As DataTable = DataTables("待发送")
If dt.DataRows.Count = 0 Then
    dt.LoadFilter = "已发送 = False Or 已发送 Is Null"
    dt.Load()
    For Each dr As DataRow In dt.DataRows
  FoxSMS.SendMsg(dr("号码"), dr("内容")) '发送信息
        dr("已发送") = True
    Next
    dt.Save()
    dt.RemoveFor("True")
End If