易语言登陆QQ模块源码

系统结构:登录QQ,子程序1,子程序2,子程序3,PostMessage,SetForegroundWindow,设定执行文件,枚举子窗口,SendMessage,lstrcpyn,GetClassName,SendMessage_String,枚举父窗口,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 登录QQ
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 子程序2
           |  |
           |  |------ 子程序3
           |  |
           |  |------ _取窗口类名
           |  |
           |  |------ _取窗口标题
           |  |
           |  |
======程序集2
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   PostMessage
           |  |
           |  |---[dll]------   SetForegroundWindow
           |  |
           |  |---[dll]------   设定执行文件
           |  |
           |  |---[dll]------   枚举子窗口
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   SendMessage_String
           |  |
           |  |---[dll]------   枚举父窗口

调用的DLL命令:

.DLL命令 PostMessage, 整数型, "user32", "PostMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetForegroundWindow, 整数型, "user32", "SetForegroundWindow"
    .参数 hwnd, 整数型

.DLL命令 设定执行文件, 整数型, "shell32.dll", "ShellExecuteA"
    .参数 hwnd, 整数型
    .参数 lpOperation, 文本型
    .参数 lpFile, 文本型
    .参数 lpParameters, 文本型
    .参数 lpDirectory, 文本型
    .参数 nShowCmd, 整数型

.DLL命令 枚举子窗口, 整数型, "user32", "EnumChildWindows"
    .参数 hWndParent, 整数型
    .参数 lpEnumFunc, 子程序指针
    .参数 lParam, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 lstrcpyn, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, 文本型, 传址
    .参数 欲取其指针的变量, 文本型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA"
    .参数 hwnd, 整数型
    .参数 lpClassName, 文本型
    .参数 nMaxCount, 整数型

.DLL命令 SendMessage_String, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 文本型

.DLL命令 枚举父窗口, , "user32", "EnumWindows"
    .参数 lpEnumFunc, 子程序指针
    .参数 lParam, 整数型