VB PDU mode 7 bit 解码
来源:互联网 发布:gps数据导入cad的软件 编辑:程序博客网 时间:2024/05/29 18:33
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 < 1 Then Exit Function
B = i / 2
If i = B * 2 Then
tep = Left(tep, B * 2)
Else
B = B - 1
tep = Left(tep, B * 2)
End If
chg7 = ""
rems = ""
Dim trint As Integer
Dim strtmp As String
trint = 1
strtmp = ""
For i = 1 To B
temp = "&H" & Mid(tep, (i - 1) * 2 + 1, 2)
temp = D_To_B(Val(temp)) '转二进制
If Len(temp) < 8 Then
temp = strpla(8 - Len(temp)) + temp
End If
strtmp = Mid(temp, trint + 1, 8 - trint) + rems
rems = Mid(temp, 1, trint)
chg7 = chg7 & ChrW(CInt(Val(B_To_D(strtmp))))
trint = trint + 1
If trint = 8 Then
trint = 1
chg7 = chg7 & ChrW(CInt(Val(B_To_D(rems))))
rems = ""
End If
Next i
- VB PDU mode 7 bit 解码
- VB PDU mode 7 bit 解码
- VB PDU mode UCS2 解码
- GSM PDU 7bit编码解码函数
- GSM PDU 7bit短信编码与解码
- pdu 7bit 编码
- PDU-7Bit转码
- 短信部分 VB.NET解码PDU
- 手机接收的PDU串的分析(包含7-bit和UCS2解码,超长短信解释)
- 手机接收的PDU串的分析(包含7-bit和UCS2解码,超长短信解释)
- 中英文手机短信 PDU 串 编码(UCS2) 解码(UCS2,7-Bit) 程序 ( in C# )
- VB.Net实现7Bit编码与解码
- VB.Net实现PDU中的UCS2编码和解码
- pdu中的时间解码
- PDU短信解码
- 串口 pdu解码
- 短信PDU模式解码
- 短信PDU编码解码
- javabean的三个tags
- Tomcat 暴露JSP文件内容(真想不到TOMCAT还有这样的漏洞)
- TOMCAT源码分析(启动框架) 选择自 ThomasHuang 的 CSDN Blog
- TOMCAT源码分析(消息处理) 选择自 ThomasHuang 的 Blog
- VB PDU mode UCS2 解码
- VB PDU mode 7 bit 解码
- Jakarta-Tomcat简明中文版用户指南(zz)
- 用cruisecontrol 2.1.6成功了!
- [BLOG] 我的Blog定制效果和方法
- Servlet和ThreadLocal的测试(zz)
- 存储过程编写经验和优化措施 选择自 fgwf1 的 Blog
- AES (http://www.cryptosystem.net/aes/)
- [收藏]五种提高 SQL 性能的方法
- Tomcat的类载入器 (zz from www.donews.net/null)