主题：有关短信平台相关

If FoxSMS.Ready = False Then
MessageBox.show("请先连接短信猫!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
Dim cnt As Integer = FoxSMS.SimMsgCount
If cnt > 0 Then '如果SIM卡有短信
Dim sendtime As String
Dim strFrom As String
Dim strContent As String
Dim result As Integer
FoxSMS.AutoDelMsg = True '自动从SIM卡删除已经读取的短信
Tables("收件箱").StopRedraw()
For Index As Integer = 1 To FoxSMS.SimMsgCapacity
result = FoxSMS.ReadMsgForIndex(Index, strFrom, strContent, sendtime)
If result = 0 Then
Dim dr As Row = Tables("收件箱").AddNew()
dr("号码") = strFrom
dr("内容") = strContent
dr("发送时间") = SendTime
dr("接收时间") = Date.Now
End If
Next
Tables("收件箱").DataTable.Save()
Tables("收件箱").ResumeRedraw()
End If