易语言取已登录过的QQ号源码

系统结构:进程名取ID,进程取路径,DOS路径转换_,枚举子目录,Process32First,GetLogicalDriveStringsA,OpenProcess,GetProcessImageFileName,Process32Next,OpenProcessToken,ReadProcessMemory,CloseHandle,GetCurrentProcessId,CreateToolhelp32Snapshot,QueryDosDeviceA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 进程名取ID
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 进程取路径
           |  |
           |  |------ DOS路径转换_
           |  |
           |  |------ 枚举子目录
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   Process32First
           |  |
           |  |---[dll]------   GetLogicalDriveStringsA
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   GetProcessImageFileName
           |  |
           |  |---[dll]------   Process32Next
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetCurrentProcessId
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   _第一个
           |  |
           |  |---[dll]------   _下一个
           |  |
           |  |---[dll]------   QueryDosDeviceA

调用的DLL命令:

.DLL命令 Process32First, 整数型, , "Process32First"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 GetLogicalDriveStringsA, 整数型, "kernel32.dll", "GetLogicalDriveStringsA"
    .参数 nBufferLength, 整数型
    .参数 lpBuffer, 字节集

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

.DLL命令 GetProcessImageFileName, 整数型, "psapi.dll", "GetProcessImageFileNameA"
    .参数 hProcess, 整数型
    .参数 lpImageFileName, 文本型
    .参数 nSize, 整数型

.DLL命令 Process32Next, 整数型, , "Process32Next"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 OpenProcessToken, 逻辑型
    .参数 ProcessHandle, 整数型
    .参数 DesiredAccess, 整数型
    .参数 TokenHandle, 整数型, 传址

.DLL命令 ReadProcessMemory, 逻辑型
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节集
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址

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

.DLL命令 GetCurrentProcessId, 整数型, "kernel32.dll", "GetCurrentProcessId", , 取当前进程标识符_[获取当前进程一个唯一的标识符]

.DLL命令 CreateToolhelp32Snapshot, 整数型, "kernel32.DLL", "CreateToolhelp32Snapshot", , _创建快照
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 _第一个, 整数型, "kernel32.DLL", "Process32First"
    .参数 h, 整数型
    .参数 p, 进程信息_

.DLL命令 _下一个, 整数型, "kernel32.DLL", "Process32Next"
    .参数 h, 整数型
    .参数 p, 进程信息_

.DLL命令 QueryDosDeviceA, 整数型, "kernel32.dll", "QueryDosDeviceA"
    .参数 lpDeviceName, 文本型
    .参数 lpTargetPath, 文本型
    .参数 ucchMax, 整数型