将Unicode到Unicode转换成普通文本

复制代码代码如下所示：
将中文转换成unicode
功能urlencoding（vstrin）

朦胧的我
昏暗的strreturn，thischr，innercode，hight8，low8

strreturn =
我= 1 Len（vstrin）
thischr =中（vstrin，I，1）
如果ABS（ASC（thischr））< HFF然后
strreturn = strreturn thischr
其他的
innercode = ASC（thischr）
如果innercode＜0
innercode = innercode + H10000
最后如果
hight8 =（innercode和hff00） HFF
low8 = innercode HFF
strreturn = strreturn %六（hight8）%六（low8）
最后如果
下一个

urlencoding = strreturn

端功能

将Unicode转换为普通文本
功能bytes2bstr（VIN）
朦胧的我
昏暗的strreturn，ThisCharCode，nextcharcode

strreturn =
我= 1 LenB（VIN）
thischarcode = AscB（多重交替焙烘显影工艺（VIN，I，1））
如果thischarcode < H80然后
strreturn = strreturn CHR（thischarcode）
其他的
nextcharcode = AscB（多重交替焙烘显影工艺（VIN，我+ 1））
strreturn = strreturn CHR（CLNG（thischarcode）×H100 + Cint（nextcharcode））
i = i + 1
最后如果
下一个
bytes2bstr = strreturn

端功能

函数gettext（O，URL）

昏暗的oreq

下次继续出错

如果O什么也不是
/ /创建XMLHTTP对象
集oreq = CreateObject（MSXML2. XMLHTTP ）
其他的
集oreq = O
最后如果

oreq.open
oreq.send

如果oreq.status = 200或oreq.status = 0
gettext = bytes2bstr（oreq。responsebody）
其他的
gettext =
最后如果

端功能