【转】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