易语言文本缩短模块源码

系统结构:百度网址缩短,百度网址恢复,文本_在线缩短,文本_在线还原,字节集到十六进制文本_dtcser,十六进制文本到字节集_dtcser,RC4_解密,RC4_加密,网页_访问,网页_Cookie合并更新,文本_去重复文本,内部_数组成员是否存在_文本,内部_Cookie取名,内部_数组成员是否存在1,网页_取页面地址,网页_取端口,文本_取出中间文本,内部_协议头取值,网页_取域名,InternetOpenA,InternetCloseHandle,InternetConnectA,HttpOpenRequestA,HttpSendRequestA,HttpSendRequestA_字节集,InternetReadFile,HttpQueryInfoA,

======程1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 百度网址缩短
           |  |
           |  |------ 百度网址恢复
           |  |
           |  |------ 文本_在线缩短
           |  |
           |  |------ 文本_在线还原
           |  |
           |  |------ 字节集到十六进制文本_dtcser
           |  |
           |  |------ 十六进制文本到字节集_dtcser
           |  |
           |  |------ RC4_解密
           |  |
           |  |------ RC4_加密
           |  |
           |  |
======程2
           |  |
           |  |------ 网页_访问
           |  |
           |  |------ 网页_Cookie合并更新
           |  |
           |  |------ 文本_去重复文本
           |  |
           |  |------ 内部_数组成员是否存在_文本
           |  |
           |  |------ 内部_Cookie取名
           |  |
           |  |------ 内部_数组成员是否存在1
           |  |
           |  |------ 网页_取页面地址
           |  |
           |  |------ 网页_取端口
           |  |
           |  |------ 文本_取出中间文本
           |  |
           |  |------ 内部_协议头取值
           |  |
           |  |------ 网页_取域名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetConnectA
           |  |
           |  |---[dll]------   HttpOpenRequestA
           |  |
           |  |---[dll]------   HttpSendRequestA
           |  |
           |  |---[dll]------   HttpSendRequestA_字节集
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   HttpQueryInfoA

调用的DLL命令:

.DLL命令 InternetOpenA, 整数型, "wininet.dll", "InternetOpenA"
    .参数 句柄名称, 文本型, 传址
    .参数 连接类型, 整数型
    .参数 代理地址, 文本型, 传址
    .参数 代理掩码, 文本型, 传址
    .参数 dwFlags, 整数型, , 0

.DLL命令 InternetCloseHandle, 逻辑型, "wininet.dll", "InternetCloseHandle"
    .参数 句柄, 整数型

.DLL命令 InternetConnectA, 整数型, "wininet.dll", "InternetConnectA"
    .参数 Internet句柄, 整数型
    .参数 域名, 文本型, 传址
    .参数 服务器端口, 整数型
    .参数 用户名, 文本型, 传址
    .参数 用户口令, 文本型, 传址
    .参数 服务类型, 整数型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpOpenRequestA, 整数型, "wininet.dll", "HttpOpenRequestA"
    .参数 Internet连接句柄, 整数型
    .参数 访问方式, 文本型, 传址
    .参数 页面路径, 文本型, 传址
    .参数 协议版本, 文本型, 传址
    .参数 引用页, 文本型, 传址
    .参数 识别类型, 文本型, 传址
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpSendRequestA, 逻辑型, "wininet.dll", "HttpSendRequestA"
    .参数 HTTP请求句柄, 整数型
    .参数 附加协议头, 文本型, 传址
    .参数 附加协议头长度, 整数型
    .参数 提交信息, 文本型, 传址
    .参数 提交信息长度, 整数型

.DLL命令 HttpSendRequestA_字节集, 逻辑型, "wininet.dll", "HttpSendRequestA"
    .参数 HTTP请求句柄, 整数型
    .参数 附加协议头, 文本型, 传址
    .参数 附加协议头长度, 整数型
    .参数 提交信息, 字节集, 传址
    .参数 提交信息长度, 整数型

.DLL命令 InternetReadFile, 逻辑型, "wininet.dll", "InternetReadFile"
    .参数 HTTP请求句柄, 整数型
    .参数 sBuffer, 字节集, 传址
    .参数 lNumBytesToRead, 整数型
    .参数 lNumberOfBytesRead, 整数型, 传址

.DLL命令 HttpQueryInfoA, 逻辑型, "wininet.dll", "HttpQueryInfoA"
    .参数 Internet请求句柄, 整数型
    .参数 待查信息, 整数型
    .参数 返回容器, 文本型, 传址
    .参数 返回容器长度, 整数型, 传址
    .参数 lpdwIndex, 整数型