发送短信

发送短信

异步发送短信

异步发送短信首先将信息提交到短信猫，发送结束后触发SentMsgStatus，整个发送过程不会影响系统的正常运行。

示例

If FoxSMS.Ready = False Then
MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
FoxSms.SyncWorkMode = False '设置为异步工作模式
FoxSMS.SendMsg("13800138000","异步发送短信测试")

如果你要跟踪短信是否发送成功，并将发送成功的信息记录在收件箱表，可以先新建一个名为收件箱的表，包括三列，分别为号码、内容、时间。

然后在SentMsgStatus事件设置代码：

If e.Succeed Then '如果发送成功
    Dim r As Row = Tables("发件箱").AddNew()
    r("号码") = e.DestNumber
    r("内容") = e.Content
    r("时间") = Date.Now()
    r.Save()
Else
    MessageBox.Show("向" & e.DestNumber & "发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

同步发送短信

以同步方式发送短信，在发送短信的过程中不能进行任何操作，直到短信发送结束。

示例

If FoxSMS.Ready = False Then
    MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
FoxSms.SyncWorkMode = True '设置为同步工作模式
If FoxSMS.SendMsg("13800138000","异步发送短信测试") = 0 Then
    MessageBox.Show("发送信息成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

由于发送一条短信大概需要4秒左右，所以建议采用异步发送方式，特别是需要发送多条短信的时候。

同时向多个号码发送短信

不管是异步方式还是同步方式，都可以同时向多个号码发送短信，不同的号码之前用分号隔开:

示例

If FoxSMS.Ready = False Then
    MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
FoxSms.SyncWorkMode = True '设置为同步工作模式
If FoxSMS.SendMsg("13800138000;15876377122;13232670670","测试短信内容") = 0 Then
    MessageBox.Show("发送信息成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

本页地址：http://www.foxtable.com/webhelp/topics/2423.htm