易语言HTTP进度下载源码

HTTP进度下载

系统结构:取视频下载地址,取文本中间_,Ansi转Unicode,Unicode转Ansi,访问网页,ReadFile,取域名,取端口,取页面地址,进度下载文件,等待延时,取线程返回值_,下载文件ReadFile,全文本替换,创建,取文本,替换,搜索全部,取匹配数量,取匹配文本,取子匹配文本,下载进度显示,InternetOpenA,PeekMessage,InternetCloseHandle,InternetConnectA,HttpOpenRequestA,HttpSendRequestA,InternetReadFile,GetExitCodeThread,API_MultiByteToWideChar,HttpQueryInfoA,InternetSetCookieA,CallWindowProcA,CreateThread,CloseHandle,HttpQueryInfoA_,API_WideCharToMultiByte,TerminateThread,MsgWaitForMultipleObjects,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 取视频下载地址
| |
| |------ 取文本中间_
| |
| |------ Ansi转Unicode
| |
| |------ Unicode转Ansi
| |
| |------ 访问网页
| |
| |------ ReadFile
| |
| |------ 取域名
| |
| |------ 取端口
| |
| |------ 取页面地址
| |
| |------ 进度下载文件
| |
| |------ 等待延时
| |
| |------ 取线程返回值_
| |
| |------ 下载文件ReadFile
| |
| |------ 全文本替换
| |
| |
======彗星正则表达式类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 创建
| |
| |------ 取文本
| |
| |------ 替换
| |
| |------ 搜索全部
| |
| |------ 取匹配数量
| |
| |------ 取匹配文本
| |
| |------ 取子匹配文本
| |
| |
======窗口程序集1
| |
| |------ _按钮1_被单击
| |
| |------ 下载进度显示
| |
| |------ _窗口1_将被销毁
| |
| |
======调用的Dll
| |
| |---[dll]------ InternetOpenA
| |
| |---[dll]------ PeekMessage
| |
| |---[dll]------ InternetCloseHandle
| |
| |---[dll]------ InternetConnectA
| |
| |---[dll]------ HttpOpenRequestA
| |
| |---[dll]------ HttpSendRequestA
| |
| |---[dll]------ InternetReadFile
| |
| |---[dll]------ GetExitCodeThread
| |
| |---[dll]------ API_MultiByteToWideChar
| |
| |---[dll]------ HttpQueryInfoA
| |
| |---[dll]------ InternetSetCookieA
| |
| |---[dll]------ CallWindowProcA
| |
| |---[dll]------ CreateThread
| |
| |---[dll]------ CloseHandle
| |
| |---[dll]------ HttpQueryInfoA_
| |
| |---[dll]------ API_WideCharToMultiByte
| |
| |---[dll]------ TerminateThread
| |
| |---[dll]------ MsgWaitForMultipleObjects

调用的DLL命令:

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

.DLL命令 PeekMessage, 整数型, "user32", "PeekMessageA", , 从线索消息队列中返回一条消息--等待延时　
.参数 lpMsg, MSG, 传址
.参数 hwnd, 整数型
.参数 wMsgFilterMin, 整数型
.参数 wMsgFilterMax, 整数型
.参数 stat, 整数型

.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命令 GetExitCodeThread, 整数型, "kernel32", "GetExitCodeThread"
.参数 hThread, 整数型
.参数 lpExitCode, 整数型, 传址

.DLL命令 API_MultiByteToWideChar, 整数型, "kernel32.dll", "MultiByteToWideChar"
.参数 CodePage, 整数型
.参数 dwFlags, 整数型, , 0
.参数 lpMultiByteStr, 文本型
.参数 cchMultiByte, 整数型, , -1
.参数 lpWideCharStr, 字节集, 传址
.参数 cchWideChar, 整数型

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

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

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
.参数 子程序指针, 子程序指针
.参数 参数1, 整数型
.参数 参数2, 整数型
.参数 参数3, 整数型
.参数 参数4, 整数型

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

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

.DLL命令 HttpQueryInfoA_, 整数型, "Wininet.dll", "HttpQueryInfoA"
.参数 hRequest, 整数型
.参数 dwInfoLevel, 整数型
.参数 lpvBuffer, 整数型, 传址
.参数 lpdwBufferLength, 整数型, 传址
.参数 lpdwIndex, 整数型, 传址

.DLL命令 API_WideCharToMultiByte, 整数型, "kernel32.dll", "WideCharToMultiByte"
.参数 CodePage, 整数型
.参数 dwFlags, 整数型, , 0
.参数 lpWideCharStr, 字节集
.参数 cchMultiByte, 整数型, , -1
.参数 lpMultiByteStr, 文本型, 传址
.参数 cchMultiByte, 整数型
.参数 默认文本, 整数型, , 0
.参数 使用默认文本, 整数型, , 0

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

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