If e.Content.StartsWith("@@") Then \'如果信息是以约定的@@开始
Dim vals() As String = e.Content.Trim("@").Split("@")
Dim ret As String
If vals.Length = 4 Then \'如果数组长度等于4
If vals(0) > "" AndAlso vals(1) > "" Then \'且提交了客户名称和产品名称
Dim Quantity As Integer
Dim Price As Double
If Integer.TryParse(Vals(2), Quantity) \'如果数量格式正确
If Double.TryParse(Vals(3), Price) Then \'如果单价格式正确
Dim dr As DataRow = DataTables("订单").AddNew()
dr("客户") = vals(0)
dr("产品") = vals(1)
dr("数量") = vals(2)
dr("单价") = vals(3)
ret = "提交成功:" & e.Content
End If
End If
End If
End If
If ret = "" Then
ret = "格式错误:" & e.Content
End If
FoxSms.DelMsgForIndex(e.Index) \'从SIM卡删除此短信
FoxSMS.SendMsg(e.FromNumber,ret) \'回复短信,告诉业务员,此订单是否提交成功
End If

请问一下 帮助里 发送短信的代码   我短信发送  @@www@kk@11@22   出错   但是发送  @@我我我@kk@11@22  就成功

我如果发送 @@www@kk@11@22 代码 短信猫接收到的内容为空，请问这是什么原因？

换一个分割符，如发送

##www#kk#11#22