?? module1.vb
字號(hào):
Module Module1
Public s As SMS
Sub Main()
Do
Console.WriteLine("Please Input PDU code(e to exit):")
Dim PDUCode As String = Console.ReadLine()
If UCase(PDUCode) = "E" Then Exit Do
Dim T As SMS.SMSType = GetSMSType(PDUCode)
Console.WriteLine(T.ToString)
Select Case T
Case SMS.SMSType.EMS_RECEIVED
s = New EMS_RECEIVED(PDUCode)
Case SMS.SMSType.SMS_RECEIVED
s = New SMS_RECEIVED(PDUCode)
Case SMS.SMSType.EMS_SUBMIT
s = New EMS_SUBMIT(PDUCode)
Case SMS.SMSType.SMS_SUBMIT
s = New SMS_SUBMIT(PDUCode)
Case SMS.SMSType.SMS_STATUS_REPORT
s = New SMS_STATUS_REPORT(PDUCode)
Case Else
Stop
End Select
Console.WriteLine(s.UnicodeToGB(s.TP_UD))
Loop
End Sub
Public Function GetSMSType(ByVal PDUCode As String) As SMS.SMSType
'取得FirstOctet
Dim FirstOctet As Byte
Dim L As Integer = SMS.GetByte(PDUCode)
SMS.GetByte(PDUCode)
SMS.GetString(PDUCode, (L - 1) * 2)
FirstOctet = SMS.GetByte(PDUCode)
'取得特征碼
'取得基本碼 最后兩個(gè)bit + 是否有header作為標(biāo)記
Dim t1 As Integer = FirstOctet And 3 '00000011
Dim t2 As Integer = FirstOctet And 64 '01000000
'特別處理
If t1 = 3 And t2 = 64 Then Return SMS.SMSType.EMS_SUBMIT
Return t1 + t2
End Function
End Module
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -