易语言读QQ号模块源码

系统结构:读QQ号,读内存字节集,AnsiToUnicode,UnicodeToAnsi,CreateToolhelp32Snapshot,Process32First,Process32Next,OpenProcess,CloseHandle,ReadProcessMemory,读内存整数,VirtualQueryEx,十六转十,RtlAnsiStringToUnicodeString,RtlUnicodeStringToAnsiString,RtlFreeUnicodeString,RtlFreeAnsiString,分配虚拟页_,释放虚拟页_,取字节集变量地址_,取文本量地址_,

======窗口程序集1
           |  |
           |  |------ 读QQ号
           |  |
           |  |------ 读内存字节集
           |  |
           |  |------ AnsiToUnicode
           |  |
           |  |------ UnicodeToAnsi
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Process32First
           |  |
           |  |---[dll]------   Process32Next
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   读内存整数
           |  |
           |  |---[dll]------   VirtualQueryEx
           |  |
           |  |---[dll]------   十六转十
           |  |
           |  |---[dll]------   RtlAnsiStringToUnicodeString
           |  |
           |  |---[dll]------   RtlUnicodeStringToAnsiString
           |  |
           |  |---[dll]------   RtlFreeUnicodeString
           |  |
           |  |---[dll]------   RtlFreeAnsiString
           |  |
           |  |---[dll]------   分配虚拟页_
           |  |
           |  |---[dll]------   释放虚拟页_
           |  |
           |  |---[dll]------   取字节集变量地址_
           |  |
           |  |---[dll]------   取文本量地址_

调用的DLL命令:

.DLL命令 CreateToolhelp32Snapshot, 整数型
    .参数 lFlags, 整数型
    .参数 lProcessID, 整数型

.DLL命令 Process32First, 整数型
    .参数 hSnapShot, 整数型
    .参数 uProcess, PROCESSENTRY32

.DLL命令 Process32Next, 整数型
    .参数 hSnapShot, 整数型
    .参数 uProcess, PROCESSENTRY32

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

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

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

.DLL命令 读内存整数, 整数型, "kernel32.dll", "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 整数型, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 VirtualQueryEx, 整数型
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 info, MEMORY_BASIC_INFORMATION, 传址
    .参数 dwLength, 整数型

.DLL命令 十六转十, 整数型, "shlwapi.dll", "StrToInt64ExA", , 64-bit integer
    .参数 pszString, 文本型
    .参数 dwFlags, 整数型
    .参数 piRet, 整数型, 传址

.DLL命令 RtlAnsiStringToUnicodeString, 整数型, "ntdll.dll", "RtlAnsiStringToUnicodeString", , Ansi转Unicode,机器翻译.
    .参数 DestinationString, PUNICODE_STRING, , PUNICODE_STRING 指向一个UNICODE_STRING结构以容纳转换的Unicode字符串。如果AllocateDestinationString为TRUE，常规分配一个新的缓冲区来保存字符串数据，并更新DestinationString缓冲区成员以指向新的缓冲区。否则，常规使用当前指定的缓冲区来保存字符串。
    .参数 SourceString, PANSI_STRING, , PANSI_STRING 指针为ANSI字符串转换为Unicode。
    .参数 AllocateDestinationString, 逻辑型, , BOOLEAN 如果指定这个例程应分配为目标字符串的缓冲区空间。如果是这样，调用者必须通过调用RtlFreeUnicodeString释放缓冲区

.DLL命令 RtlUnicodeStringToAnsiString, 整数型, "ntdll.dll", "RtlUnicodeStringToAnsiString"
    .参数 DestinationString, PANSI_STRING
    .参数 SourceString, PUNICODE_STRING
    .参数 AllocateDestinationString, 逻辑型

.DLL命令 RtlFreeUnicodeString, 整数型, "ntdll.dll", "RtlFreeUnicodeString"
    .参数 UnicodeString, PUNICODE_STRING

.DLL命令 RtlFreeAnsiString, 整数型, "ntdll.dll", "RtlFreeUnicodeString"
    .参数 AnsiString, PANSI_STRING

.DLL命令 分配虚拟页_, 整数型, "kernel32.dll", "VirtualAlloc", , , 保留虚拟页
    .参数 分配文本地址, 整数型, , lpAddress
    .参数 分配大小, 整数型, , dwSize
    .参数 分配类型, 整数型, , flAllocationType
    .参数 内存保护标志, 整数型, , flProtect

.DLL命令 释放虚拟页_, 整数型, "kernel32.dll", "VirtualFree", , 释放虚拟页
    .参数 分配文本地址, 整数型, , lpAddress
    .参数 分配大小, 整数型, , dwSize
    .参数 释放类型, 整数型, , dwFreeType

.DLL命令 取字节集变量地址_, 整数型, "kernel32.dll", "lstrcpyn", , ,
    .参数 数据1, 字节集, 传址, lpString1
    .参数 数据2, 字节集, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 取文本量地址_, 整数型, "kernel32.dll", "lstrcpyn", , ,
    .参数 数据1, 文本型, 传址, lpString1
    .参数 数据2, 文本型, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength