易语言实现监视QQ上线源码

系统结构:API_http读文件,读网页,取端口,取页面地址,取域名,Internet激活,Internet建立连接,Internet关闭句柄,Internet读文件,Http创建请求,Http发送请求,设置COOKIE,创建线程,销毁线程,HTTP查询信息,ShellExecuteA,执行_API,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _编辑框1_鼠标左键被按下
           |  |
           |  |------ _编辑框1_按下某键
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======API_http读文件程序集
           |  |
           |  |------ API_http读文件
           |  |
           |  |------ 读网页
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ 取域名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   Internet激活
           |  |
           |  |---[dll]------   Internet建立连接
           |  |
           |  |---[dll]------   Internet关闭句柄
           |  |
           |  |---[dll]------   Internet读文件
           |  |
           |  |---[dll]------   Http创建请求
           |  |
           |  |---[dll]------   Http发送请求
           |  |
           |  |---[dll]------   设置COOKIE
           |  |
           |  |---[dll]------   创建线程
           |  |
           |  |---[dll]------   销毁线程
           |  |
           |  |---[dll]------   HTTP查询信息
           |  |
           |  |---[dll]------   ShellExecuteA
           |  |
           |  |---[dll]------   执行_API

调用的DLL命令:

.DLL命令 Internet激活, 整数型, "wininet.dll", "InternetOpenA"
    .参数 句柄名称, 文本型, 传址
    .参数 连接类型, 整数型, , 1直接连接;3代理连接
    .参数 代理地址, 文本型, 传址
    .参数 代理掩码, 文本型, 传址
    .参数 dwFlags, 整数型, , 0

.DLL命令 Internet建立连接, 整数型, "wininet.dll", "InternetConnectA"
    .参数 Internet句柄, 整数型
    .参数 域名, 文本型, 传址
    .参数 服务器端口, 整数型, , 80HTTP;21FTP;
    .参数 用户名, 文本型, 传址, 空
    .参数 用户口令, 文本型, 传址, 空
    .参数 服务类型, 整数型, , 1FTP;3HTTP
    .参数 dwFlags, 整数型, , 0http;134217728被动FTP模式
    .参数 dwContext, 整数型, , 0

.DLL命令 Internet关闭句柄, 逻辑型, "wininet.dll", "InternetCloseHandle"
    .参数 句柄, 整数型

.DLL命令 Internet读文件, 逻辑型, "wininet.dll", "InternetReadFile"
    .参数 HTTP请求句柄, 整数型
    .参数 sBuffer, 字节集, 传址
    .参数 lNumBytesToRead, 整数型
    .参数 lNumberOfBytesRead, 整数型, 传址

.DLL命令 Http创建请求, 整数型, "wininet.dll", "HttpOpenRequestA"
    .参数 Internet连接句柄, 整数型, , 由Internet建立连接返回
    .参数 访问方式, 文本型, 传址, "GET" or "POST"为空默认GET
    .参数 页面路径, 文本型, 传址, 简短路径,不带域名
    .参数 协议版本, 文本型, 传址, 为空默认HTTP/1.1
    .参数 引用页, 文本型, 传址, 可为空
    .参数 识别类型, 文本型, 传址, 可为空
    .参数 dwFlags, 整数型, , 2147483648更新下载
    .参数 dwContext, 整数型, , 0

.DLL命令 Http发送请求, 逻辑型, "wininet.dll", "HttpSendRequestA"
    .参数 HTTP请求句柄, 整数型
    .参数 sHeaders, 文本型, 传址
    .参数 lHeadersLength, 整数型
    .参数 sOptional, 文本型, 传址
    .参数 lOptionalLength, 整数型

.DLL命令 设置COOKIE, 逻辑型, "wininet.dll", "InternetSetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址

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

.DLL命令 销毁线程, , , "TerminateThread"
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 HTTP查询信息, 逻辑型, "wininet.dll", "HttpQueryInfoA"
    .参数 Internet请求句柄, 整数型
    .参数 待查信息, 整数型, , 22返回所有信息;43SET_COOKIE;+2147483648返回文本
    .参数 返回容器, 文本型, 传址
    .参数 返回容器长度, 整数型, 传址
    .参数 lpdwIndex, 整数型

.DLL命令 ShellExecuteA, 整数型, "shell32.dll", "ShellExecuteEx", , ,
    .参数 结构大小, 整数型, , , cbSize
    .参数 标志, 整数型, , , fMask
    .参数 窗口句柄, 整数型, , , hwnd
    .参数 操作命令, 文本型, , , lpVerb
    .参数 文件名, 文本型, , , lpFile
    .参数 应用程序参数, 文本型, , , lpParameters
    .参数 目录, 文本型, , , lpDirectory
    .参数 显示标志, 整数型, , , nShow
    .参数 实例句柄, 整数型, , , hInstApp
    .参数 项目标识符列表结构指针, 整数型, , , lpIDList
    .参数 文件类别, 文本型, , , lpClass
    .参数 热键句柄, 整数型, , , hkeyClass
    .参数 热键, 整数型, , , dwHotKey
    .参数 图标句柄, 整数型, , , hIcon
    .参数 进程句柄, 整数型, , , hProcess

.DLL命令 执行_API, , , "ShellExecuteA"
    .参数 hwnd, , , 窗口句柄
    .参数 lpOperation, 文本型, , 传递参数
    .参数 lpFile, 文本型, , 文件名
    .参数 lpParameters, 文本型, , 应用程序参数
    .参数 lpDirectory, 文本型, , 程序目录
    .参数 nShowCmd, , , 0：隐藏窗口,1：普通激活,2：最小化激活,3：最大化激活,4：普通不激活,5：普通激活,6：最小化不激活,7：最小化不激活,8：不激活