主题：短信猫提示连接成功，发送后，却提示发送失败？

各位老师好，短信猫提示连接成功，发送后，却提示发送失败，不知道会有什么原因？

就是信息没有发送成功。

 

If e.Succeed Then '如果发送成功
   
    Dim r As Row = Tables("rjsytVIP回访记录").AddNew()
    r("VIP电话") = e.DestNumber
    r("短信回访内容") = e.Content
    r("回访时间") = Date.Now()
    r("回访形式") = "短信回访"
    r("回访单位") = user.name
    r("编号") = e.MsgID
    r.Save()

 

Else
    MessageBox.Show("向" & e.DestNumber & "发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

 

但是为什么会没有发送成功呢？短信猫是提示连接着。

 

 

计划也是有执行：

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

 

我在数据库里看到【已发送】是有打勾的。

 

难道是机房的信号不好？

各位老师，我晚上回来家里，又试了一遍，还是不行，还是提示【短信猫有连接】，计划有执行，但就是发送不成功。真是奇了怪了。。。

 

还换了张SIM卡

相关代码我也贴上：

 

AfterOpenProject

 

FoxSms.SyncWorkMode = False '设置为异步工作模式

FoxSMS.CommPort = 1 '注意端口号千万不能搞错

FoxSMS.OpenCom

 

If User.Type <> UserTypeEnum.Developer

    TableCaptionVisible = False

End If

Forms("主界面").Open()

MainTable = Tables("空表")

 

Forms("启动短信设备").Open()

 

 

 

ConnectModemResult

 

If e.Succeed = True Then

    MessageBox.Show("短信设备连接成功!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

    MessageBox.Show("短信设备连接失败!","提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

 

NewMessage

 

Dim r As Row = Tables("rjsytVIP回访记录").AddNew()

r("顾客回复的电话") = e.FromNumber

r("顾客回复的内容") = e.Content

r("回访时间") = Date.Now

r("发送时间") = e.SentTime

r("回访类别") = "顾客来信"

 

r.Save()

FoxSms.DelMsgForIndex(e.Index) '从SIM卡删除此短信

 

SentMsgStatus

 

If e.Succeed Then '如果发送成功

   

    Dim r As Row = Tables("rjsytVIP回访记录").AddNew()

    r("VIP电话") = e.DestNumber

    r("短信回访内容") = e.Content

    r("回访时间") = Date.Now()

    r("回访形式") = "短信回访"

    r("回访单位") = user.name

    r("编号") = e.MsgID

    r.Save()

 

 

 

Else

    MessageBox.Show("向" & e.DestNumber & "发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

 

计划管理

 

从提交上来的待发送自动发送短信

 

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

 

自动删除已经发送的信息

 

Dim dt As DataTable = DataTables("待发送")

dt.DeleteFor("已发送 = True")

 

表事件

 

窗口表事件

 

窗口与控件事件

 

启动短信设备_Button1_Click

 

FoxSms.SyncWorkMode = False '设置为异步工作模式

FoxSMS.CommPort = 1 '注意端口号千万不能搞错

FoxSMS.OpenCom

好的。实在不行的话我用他们自带的软件试一下。

有点甜老师，新建项目也是不行。我用了他们自带的软件，也还是不行。明天找厂家问去。

哈哈，谢谢各位老师，最后是一个吐血的原因：被运营商封杀了。打电话去激活一下就好了。。。。。

甜老师，别把我想的那么坏啊，俺可是正正经经的良民啊。哈哈。

 

打电话到10086说一下就复活了。

听说联通的管的不怎么严。

 

现在网关短信发不出去，幸好还有这种方式可以发。不过也不是最理想的，正在想怎么和个人微信号来和VIP会员互动。暂时还没有什么思路。

之前有了解可以通过手机导出微信记录到电脑，再传到狐表，但是对于服装店铺的导购员来说，还是有点小麻烦。

等把目前遇到的几个小BUG解决了，再来重点研究这个。

 

另外听说有几个国外的网站可以免费发短信，等后面再去研究下。。

 

谢谢甜老师和其他各位老师的帮助，现在我的VIP管理软件还有点像模像样了。哈哈。