【纯源码】调用有道翻译网络api 支持中翻英或多语翻中 - 精易论坛

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
_临时子程序

变量名	类型	静态	数组	备注
t	整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
t ＝取启动时间 ()
' 调试输出 (UTF8到文本 (网页_访问_对象 (“https://www.baidu.com”)))
调试输出 (翻译文字 (“browser”))
t ＝取启动时间 () － t
调试输出 (t)

子程序名	返回值类型	公开	备注
翻译文字	文本型		调用有道翻译网络api 支持中翻英或多语翻中
参数名	类型	参考	可空	数组	备注
待翻译文本	文本型

变量名	类型	静态	数组	备注
局_网址	文本型
局_提交协议头	文本型
局_返回结果	文本型
局_结果数组	文本型		2
局_待翻译	文本型
局_翻译结果	文本型

局_待翻译＝待翻译文本
局_网址＝ “http://elephant.browser.360.cn/?t=translate&i=” ＋局_待翻译＋ “&type=AUTO&doctype=text&xmlVersion=1.1&keyfrom=360se&m=youdao”
局_提交协议头＝ “Connection: keep-alive” ＋ #换行符＋ “Referer: http://fanyi.youdao.com/translate” ＋ #换行符＋ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36” ＋ #换行符＋ “Accept-Language: zh-CN,zh;q=0.8”
局_返回结果＝ UTF8到文本 (网页_访问_对象 (局_网址, 0, , , , 局_提交协议头, , , , , , , , , , , ))
局_结果数组＝分割文本 (局_返回结果, “result=”, 2)

如果 (取数组成员数 (局_结果数组) ＝ 2)

局_翻译结果＝局_结果数组 [2]

局_翻译结果＝子文本替换 (局_翻译结果, “'”, “'”, , , 假)

局_翻译结果＝ “翻译失败，请检查被翻译文本是否为空。”
返回 (局_翻译结果)

子程序名	返回值类型	公开	备注
网页_访问_对象	字节集		使用WinHttp的对象方式访问网页
参数名	类型	参考	可空	数组	备注
网址	文本型				完整的网页地址,必须包含http://或者https://
访问方式	整数型				0=GET 1=POST 2=HEAD 3=PUT 4=OPTIONS 5=DELETE 6=TRACE 7=CONNECT 8=PATCH
提交信息	文本型				"POST"专用自动UTF8编码
提交Cookies	文本型				设置提交时的cookie
返回Cookies	文本型				返回的Cookie
附加协议头	文本型				一行一个请用换行符隔开
返回协议头	文本型				返回的协议头
返回状态代码	整数型				网页返回的状态代码，例如：200；302；404等
禁止重定向	逻辑型				默认不禁止网页重定向
字节集提交	字节集				提交字节集数据
代理地址	文本型				代理地址，格式为 8.8.8.8:88
超时	整数型				秒\|默认为15秒,-1为无限等待
代理用户名	文本型				用户名
代理密码	文本型				密码
代理标识	整数型				代理标识，默认为1，0为路由器
对象继承	对象				此处可自行提供对象，不再主动创建
是否自动合并更新Cookie	逻辑型				默认为真，自动合并更新
是否补全必要协议头	逻辑型				当附件协议头为空时自动添加必要的UA协议头默认为真，假将不再添加非传入协议头
是否处理协议头大小写	逻辑型				将协议头中的键名首字母处理为大写默认为真

变量名	类型	静态	数组	备注
局_访问方式	文本型
局_WinHttp	对象
局_发送协议头	文本型		0
局_返回协议头	文本型		0
局_计次	整数型
局_网页数据	字节集
局_变体提交	变体型
局_附加协议头	文本型

如果真 (是否为空 (是否自动合并更新Cookie))

是否自动合并更新Cookie ＝真

如果真 (是否为空 (是否补全必要协议头))

是否补全必要协议头＝真

如果真 (是否为空 (是否处理协议头大小写))

是否处理协议头大小写＝真

线程_初始化COM库 ()

如果真 (访问方式＜ 0 或访问方式＞ 8)

访问方式＝ 0
局_访问方式＝多项选择 (访问方式＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”, “PATCH”)

判断 (是否为空 (对象继承))

如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝假)

返回 ({ })

局_WinHttp ＝对象继承

如果真 (超时 ≠ -1)

如果 (超时＜ 1)

超时＝ 15000

超时＝超时 × 1000

局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)

如果真 (代理地址 ≠ “”)

局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)

如果真 (禁止重定向)

局_WinHttp.写属性 (“Option”, 6, 0)

局_WinHttp.写属性 (“Option”, 4, 13056) ' 忽略错误标志
局_附加协议头＝附加协议头

如果真 (是否补全必要协议头)

如果真 (寻找文本 (局_附加协议头, “Accept:”, , 真) ＝ -1)

局_附加协议头＝局_附加协议头＋ #换行符＋ “Accept: */*”

如果真 (寻找文本 (局_附加协议头, “Referer:”, , 真) ＝ -1)

局_附加协议头＝局_附加协议头＋ #换行符＋ “Referer: ” ＋网址

如果真 (寻找文本 (局_附加协议头, “Accept-Language:”, , 真) ＝ -1)

局_附加协议头＝局_附加协议头＋ #换行符＋ “Accept-Language: zh-cn”

如果真 (寻找文本 (局_附加协议头, “User-Agent:”, , 真) ＝ -1)

局_附加协议头＝局_附加协议头＋ #换行符＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”

如果真 (访问方式＝ 1)

如果真 (寻找文本 (局_附加协议头, “Content-Type:”, , 真) ＝ -1)

局_附加协议头＝局_附加协议头＋ #换行符＋ “Content-Type: application/x-www-form-urlencoded”

如果真 (是否处理协议头大小写)

局_附加协议头＝网页_处理协议头 (局_附加协议头)

如果真 (代理地址 ≠ “” 且代理用户名 ≠ “”)

如果真 (是否为空 (代理标识))

代理标识＝ 1

局_WinHttp.方法 (“SetCredentials”, 代理用户名, 代理密码, 代理标识)

如果真 (代理标识＝ 1)

局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋编码_BASE64编码 (到字节集 (代理用户名＋ “:” ＋代理密码)))

如果真 (取反 (是否为空 (提交Cookies)))

如果真 (取文本长度 (提交Cookies) ＞ 0)

如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)

提交Cookies ＝子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)

局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)

判断 (寻找文本 (局_附加协议头, #换行符, , 假) ＝ -1)

局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_附加协议头), 内部_协议头取值 (局_附加协议头))

局_发送协议头＝分割文本 (局_附加协议头, #换行符, )

计次循环首 (取数组成员数 (局_发送协议头), 局_计次)

如果真 (局_发送协议头 [局_计次] ≠ “”)

如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)

如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)

到循环尾 () ' 筛选排除此参数避免协议头有此参数 HTTP对象又自动添加此参数

局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))

计次循环尾 ()

判断 (字节集提交＝ { })

局_WinHttp.方法 (“Send”, 提交信息)

局_变体提交.赋值 (字节集提交, )

局_WinHttp.方法 (“Send”, 局_变体提交)
局_网页数据＝局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
返回协议头＝局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
返回状态代码＝局_WinHttp.读数值属性 (“Status”, )
局_WinHttp.读文本属性 (“StatusText”, )
局_返回协议头＝分割文本 (返回协议头, #换行符, )
返回Cookies ＝ HeadersToCookie (局_返回协议头)

如果真 (是否自动合并更新Cookie)

如果真 (取反 (是否为空 (提交Cookies)))

返回Cookies ＝网页_Cookie合并更新 (提交Cookies, 返回Cookies)

局_WinHttp.清除 ()
线程_取消COM库 ()
返回 (局_网页数据)

子程序名	返回值类型	公开	备注
网页_Cookie合并更新	文本型		返回更新后的Cookie
参数名	类型	参考	可空	数组	备注
旧Cookie	文本型
新Cookie	文本型

变量名	类型	静态	数组	备注
局_旧Cookie组	文本型		0
局_新Cookie组	文本型		0
局_计次	整数型

' 初步格式化
旧Cookie ＝删首尾空 (旧Cookie)

如果真 (取文本右边 (旧Cookie, 1) ＝ “;”)

旧Cookie ＝旧Cookie ＋字符 ( #空格键 )

新Cookie ＝删首尾空 (新Cookie)

如果真 (取文本右边 (新Cookie, 1) ＝ “;”)

新Cookie ＝新Cookie ＋字符 ( #空格键 )

' 开始更新Cookie
局_旧Cookie组＝分割文本 (旧Cookie, “; ”, )
局_新Cookie组＝分割文本 (新Cookie, “; ”, )

计次循环首 (取数组成员数 (局_旧Cookie组), 局_计次)

如果真 (内部_数组成员是否存在1 (局_新Cookie组, 内部_Cookie取名 (局_旧Cookie组 [局_计次])) ＝假)

加入成员 (局_新Cookie组, 局_旧Cookie组 [局_计次])

计次循环尾 ()
' 去除无效的Cookie
旧Cookie ＝ “”

计次循环首 (取数组成员数 (局_新Cookie组), 局_计次)

如果真 (取文本右边 (局_新Cookie组 [局_计次], 8) ≠ “=deleted”)

旧Cookie ＝旧Cookie ＋局_新Cookie组 [局_计次] ＋ “; ”

计次循环尾 ()
旧Cookie ＝取文本左边 (旧Cookie, 取文本长度 (旧Cookie) － 2)
' 对重复的Cookie进行合并
旧Cookie ＝文本_去重复文本 (旧Cookie, “; ”)
返回 (旧Cookie)

子程序名	返回值类型	公开	备注
HeadersToCookie	文本型
参数名	类型	参考	可空	数组	备注
aryHeaders	文本型

变量名	类型	静态	数组	备注
dwCount	整数型
dwBegin	整数型
dwEnd	整数型
szHeaders	文本型
i	整数型

dwCount ＝取数组成员数 (aryHeaders)

计次循环首 (dwCount, i)

dwBegin ＝寻找文本 (aryHeaders

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 程序集1<br />
<br />
.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br />
<br />
<br />
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
.子程序 _临时子程序<br />
.局部变量 t, 整数型<br />
<br />
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br />
<br />
t ＝ 取启动时间 ()<br />
' 调试输出 (UTF8到文本 (网页_访问_对象 (“<a href="https://www.baidu.com" target="_blank">https://www.baidu.com</a>”)))<br />
调试输出 (翻译文字 (“browser”))<br />
t ＝ 取启动时间 () － t<br />
调试输出 (t)<br />
<br />
<br />
.子程序 翻译文字, 文本型, 公开, 调用 有道翻译网络api  支持中翻英  或  多语翻中<br />
.参数 待翻译文本, 文本型<br />
.局部变量 局_网址, 文本型<br />
.局部变量 局_提交协议头, 文本型<br />
.局部变量 局_返回结果, 文本型<br />
.局部变量 局_结果数组, 文本型, , "2"<br />
.局部变量 局_待翻译, 文本型<br />
.局部变量 局_翻译结果, 文本型<br />
<br />
局_待翻译 ＝ 待翻译文本<br />
局_网址 ＝ “<a href="http://elephant.browser.360.cn/?t=translate&i=" target="_blank">http://elephant.browser.360.cn/?t=translate&i=</a>” ＋ 局_待翻译 ＋ “&type=AUTO&doctype=text&xmlVersion=1.1&keyfrom=360se&m=youdao”<br />
局_提交协议头 ＝ “Connection: keep-alive” ＋ #换行符 ＋ “Referer: http://fanyi.youdao.com/translate” ＋ #换行符 ＋ “User-Agent:  Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36” ＋ #换行符 ＋ “Accept-Language:  zh-CN,zh;q=0.8”<br />
局_返回结果 ＝ UTF8到文本 (网页_访问_对象 (局_网址, 0, , , , 局_提交协议头, , , , , , , , , , , ))<br />
局_结果数组 ＝ 分割文本 (局_返回结果, “result=”, 2)<br />
.如果 (取数组成员数 (局_结果数组) ＝ 2)<br />
    局_翻译结果 ＝ 局_结果数组 [2]<br />
    局_翻译结果 ＝ 子文本替换 (局_翻译结果, “'”, “'”, , , 假)<br />
.否则<br />
    局_翻译结果 ＝ “翻译失败，请检查被翻译文本是否为空。”<br />
.如果结束<br />
返回 (局_翻译结果)<br />
<br />
<br />
.子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页<br />
.参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://<br />
.参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT  8=PATCH<br />
.参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码<br />
.参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie<br />
.参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie<br />
.参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开<br />
.参数 返回协议头, 文本型, 参考 可空, 返回的协议头<br />
.参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等<br />
.参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br />
.参数 字节集提交, 字节集, 可空, 提交字节集数据<br />
.参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88<br />
.参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待<br />
.参数 代理用户名, 文本型, 可空, 用户名<br />
.参数 代理密码, 文本型, 可空, 密码<br />
.参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器<br />
.参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建<br />
.参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新<br />
.参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头<br />
.参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真<br />
.局部变量 局_访问方式, 文本型<br />
.局部变量 局_WinHttp, 对象<br />
.局部变量 局_发送协议头, 文本型, , "0"<br />
.局部变量 局_返回协议头, 文本型, , "0"<br />
.局部变量 局_计次, 整数型<br />
.局部变量 局_网页数据, 字节集<br />
.局部变量 局_变体提交, 变体型<br />
.局部变量 局_附加协议头, 文本型<br />
<br />
.如果真 (是否为空 (是否自动合并更新Cookie))<br />
    是否自动合并更新Cookie ＝ 真<br />
.如果真结束<br />
<br />
.如果真 (是否为空 (是否补全必要协议头))<br />
    是否补全必要协议头 ＝ 真<br />
.如果真结束<br />
<br />
.如果真 (是否为空 (是否处理协议头大小写))<br />
    是否处理协议头大小写 ＝ 真<br />
.如果真结束<br />
<br />
线程_初始化COM库 ()<br />
<br />
.如果真 (访问方式 ＜ 0 或 访问方式 ＞ 8)<br />
    访问方式 ＝ 0<br />
.如果真结束<br />
局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”, “PATCH”)<br />
<br />
.判断开始 (是否为空 (对象继承))<br />
    .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)<br />
        返回 ({  })<br />
    .如果真结束<br />
<br />
.默认<br />
    局_WinHttp ＝ 对象继承<br />
.判断结束<br />
<br />
.如果真 (超时 ≠ -1)<br />
    .如果 (超时 ＜ 1)<br />
        超时 ＝ 15000<br />
    .否则<br />
        超时 ＝ 超时 × 1000<br />
    .如果结束<br />
    局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)<br />
.如果真结束<br />
<br />
.如果真 (代理地址 ≠ “”)<br />
    局_WinHttp.方法 (“SetProxy”, 2, 代理地址)<br />
.如果真结束<br />
局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)<br />
.如果真 (禁止重定向)<br />
    局_WinHttp.写属性 (“Option”, 6, 0)<br />
.如果真结束<br />
<br />
局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志<br />
<br />
局_附加协议头 ＝ 附加协议头<br />
.如果真 (是否补全必要协议头)<br />
    .如果真 (寻找文本 (局_附加协议头, “Accept:”, , 真) ＝ -1)<br />
        局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept: */*”<br />
    .如果真结束<br />
<br />
    .如果真 (寻找文本 (局_附加协议头, “Referer:”, , 真) ＝ -1)<br />
        局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址<br />
    .如果真结束<br />
<br />
    .如果真 (寻找文本 (局_附加协议头, “Accept-Language:”, , 真) ＝ -1)<br />
        局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”<br />
    .如果真结束<br />
<br />
    .如果真 (寻找文本 (局_附加协议头, “User-Agent:”, , 真) ＝ -1)<br />
        局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”<br />
    .如果真结束<br />
<br />
    .如果真 (访问方式 ＝ 1)<br />
        .如果真 (寻找文本 (局_附加协议头, “Content-Type:”, , 真) ＝ -1)<br />
            局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
.如果真 (是否处理协议头大小写)<br />
    局_附加协议头 ＝ 网页_处理协议头 (局_附加协议头)<br />
.如果真结束<br />
<br />
.如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)<br />
    .如果真 (是否为空 (代理标识))<br />
        代理标识 ＝ 1<br />
    .如果真结束<br />
<br />
    局_WinHttp.方法 (“SetCredentials”, 代理用户名, 代理密码, 代理标识)<br />
    .如果真 (代理标识 ＝ 1)<br />
        局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
.如果真 (取反 (是否为空 (提交Cookies)))<br />
    .如果真 (取文本长度 (提交Cookies) ＞ 0)<br />
        .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)<br />
            提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
    局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)<br />
.如果真结束<br />
<br />
<br />
.判断开始 (寻找文本 (局_附加协议头, #换行符, , 假) ＝ -1)<br />
    局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_附加协议头), 内部_协议头取值 (局_附加协议头))<br />
.默认<br />
    局_发送协议头 ＝ 分割文本 (局_附加协议头, #换行符, )<br />
    .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)<br />
        .如果真 (局_发送协议头 [局_计次] ≠ “”)<br />
            .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)<br />
                .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)<br />
                    到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数<br />
                .如果真结束<br />
<br />
            .如果真结束<br />
<br />
            局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.判断结束<br />
<br />
.判断开始 (字节集提交 ＝ {  })<br />
    局_WinHttp.方法 (“Send”, 提交信息)<br />
.默认<br />
    局_变体提交.赋值 (字节集提交, )<br />
    局_WinHttp.方法 (“Send”, 局_变体提交)<br />
.判断结束<br />
局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()<br />
返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )<br />
返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )<br />
局_WinHttp.读文本属性 (“StatusText”, )<br />
局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )<br />
返回Cookies ＝ HeadersToCookie (局_返回协议头)<br />
.如果真 (是否自动合并更新Cookie)<br />
    .如果真 (取反 (是否为空 (提交Cookies)))<br />
        返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)<br />
    .如果真结束<br />
<br />
.如果真结束<br />
局_WinHttp.清除 ()<br />
线程_取消COM库 ()<br />
返回 (局_网页数据)<br />
<br />
<br />
<br />
.子程序 网页_Cookie合并更新, 文本型, , 返回更新后的Cookie<br />
.参数 旧Cookie, 文本型, 参考<br />
.参数 新Cookie, 文本型<br />
.局部变量 局_旧Cookie组, 文本型, , "0"<br />
.局部变量 局_新Cookie组, 文本型, , "0"<br />
.局部变量 局_计次, 整数型<br />
<br />
' 初步格式化<br />
旧Cookie ＝ 删首尾空 (旧Cookie)<br />
.如果真 (取文本右边 (旧Cookie, 1) ＝ “;”)<br />
    旧Cookie ＝ 旧Cookie ＋ 字符 (#空格键)<br />
.如果真结束<br />
<br />
新Cookie ＝ 删首尾空 (新Cookie)<br />
.如果真 (取文本右边 (新Cookie, 1) ＝ “;”)<br />
    新Cookie ＝ 新Cookie ＋ 字符 (#空格键)<br />
.如果真结束<br />
<br />
' 开始更新Cookie<br />
局_旧Cookie组 ＝ 分割文本 (旧Cookie, “; ”, )<br />
局_新Cookie组 ＝ 分割文本 (新Cookie, “; ”, )<br />
.计次循环首 (取数组成员数 (局_旧Cookie组), 局_计次)<br />
    .如果真 (内部_数组成员是否存在1 (局_新Cookie组, 内部_Cookie取名 (局_旧Cookie组 [局_计次])) ＝ 假)<br />
        加入成员 (局_新Cookie组, 局_旧Cookie组 [局_计次])<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
' 去除无效的Cookie<br />
旧Cookie ＝ “”<br />
.计次循环首 (取数组成员数 (局_新Cookie组), 局_计次)<br />
    .如果真 (取文本右边 (局_新Cookie组 [局_计次], 8) ≠ “=deleted”)<br />
        旧Cookie ＝ 旧Cookie ＋ 局_新Cookie组 [局_计次] ＋ “; ”<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
旧Cookie ＝ 取文本左边 (旧Cookie, 取文本长度 (旧Cookie) － 2)<br />
' 对重复的Cookie进行合并<br />
旧Cookie ＝ 文本_去重复文本 (旧Cookie, “; ”)<br />
返回 (旧Cookie)<br />
<br />
.子程序 HeadersToCookie, 文本型<br />
.参数 aryHeaders, 文本型, 数组<br />
.局部变量 dwCount, 整数型<br />
.局部变量 dwBegin, 整数型<br />
.局部变量 dwEnd, 整数型<br />
.局部变量 szHeaders, 文本型<br />
.局部变量 i, 整数型<br />
<br />
dwCount ＝ 取数组成员数 (aryHeaders)<br />
.计次循环首 (dwCount, i)<br />
    dwBegin ＝ 寻找文本 (aryHeaders

DLL命令名	返回值类型	公开	备注
CoInitialize	整数型		加载COM
DLL库文件名:
ole32.dll
在DLL库中对应命令名:
CoInitialize
参数名	类型	传址	数组	备注
pvReserved	整数型			值为0

DLL命令名	返回值类型	公开	备注
CoUninitialize			卸载COM
DLL库文件名:
ole32.dll
在DLL库中对应命令名:
CoUninitialize
参数名	类型	传址	数组	备注