以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  与foxtable配套的金笛短信猫，一定要M1206B这一款吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53225)
--  作者：有点甜
--  发布时间：2014/7/2 17:57:00
--  
 应该是可以的，你问问厂家，开发代码是否一样就行了。
--  作者：李孝春
--  发布时间：2014/7/3 2:06:00
--  回复：（liuruihua）与foxtable配套的金笛短信猫，一定...
主要是看开发包 如果指令不一样  那么就需要索取开发包自己编程
--  作者：Bin
--  发布时间：2014/7/3 8:59:00
--  
那估计是不行的节奏了.
--  作者：有点甜
--  发布时间：2014/7/3 9:02:00
--  

 意思是可以发信息，就是代码有问题是么？

 

Dim ret As String = ""
If e.Content.StartsWith("@@") Then \'如果信息是以约定的@@开始
    Dim vals() As String = e.Content.Trim("@").Split("@")
   
    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
    FoxSms.DelMsgForIndex(e.Index) \'从SIM卡删除此短信
    FoxSMS.SendMsg(e.FromNumber,ret) \'回复短信,告诉业务员,此订单是否提交成功
End If
If ret = "" Then
    ret = "格式错误:" & e.Content
End If
--  作者：有点甜
--  发布时间：2014/7/3 9:03:00
--  

再改一下

 

Dim ret As String = ""
If e.Content.StartsWith("@@") Then \'如果信息是以约定的@@开始
    Dim vals() As String = e.Content.Trim("@").Split("@")
   
    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
End If
If ret = "" Then
    ret = "格式错误:" & e.Content
End If
FoxSms.DelMsgForIndex(e.Index) \'从SIM卡删除此短信
FoxSMS.SendMsg(e.FromNumber,ret) \'回复短信,告诉业务员,此订单是否提交成功
--  作者：有点甜
--  发布时间：2014/7/3 9:46:00
--  

 呃，现在是测试的时候，你一步一步测试啊。

 

 在事件里单独写一句代码 msgbx(e.Content)
--  作者：有点甜
--  发布时间：2014/7/3 9:52:00
--  

呃.......msgbox(e.Content)

 

你试试能否连接短信猫、发送和接收短信，能的话，就行了。

 

用最简短的代码去测试
--  作者：有点甜
--  发布时间：2014/7/3 10:07:00
--  

感觉不应该，你试试发短信能不能发出去。

 

再换台电脑试试。
--  作者：有点甜
--  发布时间：2014/7/3 10:11:00
--  
打开配套的例子，看能否正常使用。
--  作者：有点甜
--  发布时间：2014/7/3 10:17:00
--  
以下是引用liuruihua在2014-7-3 10:13:00的发言：
刚才又试了一下，如果短信前面包括有@@的，则整条内容没有任何显示，如果中间出现有@的，则只显示前段没有@的内容，@后的内容没有显示

 

那不就可以了？你改成别的特殊字符，就行。