Attribute VB_Name = "modMain"
'這個函數(shù)主要應用到VB自帶的一個格式轉(zhuǎn)換函數(shù)：ChrW（）將中文轉(zhuǎn)換為Unicode碼。
Dim start As Date

'手機短信的接收,將UNICODE轉(zhuǎn)換中文
Public Function Unicode2AscII(ByVal s As String)
    On Error Resume Next
    Dim i As Integer
    Dim R As String
    For i = 1 To Len(s) Step 4
        R = R + ChrB("&H" & Mid(s, i + 2, 2)) & ChrB("&H" & Mid(s, i, 2))
    Next
    Unicode2AscII = R
End Function

'同上,為了發(fā)送以PDU模式發(fā)送短消息,必須將手機號碼和對方手機號碼也轉(zhuǎn)換為PDU格式,下面的函數(shù)就是為了實現(xiàn)這種轉(zhuǎn)換：
Public Function telc(num As String) As String
    Dim TL As Integer
    Dim ltem As String, rtem As String, ttem As String
    Dim ti As Integer
    ttem = ""
    TL = Len(num)
    If TL <> 11 And TL <> 13 Then
        MsgBox "號碼錯誤:" & TL
        Exit Function
    End If
    If TL = 11 Then
        TL = TL + 2
        num = "86" & num
    End If
    For ti = 1 To TL Step 2
        ltem = Mid(num, ti, 1)
        rtem = Mid(num, ti + 1, 1)
        If ti = TL Then rtem = "F"
        ttem = ttem & rtem & ltem
    Next ti
    telc = ttem
End Function

'Unicode碼解碼函數(shù)
Public Function Ascg(sMsg As String) As String
    Dim si As Integer, 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, 1))
    If Abs(stmp) < 127 Then
    stemp = "00" & Hex(stmp)
    Else
     stemp = Hex(stmp)
     End If
     Ascg = Ascg & stemp
    Next si
    Ascg = Trim(Ascg)
End Function
Public Sub Delay(pause As Double)
    start = Timer
    While Timer < start + pause
        DoEvents
    Wend
End Sub