易語言服務器提交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, 整數型