A cópia do código é a seguinte:
'// converte chinês em unicode
Functurlencoding (vstrin)
dimi
Dimstrreturn, Thischr, InnerCode, Hight8, Low8
strreturn = ""
fori = 1tolen (vstrin)
Thischr = MID (vStrin, i, 1)
Ifabs (ASC (thischr)) <& hffthen
strreturn = strreturn & theChr
outro
InnerCode = ASC (Thischr)
IfinnerCode <0Then
InnerCode = InnerCode+& H10000
endif
Hight8 = (InnerCodeand & Hff00)/& hff
LOW8 = INERCODEAND e HFF
strreturn = strreturn & "%" & hex (Hight8) & "%" e hexade
endif
próximo
Urlencoding = strreturn
Função final
'// Converter unicode para texto normal
FunctionBytes2BStr (VIN)
dimi
DIMSTRRETURN, TISCHARCODE, NEXTCHARCODE
strreturn = ""
fori = 1tolenb (VIN)
ThisCharcode = ASCB (MIDB (VIN, i, 1))
IfthScharcode <& h80Then
strreturn = strreturn & ch (thischarcode)
outro
nextcharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & ch (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
próximo