易语言Wininet访问类v2.2模块源码 [db:版本]

易语言Wininet访问类v2.2模块源码

系统结构:Reset,Auto,SetLocal,SetOption,SetTimeouts,SetProxy,SetCredentials,SetGzipAuto,SetRequestHeader,DelRequestHeader,Open,Send,Send_Bin,GetResponseBody,GetResponseText,GetResponseTextUtf8,GetResponseHeader,GetResponseHeaders,GetResponseLocation,SetUserAgent,SetReferer,SetContentType,SetAccept,SetFip,AddCookie,DelCookie,GetCookie,GetCookies,SetCookies,Utf8ToAnsi,InternetOpen,InternetConnect,InternetCloseHandle,InternetSetOption_int,InternetSetOption_str,InternetSetOption_bin,InternetSetOption_InternetProxyInfo,HttpOpenRequest,HttpSendRequest,InternetReadFile,HttpQueryInfo,GetProcessHeap,HeapAlloc,HeapFree,HeapReAlloc,RtlMoveMemory_int_Ebin,API_MultiByteToWideChar_str_bin,API_MultiByteToWideChar_bin_bin,API_WideCharToMultiByte_bin_bin,API_WideCharToMultiByte_bin_str,

======EC
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======Wininet
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ _Create
| |
| |------ _Close
| |
| |------ _InitAutoData
| |
| |------ Reset
| |
| |------ Auto
| |
| |------ SetLocal
| |
| |------ SetOption
| |
| |------ SetTimeouts
| |
| |------ SetProxy
| |
| |------ SetCredentials
| |
| |------ SetGzipAuto
| |
| |------ SetRequestHeader
| |
| |------ DelRequestHeader
| |
| |------ Open
| |
| |------ Send
| |
| |------ Send_Bin
| |
| |------ GetResponseBody
| |
| |------ GetResponseText
| |
| |------ GetResponseTextUtf8
| |
| |------ GetResponseHeader
| |
| |------ GetResponseHeaders
| |
| |------ GetResponseLocation
| |
| |------ _GetLocation
| |
| |------ SetUserAgent
| |
| |------ SetReferer
| |
| |------ SetContentType
| |
| |------ SetAccept
| |
| |------ SetFip
| |
| |------ AddCookie
| |
| |------ DelCookie
| |
| |------ GetCookie
| |
| |------ GetCookies
| |
| |------ SetCookies
| |
| |
======_调用
| |
| |------ _取网址信息
| |
| |------ _处理Cookies
| |
| |
======_数值运算_asm
| |
| |------ _加一
| |
| |------ _加法
| |
| |------ _加法Ex
| |
| |------ _减一
| |
| |------ _减法
| |
| |------ _减法Ex
| |
| |
======编码
| |
| |------ Utf8ToAnsi
| |
| |
======调用的Dll
| |
| |---[dll]------ InternetOpen
| |
| |---[dll]------ InternetConnect
| |
| |---[dll]------ InternetCloseHandle
| |
| |---[dll]------ InternetSetOption_int
| |
| |---[dll]------ InternetSetOption_str
| |
| |---[dll]------ InternetSetOption_bin
| |
| |---[dll]------ InternetSetOption_InternetProxyInfo
| |
| |---[dll]------ HttpOpenRequest
| |
| |---[dll]------ HttpSendRequest
| |
| |---[dll]------ InternetReadFile
| |
| |---[dll]------ HttpQueryInfo
| |
| |---[dll]------ GetProcessHeap
| |
| |---[dll]------ HeapAlloc
| |
| |---[dll]------ HeapFree
| |
| |---[dll]------ HeapReAlloc
| |
| |---[dll]------ RtlMoveMemory_int_Ebin
| |
| |---[dll]------ API_MultiByteToWideChar_str_bin
| |
| |---[dll]------ API_MultiByteToWideChar_bin_bin
| |
| |---[dll]------ API_WideCharToMultiByte_bin_bin
| |
| |---[dll]------ API_WideCharToMultiByte_bin_str

调用的DLL命令:

.DLL命令 InternetOpen, 整数型, "Wininet", "InternetOpenA", , 初始化Wininet
.参数 lpszAgent, 文本型, 传址, UA信息
.参数 dwAccessType, 整数型, , 连接类型 1直接连接;3代理连接
.参数 lpszProxyName, 整数型, , 代理地址
.参数 lpszProxyBypass, 整数型, , 代理俺妈
.参数 dwFlags, 整数型, , 附加参数 例如异步

.DLL命令 InternetConnect, 整数型, "wininet", "InternetConnectA", , 打开并链接到一个FTP服务、GOPHER或指定地址的一个HTTP
.参数 Internet句柄, 整数型
.参数 域名, 文本型, 传址
.参数 服务器端口, 整数型, , 80HTTP;21FTP;
.参数 用户名, 整数型, , 空
.参数 用户口令, 整数型, , 空
.参数 服务类型, 整数型, , 1FTP;3HTTP
.参数 dwFlags, 整数型, , 0http; 134217728被动FTP模式
.参数 dwContext, 整数型, , 0

.DLL命令 InternetCloseHandle, 逻辑型, "wininet", "InternetCloseHandle", , 关闭一个打开的Internet句柄
.参数 hInternet, 整数型, , 要关闭的句柄

.DLL命令 InternetSetOption_int, 整数型, "wininet", "InternetSetOptionA", , 设置选项
.参数 hInternet, 整数型, , 句柄
.参数 dwOption, 整数型, , 选项值
.参数 lpBuffer, 整数型, 传址, 缓冲区
.参数 dwBufferLength, 整数型, , 缓冲区长度

.DLL命令 InternetSetOption_str, 整数型, "wininet", "InternetSetOptionA", , 设置选项
.参数 hInternet, 整数型, , 句柄
.参数 dwOption, 整数型, , 选项值
.参数 lpBuffer, 文本型, 传址, 缓冲区
.参数 dwBufferLength, 整数型, , 缓冲区长度

.DLL命令 InternetSetOption_bin, 整数型, "wininet", "InternetSetOptionA", , 设置选项
.参数 hInternet, 整数型, , 句柄
.参数 dwOption, 整数型, , 选项值
.参数 lpBuffer, 字节集, 传址, 缓冲区
.参数 dwBufferLength, 整数型, , 缓冲区长度

.DLL命令 InternetSetOption_InternetProxyInfo, 整数型, "wininet", "InternetSetOptionA", , 设置选项
.参数 hInternet, 整数型, , 句柄
.参数 dwOption, 整数型, , 选项值
.参数 lpBuffer, INTERNET_PROXY_INFO, , 缓冲区
.参数 dwBufferLength, 整数型, , 缓冲区长度

.DLL命令 HttpOpenRequest, 整数型, "wininet", "HttpOpenRequestA", , 打开一个 HTTP 请求的句柄
.参数 hConnect, 整数型, , 连接句柄
.参数 lpszVerb, 文本型, 传址, 访问方式
.参数 lpszObjectName, 文本型, 传址, 页面地址
.参数 lpszVersion, 文本型, 传址, HTTP协议版本
.参数 lpszReferer, 文本型, 传址, 来路信息
.参数 lplpszAcceptTypes, 文本型, 传址, Accept信息
.参数 dwFlags, 整数型
.参数 dwContext, 整数型

.DLL命令 HttpSendRequest, 逻辑型, "wininet.dll", "HttpSendRequestA"
.参数 HTTP请求句柄, 整数型
.参数 sHeaders, 文本型, 传址
.参数 lHeadersLength, 整数型
.参数 sOptional, 字节集, 传址
.参数 lOptionalLength, 整数型

.DLL命令 InternetReadFile, 逻辑型, "wininet", "InternetReadFile", , 读取数据
.参数 hFile, 整数型, , 返回句柄
.参数 lpBuffer, 整数型, , 接收的缓冲区
.参数 dwNumberOfBytesToRead, 整数型, , 缓冲区长度
.参数 lpdwNumberOfBytesRead, 整数型, 传址, 结果数据长度

.DLL命令 HttpQueryInfo, 逻辑型, "wininet", "HttpQueryInfoA", , 读取返回信息
.参数 Internet请求句柄, 整数型
.参数 待查信息, 整数型, , 22返回所有信息;43SET_COOKIE;+2147483648返回文本
.参数 返回容器, 文本型, 传址
.参数 返回容器长度, 整数型, 传址
.参数 lpdwIndex, 整数型

.DLL命令 GetProcessHeap, 整数型, "kernel32", "GetProcessHeap", , 获取当前堆句柄 用以获取和调用过程的堆句柄

.DLL命令 HeapAlloc, 整数型, "Kernel32", "HeapAlloc", , 在指定的堆上分配内存。
.参数 hHeap, 整数型, , 堆句柄 表明从此参数指定的堆上进行内存分配。
.参数 dwFlags, 整数型, , 内存分配的标志。一般为 8
.参数 dwBytes, 整数型, , 需要分配的内存区域大小，以字节为单位。

.DLL命令 HeapFree, 整数型, "kernel32", "HeapFree"
.参数 hHeap, 整数型, , 堆句柄 内存块所在的堆。
.参数 dwFlags, 整数型, , 内存块标志。 为1 不检测独占
.参数 lpMem, 整数型, , 所需要释放的内存块的指针

.DLL命令 HeapReAlloc, 整数型, "Kernel32", "HeapReAlloc", , 调整内存快
.参数 hHeap, 整数型, , 堆句柄
.参数 dwFlags, 整数型, , 方式 1=不进行独占检测 8=扩展的新内存初始化为0 16=禁止移动内存快（建议缩小时用）
.参数 lPMemory, 整数型, , 指向用HeapAlloc分配堆中内存时返回的指针 内存快句柄
.参数 dwBytes, 整数型, , 指定新的大小值

.DLL命令 RtlMoveMemory_int_Ebin, 逻辑型, "kernel32", "RtlMoveMemory", , 移动内存
.参数 Dest, 字节集, 传址, 目标地址
.参数 Src, 整数型, , 原地址
.参数 length, 整数型, , 长度

.DLL命令 API_MultiByteToWideChar_str_bin, 整数型, "kernel32", "MultiByteToWideChar", , 将多媒体字符串映像为通配字符串
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpMultiByteStr, 文本型
.参数 cchMultiByte, 整数型
.参数 lpWideCharStr, 字节集, 传址
.参数 cchWideChar, 整数型

.DLL命令 API_MultiByteToWideChar_bin_bin, 整数型, "kernel32", "MultiByteToWideChar", , 将多媒体字符串映像为通配字符串
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpMultiByteStr, 字节集
.参数 cchMultiByte, 整数型
.参数 lpWideCharStr, 字节集, 传址
.参数 cchWideChar, 整数型

.DLL命令 API_WideCharToMultiByte_bin_bin, 整数型, "kernel32", "WideCharToMultiByte", , 将通配符映像为多字节
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型
.参数 lpMultiByteStr, 字节集, 传址
.参数 cchMultiByte, 整数型
.参数 lpDefaultChar, 整数型
.参数 lpUsedDefaultChar, 整数型

.DLL命令 API_WideCharToMultiByte_bin_str, 整数型, "kernel32", "WideCharToMultiByte", , 将通配符映像为多字节
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型
.参数 lpMultiByteStr, 文本型, 传址
.参数 cchMultiByte, 整数型
.参数 lpDefaultChar, 整数型
.参数 lpUsedDefaultChar, 整数型