易语言POST模块源码

系统结构:访问网页,ReadFile,取域名,取端口,设COOKIE,取COOKIE,取页面地址,UTF_8转码,UTF_8解码,转换时间为GMT格式,InternetOpenA,InternetCloseHandle,InternetConnectA,HttpOpenRequestA,HttpSendRequestA,InternetReadFile,HttpQueryInfoA,InternetSetCookieA,CreateThread,CloseHandle,TerminateThread,MsgWaitForMultipleObjects,读取COOKIE,HttpAddRequestHeaders,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 访问网页
           |  |
           |  |------ ReadFile
           |  |
           |  |------ 取域名
           |  |
           |  |------ 取端口
           |  |
           |  |------ 设COOKIE
           |  |
           |  |------ 取COOKIE
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ UTF_8转码
           |  |
           |  |------ UTF_8解码
           |  |
           |  |------ 转换时间为GMT格式
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetConnectA
           |  |
           |  |---[dll]------   HttpOpenRequestA
           |  |
           |  |---[dll]------   HttpSendRequestA
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   InternetSetCookieA
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   读取COOKIE
           |  |
           |  |---[dll]------   HttpAddRequestHeaders
           |  |
           |  |---[dll]------   _HTTP查询信息
           |  |
           |  |---[dll]------   _Internet激活
           |  |
           |  |---[dll]------   _Internet建立连接
           |  |
           |  |---[dll]------   _Internet关闭句柄
           |  |
           |  |---[dll]------   _Internet读文件
           |  |
           |  |---[dll]------   _Http创建请求
           |  |
           |  |---[dll]------   _Http发送请求
           |  |
           |  |---[dll]------   _读取COOKIE
           |  |
           |  |---[dll]------   _设置COOKIE

调用的DLL命令:

.DLL命令 InternetOpenA, 整数型, "WinINet.dll"
    .参数 lpszAgent, 文本型
    .参数 dwAccessType, 整数型
    .参数 lpszProxyName, 文本型
    .参数 lpszProxyBypass, 文本型
    .参数 dwFlags, 整数型

.DLL命令 InternetCloseHandle, 逻辑型, "WinINet.dll"
    .参数 hInternet, 整数型

.DLL命令 InternetConnectA, 整数型, "WinINet.dll"
    .参数 hInternet, 整数型
    .参数 lpszServerName, 文本型
    .参数 nServerPort, 整数型
    .参数 lpszUserName, 文本型
    .参数 lpszPassword, 文本型
    .参数 dwService, 整数型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpOpenRequestA, 整数型, "WinINet.dll"
    .参数 hConnect, 整数型
    .参数 lpszVerb, 文本型
    .参数 lpszObjectName, 文本型
    .参数 lpszVersion, 文本型
    .参数 lpszReferer, 文本型
    .参数 lplpszAcceptTypes, 文本型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpSendRequestA, 逻辑型, "WinINet.dll"
    .参数 hRequest, 整数型
    .参数 lpszHeaders, 文本型
    .参数 dwHeadersLength, 整数型
    .参数 lpOptional, 文本型
    .参数 dwOptionalLength, 整数型

.DLL命令 InternetReadFile, 逻辑型, "WinINet.dll"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 dwNumberOfBytesToRead, 整数型
    .参数 lpdwNumberOfBytesRead, 整数型, 传址

.DLL命令 HttpQueryInfoA, 逻辑型, "WinINet.dll"
    .参数 hRequest, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpvBuffer, 文本型, 传址
    .参数 lpdwBufferLength, 整数型, 传址
    .参数 lpdwIndex, 整数型

.DLL命令 InternetSetCookieA, 逻辑型, "WinINet.dll"
    .参数 lpszUrl, 文本型
    .参数 lpszCookieName, 文本型
    .参数 lpszCookieData, 文本型

.DLL命令 CreateThread, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 CloseHandle, 逻辑型
    .参数 hObject, 整数型

.DLL命令 TerminateThread, 逻辑型
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 MsgWaitForMultipleObjects, 整数型
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 bWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 读取COOKIE, 逻辑型, "wininet.dll", "InternetGetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址
    .参数 尺寸, 整数型, 传址

.DLL命令 HttpAddRequestHeaders, , "wininet.dll", "HttpAddRequestHeadersA"
    .参数 hRequest, 整数型
    .参数 lpszHeaders, 文本型, 传址
    .参数 dwHeadersLength, 整数型
    .参数 dwModifiers, 整数型

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

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

.DLL命令 _Internet建立连接, 整数型, "wininet.dll", "InternetConnectA"
    .参数 Internet句柄, 整数型
    .参数 域名, 文本型, 传址
    .参数 服务器端口, 整数型, , 80HTTP;21FTP;
    .参数 用户名, 文本型, 传址, 空
    .参数 用户口令, 文本型, 传址, 空
    .参数 服务类型, 整数型, , 1FTP;3HTTP
    .参数 dwFlags, 整数型, , 0http;134217728被动FTP模式
    .参数 dwContext, 整数型, , 0

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

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

.DLL命令 _Http创建请求, 整数型, "wininet.dll", "HttpOpenRequestA"
    .参数 Internet连接句柄, 整数型, , 由Internet建立连接返回
    .参数 访问方式, 文本型, 传址, "GET" or "POST"为空默认GET
    .参数 页面路径, 文本型, 传址, 简短路径,不带域名
    .参数 协议版本, 文本型, 传址, 为空默认HTTP/1.1
    .参数 引用页, 文本型, 传址, 可为空
    .参数 识别类型, 文本型, 传址, 可为空
    .参数 dwFlags, 整数型, , 2147483648更新下载
    .参数 dwContext, 整数型, , 0

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

.DLL命令 _读取COOKIE, 逻辑型, "wininet.dll", "InternetGetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址
    .参数 尺寸, 整数型, 传址

.DLL命令 _设置COOKIE, 逻辑型, "wininet.dll", "InternetSetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址