显示QQ登陆号码

系统结构:列举QQ号码,取模块路径,CreateToolhelp32Snapshot,Process32First,Process32Next,Module32First,OpenProcess,CloseHandle,ReadProcessMemory,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 列举QQ号码
           |  |
           |  |------ 取模块路径
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Process32First
           |  |
           |  |---[dll]------   Process32Next
           |  |
           |  |---[dll]------   Module32First
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   ReadProcessMemory

调用的DLL命令:

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 Process32First, 整数型, , "Process32First"
    .参数 h, 整数型
    .参数 p, 进程信息

.DLL命令 Process32Next, 整数型, , "Process32Next"
    .参数 h, 整数型
    .参数 p, 进程信息

.DLL命令 Module32First, 整数型, , "Module32First"
    .参数 hsnap, 整数型
    .参数 mod, 模块信息

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess", , OpenProcess(0,False,ProgramID) OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
    .参数 dwDesiredAccess, 整数型, , PROCESS_ALL_ACCESS = &H1F0FFF 即 2035711
    .参数 bInheritHandle, 整数型
    .参数 dwProcessId, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32.dll", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的 非零表示成功，零表示失败。
    .参数 hObject, 整数型, , 欲关闭的一个对象的句柄

.DLL命令 ReadProcessMemory, 整数型, "kernel32.dll", "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型