易语言枚举托盘图标源码

系统结构:刷新托盘图标,提升进程权限,取模块路径,PID_NAME,W2A,CreateProcessThread,GetAddress,隐藏托盘图标,取托盘区句柄_,GetWindowThreadProcessId,FindWindow,FindWindowEx,OpenProcess,CloseHandle,VirtualAllocEx,VirtualFreeEx,ReadProcessMemory,WideCharToMultiByte,CreateRemoteThread,WaitForSingleObject,GetExitCodeThread,LoadLibraryA,GetProcAddress,SendMessage,UpdateWindow,PostMessage,GetModuleFileNameEx,AdjustTokenPrivileges,GetCurrentProcess,OpenProcessToken,LookupPrivilegeValueA,CreateToolhelp32Snapshot,Module32First,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _刷新_被选择
           |  |
           |  |------ _隐藏_被选择
           |  |
           |  |------ _显示_被选择
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ 刷新托盘图标
           |  |
           |  |
======常用
           |  |
           |  |------ 提升进程权限
           |  |
           |  |------ 取模块路径
           |  |
           |  |------ PID_NAME
           |  |
           |  |------ W2A
           |  |
           |  |------ _lstrlenW
           |  |
           |  |------ CreateProcessThread
           |  |
           |  |------ GetAddress
           |  |
           |  |------ 隐藏托盘图标
           |  |
           |  |------ 取托盘区句柄_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   VirtualAllocEx
           |  |
           |  |---[dll]------   VirtualFreeEx
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   _To_TB
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   CreateRemoteThread
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   LoadLibraryA
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   _a
           |  |
           |  |---[dll]------   _b
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   UpdateWindow
           |  |
           |  |---[dll]------   PostMessage
           |  |
           |  |---[dll]------   GetModuleFileNameEx
           |  |
           |  |---[dll]------   AdjustTokenPrivileges
           |  |
           |  |---[dll]------   GetCurrentProcess
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   LookupPrivilegeValueA
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Module32First

  

调用的DLL命令:

.DLL命令 GetWindowThreadProcessId, 整数型
    .参数 hWnd, 整数型
    .参数 lpdwProcessId, 整数型, 传址

.DLL命令 FindWindow, 整数型, , "FindWindowA"
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 文本型

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess", , , 将句柄返回给过程对象
    .参数 进程对象, 整数型, , dwDesiredAccess
    .参数 继承句柄, 逻辑型, , bInheritHandle
    .参数 进程标识符, 整数型, , dwProcessId

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

.DLL命令 VirtualAllocEx, 整数型, , , 公开
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型
    .参数 flProtect, 整数型

.DLL命令 VirtualFreeEx, 逻辑型, , , 公开
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型

.DLL命令 ReadProcessMemory, 逻辑型, , , 公开
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节集
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 _To_TB, , , "RtlMoveMemory"
    .参数 Destination, TBBUTTON
    .参数 Source, 字节集
    .参数 Length, 整数型

.DLL命令 WideCharToMultiByte, 整数型
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型, 传址
    .参数 cbMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 逻辑型

.DLL命令 CreateRemoteThread, 整数型
    .参数 hProcess, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 整数型
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 WaitForSingleObject, 整数型
    .参数 hHandle, 整数型
    .参数 dwMilliseconds, 整数型

.DLL命令 GetExitCodeThread, 整数型
    .参数 hThread, 整数型
    .参数 lpExitCode, 整数型, 传址

.DLL命令 LoadLibraryA, 整数型
    .参数 lpFileName, 文本型, , ;

.DLL命令 GetProcAddress, 整数型
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 _a, 整数型, "kernel32.dll", "#112"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 _b, 整数型, "kernel32.dll", "#605"
    .参数 快照句柄, 整数型
    .参数 模块信息, Module

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型, , 要隐藏的图标，从0开始
    .参数 lParam, 整数型, , Any型,根据需要可以设置成不同的类型

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

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

.DLL命令 GetModuleFileNameEx, 整数型, "Psapi.dll", "GetModuleFileNameExA"
    .参数 h, 整数型
    .参数 hModule, 整数型
    .参数 lpFileName, 文本型
    .参数 nSize, 整数型

.DLL命令 AdjustTokenPrivileges, 逻辑型, "advapi32.dll", "AdjustTokenPrivileges"
    .参数 TokenHandle, 整数型
    .参数 DisableAllPrivileges, 整数型
    .参数 NewState, TOKEN_PRIVILEGES, 传址
    .参数 BufferLength, 整数型
    .参数 PreviousState, TOKEN_PRIVILEGES, 传址
    .参数 ReturnLength, 整数型, 传址

.DLL命令 GetCurrentProcess, 整数型, "kernel32.dll", "GetCurrentProcess"

.DLL命令 OpenProcessToken, 整数型, "advapi32.dll", "OpenProcessToken"
    .参数 ProcessHandle, 整数型
    .参数 DesiredAccess, 整数型
    .参数 TokenHandle, 整数型, 传址

.DLL命令 LookupPrivilegeValueA, 逻辑型, "advapi32.dll", "LookupPrivilegeValueA"
    .参数 lpSystemName, 文本型
    .参数 lpName, 文本型
    .参数 lpLuid, LuID, 传址

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

.DLL命令 Module32First, 整数型, , "Module32First"
    .参数 hsnap, 整数型
    .参数 mod, Module