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 代码 短信猫接收到的内容为空,请问这是什么原因?