If FoxSMS.Ready = False Then MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If FoxSms.SyncWorkMode = True '设置为同步工作模式 For Each r As Row In Tables("xxx").Rows FoxSMS.SendMsg(r("手机号码"), r("姓名") &":今晚要学狐表,你一个人去吃饭!") Next