一物一码

    Dim tep As String    Dim temp As String    Dim i As Integer    Dim B As Integer    tep = rmsg    i = Len(tep)    If i         B = i / 4    If i = B * 4 Then     tep = Left(tep, B * 4)    Else   

作者: www.wapschool.com 写作日期:2000-4-13  

  发送到小灵通和发送到手机一样的编码 如编码："0891"+短信中心+"11000D91"+其他编码 其中0D表示发送号码的长度，小灵通一般为14位 91一般用于发送手机，发送到网关或小灵通就用A1 因此发送到小灵通就改为   "0891"+短信中心+"11000EA1"+其他编码   以号码长度为14为例

WAVECOM Q2358C CDMA模块常用AT命令如下：厂家认证      AT+CGMI      获得厂家的标识模式认证      AT+CGMM      查询支持频段修订认证      AT+CGMR      查询软件版本生产序号      AT+CGSN      查询IMEI NO.TE设置        AT+CSCS      选择支持网络查询IMSI      AT+CIM

Public Function telc(num As String) As String    Dim tl As Integer    Dim ltem, rtem, ttem As String    Dim ti As Integer    ttem = ""    tl = Len(num)    If tl > 14 Then        num = Mid(num, 1, 14

Public Function D_To_B(ByVal Dec As Long) As String    Do        D_To_B = Dec Mod 2 & D_To_B        Dec = Dec / 2    Loop While DecEnd FunctionPublic Function B_To_D(ByVal Bin As String) As Integer 

  Public Function ascg(smsg As String) As String    Dim si, sb As Integer    Dim stmp As Integer    Dim stemp As String    sb = Len(smsg)    ascg = ""    For si = 1 To sb     stmp = AscW(Mid(smsg, si,

  Dim tep As String    Dim temp As String    Dim i As Integer    Dim B As Integer    Dim rems As String    tep = rmsg    i = Len(tep)    If i         B = i / 2        If i = B * 2 Then     tep = Left(

  GSM MOEM 介绍 该产品使用wavecom q2303a（2C）原厂核心芯片，可以用作短信会议通知、打折促销、短信会员管理、短信招聘、短信群发，OA短信提醒。但不能上GPRS。购买时请注意用途。产品一年包换，3年保修。有RS232串口和USB 两种接口。RS232串口配件包括：5-12V DC变压器1个，天线一个（车载天线和短棒天线任选其一），RS232数据线一条。USB接口配件包括：天