modmain.bas

通过Modem传输数据 通过Modem传输数据 通过Modem传输数据

Attribute VB_Name = "modMain"
'这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为Unicode码。
Dim start As Date

'手机短信的接收,将UNICODE转换中文
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

'同上,为了发送以PDU模式发送短消息,必须将手机号码和对方手机号码也转换为PDU格式,下面的函数就是为了实现这种转换：
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码解码函数
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