易语言开机启动模块源码

系统结构:开机启动,创建WINDOWS窗口,WindowsProcess,内部_消息循环,KillMe,终止自身进程,取特定目录_,http读文件_,读网页,取端口,取页面地址,取域名,LocalSize,GetModuleHandle,LoadIcon,LoadCursor,RegisterClassEx,CreateWindowEx,SetWindowLongA,DefWindowProc,GetMessage,TranslateMessage,DispatchMessage,ShowWindow,RegOpenKeyA,RegSetValueExA,关闭注册表项_,创建指定注册表项扩展_,CallWindowProcA,SHGetSpecialFolderPath,GetSystemDirectory,GetTempPath,GetWindowsDirectory,CreateFile,lwrite,LZClose,WinExec,lopen,启动线程_,SetTime,KillTime,发送消息,OpenProcess,Internet激活,Internet建立连接,Internet关闭句柄,Internet读文件,Http创建请求,Http发送请求,设置COOKIE,创建线程,销毁线程,HTTP查询信息,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 开机启动
           |  |
           |  |------ 创建WINDOWS窗口
           |  |
           |  |------ WindowsProcess
           |  |
           |  |------ 内部_消息循环
           |  |
           |  |------ KillMe
           |  |
           |  |------ 终止自身进程
           |  |
           |  |------ 取特定目录_
           |  |
           |  |------ http读文件_
           |  |
           |  |------ 读网页
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ 取域名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   RegisterClassEx
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   RegOpenKeyA
           |  |
           |  |---[dll]------   RegSetValueExA
           |  |
           |  |---[dll]------   关闭注册表项_
           |  |
           |  |---[dll]------   创建指定注册表项扩展_
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SHGetSpecialFolderPath
           |  |
           |  |---[dll]------   GetSystemDirectory
           |  |
           |  |---[dll]------   GetTempPath
           |  |
           |  |---[dll]------   GetWindowsDirectory
           |  |
           |  |---[dll]------   CreateFile
           |  |
           |  |---[dll]------   lwrite
           |  |
           |  |---[dll]------   LZClose
           |  |
           |  |---[dll]------   WinExec
           |  |
           |  |---[dll]------   lopen
           |  |
           |  |---[dll]------   启动线程_
           |  |
           |  |---[dll]------   SetTime
           |  |
           |  |---[dll]------   KillTime
           |  |
           |  |---[dll]------   发送消息
           |  |
           |  |---[dll]------   _终止进程
           |  |
           |  |---[dll]------   _取自进程ID
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   Internet激活
           |  |
           |  |---[dll]------   Internet建立连接
           |  |
           |  |---[dll]------   Internet关闭句柄
           |  |
           |  |---[dll]------   Internet读文件
           |  |
           |  |---[dll]------   Http创建请求
           |  |
           |  |---[dll]------   Http发送请求
           |  |
           |  |---[dll]------   设置COOKIE
           |  |
           |  |---[dll]------   创建线程
           |  |
           |  |---[dll]------   销毁线程
           |  |
           |  |---[dll]------   HTTP查询信息

调用的DLL命令:

.DLL命令 LocalSize, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小
    .参数 hMem, WNDCLASSEX

.DLL命令 GetModuleHandle, 整数型, "kernel32.dll", "GetModuleHandleA"
    .参数 lpModuleName, 文本型

.DLL命令 LoadIcon, 整数型, "user32", "LoadIconA", , 从指定的模块或应用程序实例中载入一个图标。其中，LoadIconBynum是LoadIcon函数的类型security声明　执行成功则返回已载入的图标的句柄；零表示失败。会设置GetLastError
    .参数 实例句柄, 整数型
    .参数 图标标识, 整数型

.DLL命令 LoadCursor, 整数型, "user32", "LoadCursorA", , 从指定的模块或应用程序实例中载入一个鼠标指针。LoadCursorBynum是LoadCursor函数的类型security声明　执行成功则返回已载入的指针的句柄；零表示失败。在Windows ;    95 和Win16环境中，这个函数只能载入标准尺寸的图标
    .参数 实例句柄, 整数型, , 一个DLL的模块句柄；或者一个实例句柄，指定包含了鼠标指针的可执行程序
    .参数 鼠标指针标识, 整数型, , 作为一个字串，指定欲载入的指针资源。作为一个长整数值，指定欲载入的资源ID；或者设置一个常数，代表某幅固有系统指针。如装载的是一个固有系统指针，注意hInstance参数应设为零。在api32.txt文件中以前缀IDC_ 作为标志;  

.DLL命令 RegisterClassEx, 整数型, "user32", "RegisterClassExA", , 　
    .参数 pcWndClassEx, WNDCLASSEX

.DLL命令 CreateWindowEx, 整数型, "user32.dll", "CreateWindowExA"
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型, , 窗口实例的类的名字
    .参数 lpWindowName, 文本型, , 窗口标题名
    .参数 dwStyle, 整数型, , 新创建的窗口的样式
    .参数 X, 整数型, , 窗口左上角的横坐标
    .参数 Y, 整数型, , 窗口左上角的纵坐标
    .参数 nWidth, 整数型, , 窗口的宽度
    .参数 nHeight, 整数型, , 窗口的高度
    .参数 hWndParent, 整数型, , 该窗口的父窗口的句柄
    .参数 hMenu, 整数型, , 窗口主菜单句柄
    .参数 hInstance, 整数型, , 创建窗口的应用程序当前句柄
    .参数 lpParam, 整数型, , 指向一个传递给窗口的参数值的指针

.DLL命令 SetWindowLongA, 整数型, "user32.dll", "SetWindowLongA", , SetWindowLongA在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 DefWindowProc, 整数型, "user32", "DefWindowProcA", , 调用缺省窗口过程　
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA", , 从线索消息队列中返回一条消息　
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32", "TranslateMessage", , 转换虚拟关键字消息　
    .参数 lpMsg, MSG

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA", , 向窗口发送消息　
    .参数 lpMsg, MSG

.DLL命令 ShowWindow, 整数型, "user32.dll", "ShowWindow", , 控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）  如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
    .参数 窗口句柄, 整数型, , 窗口句柄，要向这个窗口应用由nCmdShow指定的命令
    .参数 窗口状态, 整数型, , 为窗口指定可视性方面的一个命令。请用下述任何一个常数;0隐藏窗口，活动状态给令一个窗口;1与9相同;2最小化窗口，并将其激活;3最大化窗口，并将其激活;4用最近的大小和位置显示一个窗口，同时不改变活动窗口;5用当前的大小和位置显示一个窗口，同时令其进入活动状态;6最小化窗口，活动状态给令一个窗口;7最小化一个窗口，同时不改变活动窗口;8用当前的大小和位置显示一个窗口，不改变活动窗口;9用原来的大小和位置显示一个窗口，同时令其进入活动状态;

.DLL命令 RegOpenKeyA, 整数型, , "RegOpenKeyA"
    .参数 hKey, 整数型
    .参数 lpSubKey, 文本型
    .参数 phkResult, 整数型, 传址

.DLL命令 RegSetValueExA, 整数型, , "RegSetValueExA"
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型, 传址
    .参数 Reserved, 整数型
    .参数 dwType, 整数型
    .参数 lpData, 字节集, 传址
    .参数 cbData, 整数型

.DLL命令 关闭注册表项_, 整数型, "advapi32.dll", "RegCloseKey", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 关闭项句柄, 整数型, , hKey，要关闭的项句柄

.DLL命令 创建指定注册表项扩展_, 整数型, "advapi32.dll", "RegCreateKeyExA", , 在指定项下创建新项的更复杂的方式。在Win32环境中建议使用这个函数。如指定的项已经存在，则函数会打开现有的项
    .参数 项句柄, 整数型, , 一个打开项的句柄，或者一个标准项名
    .参数 新子项名称, 文本型, , 欲创建的新子项的名字
    .参数 保留参数, 整数型, , 设为零
    .参数 项类名, 文本型, , 项的类名
    .参数 选项标志, 整数型, , 下述常数为零：REG_OPTION_VOLATILE——这个项不正式保存下来，系统重新启动后会消失
    .参数 常量标志, 整数型, , 带有前缀KEY_??的一个或多个常数。它们组合起来描述了允许对这个项进行哪些操作
    .参数 security特性结构, , , SECURITY_ATTRIBUTES，对这个项的security特性进行描述的一个结构（用ByVal As Long传递空值）。不适用于windows 95
    .参数 新子项变量, 整数型, 传址, 指定用于装载新子项句柄的一个变量
    .参数 常数变量, 整数型, 传址, 用于装载下列某个常数的一个变量

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 SHGetSpecialFolderPath, 逻辑型, , "SHGetSpecialFolderPathA"
    .参数 hwndOwner, 整数型
    .参数 lpszPath, 文本型
    .参数 nFolder, 整数型
    .参数 fCreate, 逻辑型

.DLL命令 GetSystemDirectory, 整数型, , "GetSystemDirectoryA"
    .参数 lpBuffer, 文本型
    .参数 nSize

.DLL命令 GetTempPath, 整数型, , "GetTempPathA"
    .参数 nSize
    .参数 lpBuffer, 文本型

.DLL命令 GetWindowsDirectory, 整数型, , "GetWindowsDirectoryA"
    .参数 lpBuffer, 文本型
    .参数 nSize

.DLL命令 CreateFile, 整数型, "kernel32.dll", "CreateFileA", , CreateFile (“a”, -2147483648, 2, 0, 1, 128, 0)
    .参数 lpFileName, 文本型
    .参数 dwDesiredAccess, 整数型
    .参数 dwShareMode, 整数型
    .参数 lpSecurityAttributes, 整数型, , SECURITY_ATTRIBUTES，指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的security特性（如果操作系统支持的话）
    .参数 dwCreationDisposition, 整数型
    .参数 dwFlagsAndAttributes, 整数型
    .参数 hTemplateFile, 整数型

.DLL命令 lwrite, 整数型, "kernel32.dll", "_lwrite"
    .参数 hFile, 整数型, , 文件句柄
    .参数 lpBuffer, 文本型, , 指定一个内存块的指针，把这个内存块的数据写入文件
    .参数 wBytes, 整数型, , 要写入的字节数

.DLL命令 LZClose, 整数型, "lz32.dll", "LZClose"
    .参数 hfFile, 整数型, , 欲关闭的句柄。这是由LZOpenFile 或 LZInit函数返回的一个句柄，不是普通的系统文件句柄

.DLL命令 WinExec, 整数型, "kernel32.dll", "WinExec", , 运行程序
    .参数 lpCmdLine, 文本型
    .参数 nCmdShow, 整数型, , 定义了以怎样的形式启动程序的常数值。参考ShowWindow函数的nCmdShow参数

.DLL命令 lopen, 整数型, "kernel32.dll", "_lopen"
    .参数 lpPathName, 文本型, , 欲打开文件的名字
    .参数 iReadWrite, 整数型, , 访问模式和共享模式常数的一个组合，如下所示：   1、访问模式   READ 打开文件，读取其中的内容   READ_WRITE 打开文件，对其进行读写   WRITE 打开文件，在其中写入内容   2、共享模式（参考OpenFile函数的标志常数表）   OF_SHARE_COMPAT， OF_SHARE_DENY_NONE， OF_SHARE_DENY_READ， OF_SHARE_DENY_WRITE， OF_SHARE_EXCLUSIVE

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

.DLL命令 SetTime, 整数型, "user32", "SetTimer"
    .参数 hwnd, 整数型
    .参数 nIDEvent, 整数型
    .参数 uElapse, 整数型
    .参数 lpTimeFunc, 子程序指针

.DLL命令 KillTime, , "user32", "KillTimer"
    .参数 hwnd, 整数型
    .参数 nIDEvent, 整数型

.DLL命令 发送消息, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 _终止进程, 整数型, , "TerminateProcess"
    .参数 id
    .参数 a

.DLL命令 _取自进程ID, 整数型, "kernel32.dll", "GetCurrentProcessId"

.DLL命令 OpenProcess, 整数型
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwProcessId, 整数型

.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, 整数型