易语言WS2_32的HTTP模块源码

系统结构:API_WSAStartup,API_WSACleanup,API_WSAGetLastError,API_connect,API_closesocket,API_socket,API_inet_addr,API_gethostbyname,API_htons,API_send,API_recv,RtlMoveMemory,API_WSASetLastError,宽字符到双字节1_,宽字符到双字节_,MultiByteToWideChar,MultiByteToWideChar1,WideCharToMultiByte,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_WSAStartup
           |  |
           |  |---[dll]------   API_WSACleanup
           |  |
           |  |---[dll]------   API_WSAGetLastError
           |  |
           |  |---[dll]------   API_connect
           |  |
           |  |---[dll]------   API_closesocket
           |  |
           |  |---[dll]------   API_socket
           |  |
           |  |---[dll]------   API_inet_addr
           |  |
           |  |---[dll]------   API_gethostbyname
           |  |
           |  |---[dll]------   API_htons
           |  |
           |  |---[dll]------   API_send
           |  |
           |  |---[dll]------   API_recv
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   API_WSASetLastError
           |  |
           |  |---[dll]------   宽字符到双字节1_
           |  |
           |  |---[dll]------   宽字符到双字节_
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   MultiByteToWideChar1
           |  |
           |  |---[dll]------   WideCharToMultiByte

调用的DLL命令:

.DLL命令 API_WSAStartup, 整数型, "ws2_32.dll", "WSAStartup"
    .参数 wVersionRequired, 短整数型
    .参数 lpWSAData, WSADATA, 传址

.DLL命令 API_WSACleanup, 整数型, "ws2_32.dll", "WSACleanup"

.DLL命令 API_WSAGetLastError, 整数型, "ws2_32.dll", "WSAGetLastError"

.DLL命令 API_connect, 整数型, "ws2_32.dll", "connect"
    .参数 s, 整数型
    .参数 addr, SOCKADDR, 传址
    .参数 namelen, 整数型

.DLL命令 API_closesocket, 整数型, "ws2_32.dll", "closesocket"
    .参数 s, 整数型

.DLL命令 API_socket, 整数型, "ws2_32.dll", "socket"
    .参数 af, 整数型
    .参数 type, 整数型
    .参数 protocol, 整数型

.DLL命令 API_inet_addr, 整数型, "ws2_32.dll", "inet_addr"
    .参数 cp, 文本型

.DLL命令 API_gethostbyname, 整数型, "ws2_32.dll", "gethostbyname"
    .参数 name, 文本型

.DLL命令 API_htons, 短整数型, "ws2_32.dll", "htons"
    .参数 hostshort, 短整数型

.DLL命令 API_send, 整数型, "ws2_32.dll", "send"
    .参数 s, 整数型
    .参数 buf, 文本型
    .参数 len, 整数型
    .参数 flags, 整数型

.DLL命令 API_recv, 整数型, "ws2_32.dll", "recv"
    .参数 s, 整数型
    .参数 buf, 文本型
    .参数 len, 整数型
    .参数 flags, 整数型

.DLL命令 RtlMoveMemory, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 API_WSASetLastError, , "ws2_32.dll", "WSASetLastError"
    .参数 nCode, 整数型

.DLL命令 宽字符到双字节1_, 整数型, , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 整数型, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 宽字符到双字节_, , , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 字节集, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 MultiByteToWideChar1, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

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