【转】VBS - GB 字符转十六进制 UCS-2 码

Function GBChar2UCS2Code(str)
    Dim i, char, code
    For i = 1 To Len(str)
        char = Mid(Str, i, 1)
        code = code & Chr(38)
        code = code & Chr(35)
        code = code & Chr(120)
        code = code & Hex(AscW(char))
        code = code & Chr(59)
    Next
    GBChar2UCS2Code = code
End Function