易语言QQ空间装饰工具源码

系统结构:圆角化窗口,下载进度显示,访问网页,ReadFile,取域名,取端口,取页面地址,进度下载文件,等待延时,取线程返回值_,下载文件ReadFile,全文本替换,CreateRoundRectRgn,GetWindowRect,SetWindowRgn,DeleteObject,InternetSetOptionProxy,InternetSetOptionChangeD,发送消息_,InternetOpenA,PeekMessage,InternetCloseHandle,InternetConnectA,HttpOpenRequestA,HttpSendRequestA,InternetReadFile,GetExitCodeThread,HttpQueryInfoA,InternetSetCookieA,CallWindowProcA,CreateThread,HttpQueryInfoA_,TerminateThread,MsgWaitForMultipleObjects,CloseHandle,SHGetSpecialFolderPath,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 圆角化窗口
           |  |
           |  |------ _最小化按钮_被单击
           |  |
           |  |------ _关闭按钮_被单击
           |  |
           |  |------ _组合框1_列表项被选择
           |  |
           |  |------ _组合框2_列表项被选择
           |  |
           |  |------ _组合框3_列表项被选择
           |  |
           |  |------ _组合框4_列表项被选择
           |  |
           |  |------ _组合框5_列表项被选择
           |  |
           |  |------ _组合框6_列表项被选择
           |  |
           |  |------ _组合框7_列表项被选择
           |  |
           |  |------ _组合框8_列表项被选择
           |  |
           |  |------ _组合框9_列表项被选择
           |  |
           |  |------ _组合框10_列表项被选择
           |  |
           |  |------ _组合框11_列表项被选择
           |  |
           |  |------ _组合框12_列表项被选择
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _窗口2_创建完毕
           |  |
           |  |------ 下载进度显示
           |  |
           |  |------ _窗口2_可否被关闭
           |  |
           |  |
======下载程序集
           |  |
           |  |------ 访问网页
           |  |
           |  |------ ReadFile
           |  |
           |  |------ 取域名
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ 进度下载文件
           |  |
           |  |------ 等待延时
           |  |
           |  |------ 取线程返回值_
           |  |
           |  |------ 下载文件ReadFile
           |  |
           |  |------ 全文本替换
           |  |
           |  |
======窗口程序集4
           |  |
           |  |------ _窗口3_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   InternetSetOptionProxy
           |  |
           |  |---[dll]------   InternetSetOptionChangeD
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   PeekMessage
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetConnectA
           |  |
           |  |---[dll]------   HttpOpenRequestA
           |  |
           |  |---[dll]------   HttpSendRequestA
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   InternetSetCookieA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   HttpQueryInfoA_
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   SHGetSpecialFolderPath
  ======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _组合框3_列表项被选择
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮5_被单击

调用的DLL命令:

.DLL命令 CreateRoundRectRgn, 整数型, , "CreateRoundRectRgn"
    .参数 x1
    .参数 y1
    .参数 x2
    .参数 y2
    .参数 x3
    .参数 y3

.DLL命令 GetWindowRect, 整数型, , "GetWindowRect"
    .参数 hwnd, 整数型
    .参数 lpRect, RECT

.DLL命令 SetWindowRgn, , , "SetWindowRgn"
    .参数 hWnd
    .参数 hRgn
    .参数 bRedraw, 逻辑型

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放,非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄

.DLL命令 InternetSetOptionProxy, 逻辑型, "Wininet.dll", "InternetSetOptionA", 公开, 设置IE属性
    .参数 hInternet, 整数型
    .参数 dwOption, 整数型
    .参数 lpBuffer, INTERNET_PROXY_INFO
    .参数 dwBufferLength, 整数型

.DLL命令 InternetSetOptionChangeD, 逻辑型, "Wininet.dll", "InternetSetOptionA", 公开, 改变IE
    .参数 hInternet, 整数型
    .参数 dwOption, 整数型
    .参数 lpBuffer, 整数型
    .参数 dwBufferLength, 整数型

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， 
    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 文本型, , 具体取决于消息

.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命令 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命令 HttpQueryInfoA_, 整数型, "Wininet.dll", "HttpQueryInfoA"
    .参数 hRequest, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpvBuffer, 整数型, 传址
    .参数 lpdwBufferLength, 整数型, 传址
    .参数 lpdwIndex, 整数型, 传址

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

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

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

.DLL命令 SHGetSpecialFolderPath, , , "SHGetSpecialFolderPathA", , 特定目录
    .参数 a
    .参数 b, 文本型
    .参数 c
    .参数 d