易语言http读文件应用例程源码

系统结构:HTTP读文件_,ReadFile,取域名,取端口,取页面地址,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ HTTP读文件_
           |  |
           |  |------ ReadFile
           |  |
           |  |------ 取域名
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取页面地址
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _InternetOpen
           |  |
           |  |---[dll]------   _InternetConnect
           |  |
           |  |---[dll]------   _InternetCloseHandle
           |  |
           |  |---[dll]------   _HttpOpenRequest
           |  |
           |  |---[dll]------   _HttpSendRequest
           |  |
           |  |---[dll]------   _HeapCreate
           |  |
           |  |---[dll]------   _HeapAlloc
           |  |
           |  |---[dll]------   _HeapDestroy
           |  |
           |  |---[dll]------   _HeapFree
           |  |
           |  |---[dll]------   _HeapReAlloc
           |  |
           |  |---[dll]------   _CreateThread
           |  |
           |  |---[dll]------   _RtlMoveMemory_写整数
           |  |
           |  |---[dll]------   _RtlMoveMemory_读整数
           |  |
           |  |---[dll]------   _RtlMoveMemory_写字节集
           |  |
           |  |---[dll]------   _InternetReadFile
           |  |
           |  |---[dll]------   _MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   _TerminateThread
           |  |
           |  |---[dll]------   _CloseHandle
           |  |
           |  |---[dll]------   _HttpQueryInfo
           |  |
           |  |---[dll]------   _InternetSetCookie

调用的DLL命令:

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

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

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

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

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

.DLL命令 _HeapCreate, 整数型, "kernel32.dll", "HeapCreate"
    .参数 flOptions, 整数型
    .参数 dwInitialSize, 整数型
    .参数 dwMaximumSize, 整数型

.DLL命令 _HeapAlloc, 整数型, "kernel32.dll", "HeapAlloc"
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 _HeapDestroy, 逻辑型, "kernel32.dll", "HeapDestroy"
    .参数 hHeap, 整数型

.DLL命令 _HeapFree, 逻辑型, "kernel32.dll", "HeapFree"
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMem, 整数型

.DLL命令 _HeapReAlloc, 整数型, "kernel32.dll", "HeapReAlloc"
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMem, 整数型
    .参数 dwBytes, 整数型

.DLL命令 _CreateThread, 整数型, "kernel32.dll", "CreateThread", , 启动线程
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

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

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

.DLL命令 _RtlMoveMemory_写字节集, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节集, 传址
    .参数 Length, 整数型

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

.DLL命令 _MsgWaitForMultipleObjects, 整数型, "user32.dll", "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 bWaitAll, 整数型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 _TerminateThread, 整数型, "kernel32.dll", "TerminateThread", , 中止线索
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 _CloseHandle, 整数型, "kernel32.dll", "CloseHandle"
    .参数 hObject, 整数型

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

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