手機短信收發_VB_領測軟件測試網

手機短信收發

發表于：2007-07-01來源：作者：點擊數：標簽：

手機短信發送中文轉換成Unicode碼函數因為手機短消息的發送是以PDU串的形式發送出去的，中文字符以Unicode碼來表示，所以在發送中文短消息之前必須首先將中文字符轉換為Unicode碼，下面的函數將實現這個功能。這個函數主要應用到 VB 自帶的一個格式轉換函

手機短信發送

² 中文轉換成Unicode碼函數

因為手機短消息的發送是以PDU串的形式發送出去的，中文字符以Unicode碼來表示，所以在發送中文短消息之前必須首先將中文字符轉換為Unicode碼，下面的函數將實現這個功能。這個函數主要應用到VB自帶的一個格式轉換函數：ChrW（）將中文轉換為Unicode碼。

Public Function chg(rmsg As String) As String

Dim tep As String

Dim temp As String

Dim i As Integer

Dim b As Integer

tep = rmsg

i = Len(tep)

b = i / 4

If i = b * 4 Then

b = b - 1

tep = Left(tep, b * 4)

Else

tep = Left(tep, b * 4)

End If

chg = ""

For i = 1 To b

temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4)

chg = chg & ChrW(CInt(Val(temp)))

Next i

End Function

原文轉自：http://www.anti-gravitydesign.com

軟件測試 > 測試開發技術 > 軟件測試開發語言 > VB >