主题：从列中提取手机号码发送短信

可以一次向多个号码发送信息，中间用分号隔开，例如：

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

在命令窗口执行：

For i As Integer = 0 To DataTables("表A").DataRows.Count -1 Step 5
    Dim s As String = ""
    For n As Integer = i To i + 4
        If n  > DataTables("表A").DataRows.Count -1 Then
            Exit For
        End If
        s = s & "," & DataTables("表A").DataRows(n)("手机号码")
    Next
    output.show(s.trim(","))
Next