以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 短信猫提示连接成功,发送后,却提示发送失败? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49631) |
-- 作者:fubblyc -- 发布时间:2014/4/21 17:49:00 -- 短信猫提示连接成功,发送后,却提示发送失败? 各位老师好,短信猫提示连接成功,发送后,却提示发送失败,不知道会有什么原因? |
-- 作者:Bin -- 发布时间:2014/4/21 17:51:00 -- 确定信息发送成功了没有? 对方有收到信息吗? 判断发送成功的代码发出来看看,是否你判断错了
|
-- 作者:fubblyc -- 发布时间:2014/4/21 17:54:00 -- 就是信息没有发送成功。
If e.Succeed Then \'如果发送成功
Else
但是为什么会没有发送成功呢?短信猫是提示连接着。
计划也是有执行: Dim dt As DataTable = DataTables("待发送") For Each dr As DataRow In dt.DataRows
我在数据库里看到【已发送】是有打勾的。
|
-- 作者:fubblyc -- 发布时间:2014/4/21 17:55:00 -- 难道是机房的信号不好? |
-- 作者:fubblyc -- 发布时间:2014/4/21 23:06:00 -- 各位老师,我晚上回来家里,又试了一遍,还是不行,还是提示【短信猫有连接】,计划有执行,但就是发送不成功。真是奇了怪了。。。
[此贴子已经被作者于2014-4-21 23:20:10编辑过]
|
-- 作者:fubblyc -- 发布时间:2014/4/21 23:07:00 -- 还换了张SIM卡 |
-- 作者:fubblyc -- 发布时间:2014/4/21 23:08:00 -- 相关代码我也贴上:
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 |
-- 作者:有点甜 -- 发布时间:2014/4/21 23:16:00 -- 以下是引用fubblyc在2014-4-21 23:07:00的发言:
还换了张SIM卡
单独调试,看是不是短信猫的问题。
弄一个新的项目,弄好环境,用代码测试发送一条短信。 |
-- 作者:fubblyc -- 发布时间:2014/4/21 23:20:00 -- 好的。实在不行的话我用他们自带的软件试一下。 |
-- 作者:fubblyc -- 发布时间:2014/4/22 0:22:00 -- 有点甜老师,新建项目也是不行。我用了他们自带的软件,也还是不行。明天找厂家问去。 |