易语言服务器提交post模块源码 [db:版本]

易语言服务器提交post模块源码

系统结构:读取数据,提交数据,提交数据_SSL,InternetOpen,InternetConnect,InternetConnectA_SSL,InternetReadFile,HttpOpenRequest,HttpSendRequest,HttpSendRequest1,HttpAddRequestHeaders,InternetCloseHandle,InternetOpenUrl,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======Test
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 读取数据
| |
| |------ 提交数据
| |
| |------ 提交数据_SSL
| |
| |
======调用的Dll
| |
| |---[dll]------ InternetOpen
| |
| |---[dll]------ InternetConnect
| |
| |---[dll]------ InternetConnectA_SSL
| |
| |---[dll]------ InternetReadFile
| |
| |---[dll]------ HttpOpenRequest
| |
| |---[dll]------ HttpSendRequest
| |
| |---[dll]------ HttpSendRequest1
| |
| |---[dll]------ HttpAddRequestHeaders
| |
| |---[dll]------ InternetCloseHandle
| |
| |---[dll]------ InternetOpenUrl

调用的DLL命令:

.DLL命令 InternetOpen, 整数型, "wininet.dll", "InternetOpenA"
.参数 lpszCallerName, 文本型
.参数 dwAccessType, 整数型
.参数 lpszProxyName, 文本型
.参数 lpszProxyBypass, 文本型
.参数 dwFlags, 整数型

.DLL命令 InternetConnect, 整数型, "wininet.dll", "InternetConnectA"
.参数 hInternetSession, 整数型
.参数 lpszServerName, 文本型
.参数 nProxyPort, 短整数型
.参数 lpszUsername, 文本型
.参数 lpszPassword, 文本型
.参数 dwService, 整数型
.参数 dwFlags, 整数型
.参数 dwContext, 整数型, 传址

.DLL命令 InternetConnectA_SSL, 整数型, "wininet.dll", "InternetConnectA"
.参数 hInternetSession, 整数型
.参数 服务名, 文本型
.参数 端口, 短整数型
.参数 用户名, 文本型
.参数 密码, 文本型
.参数 服务类型, 整数型
.参数 dwFlags, 整数型
.参数 dwContext, 整数型, 传址

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

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

.DLL命令 HttpSendRequest, 整数型, "wininet.dll", "HttpSendRequestA"
.参数 hRequest, 整数型
.参数 lpszHeaders, 文本型
.参数 dwHeadersLength, 整数型
.参数 lpOptional, 文本型
.参数 dwOptionalLength, 整数型

.DLL命令 HttpSendRequest1, 整数型, "wininet.dll", "HttpSendRequestA"
.参数 hRequest, 整数型
.参数 lpszHeaders, 文本型
.参数 dwHeadersLength, 整数型
.参数 lpOptional, 字节集
.参数 dwOptionalLength, 整数型

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

.DLL命令 InternetCloseHandle, 整数型, "wininet.dll"
.参数 hInternet, 整数型

.DLL命令 InternetOpenUrl, 整数型, "wininet.dll", "InternetOpenUrlA"
.参数 hInternet, 整数型
.参数 lpszUrl, 文本型
.参数 lpszHeaders, 文本型
.参数 dwHeadersLength, 整数型
.参数 dwFlags, 整数型
.参数 dwContext, 整数型