La copia del código es la siguiente:
'// convertir chino a unicode
FunctionUrlEncoding (Vstrin)
dimi
DiMstrreturn, Thatchr, Innercode, Hight8, Low8
strreturn = ""
Fori = 1Tolen (Vstrin)
Thatchr = Mid (Vstrin, I, 1)
Ifabs (ASC (thatchr)) <& hffthen
strreturn = strreturn y thatchr
demás
innercode = asc (Thatchr)
Ifinnercode <0then
innerCode = innerCode+y H10000
endif
Hight8 = (InnerCodeand & Hff00)/& Hff
Low8 = InnerCodeand & Hff
strreturn = strreturn & "%" & hex (Hight8) y "%" y hex (Low8)
endif
próximo
Urlencoding = strreturn
Función final
'// Convertir unicode en texto normal
functionbytes2bstr (vin)
dimi
dimstrreturn, thischarcode, nextcharcode
strreturn = ""
Fori = 1TolenB (vin)
ThisCharCode = ASCB (MidB (Vin, I, 1))
Ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
demás
nextcharcode = ascb (midb (vin, i+1,1))
strreturn = strreturn & chr (clng (thisCharCode)*& H100+cint (nextCharCode)))
i = i+1
endif
próximo