易语言取托盘程序源码

系统结构:取托盘句柄,取隐藏按钮句柄,模拟鼠标,按键,GetInfo,FindWindow,FindWindowEx,SendMessage,GetWindowRect,GetWindowThreadProcessId,OpenProcess,DuplicateHandle,GetCurrentProcess,CloseHandle,VirtualAllocEx,WriteProcessMemory,ReadProcessMemory,VirtualFreeEx2,SetCursorPos,mouse_event,GetDoubleClickTime,CreateWaitableTimerA,SetWaitableTimer,MsgWaitForMultipleObjects,GetCursorPos,keybd_event,MapVirtualKey,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _列表框1_被双击
           |  |
           |  |------ 取托盘句柄
           |  |
           |  |------ 取隐藏按钮句柄
           |  |
           |  |------ 模拟鼠标
           |  |
           |  |------ _延时
           |  |
           |  |------ 按键
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ GetInfo
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   DuplicateHandle
           |  |
           |  |---[dll]------   GetCurrentProcess
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   VirtualAllocEx
           |  |
           |  |---[dll]------   WriteProcessMemory
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   VirtualFreeEx2
           |  |
           |  |---[dll]------   SetCursorPos
           |  |
           |  |---[dll]------   mouse_event
           |  |
           |  |---[dll]------   GetDoubleClickTime
           |  |
           |  |---[dll]------   CreateWaitableTimerA
           |  |
           |  |---[dll]------   SetWaitableTimer
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   keybd_event
           |  |
           |  |---[dll]------   MapVirtualKey

调用的DLL命令:

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

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

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

.DLL命令 GetWindowRect, 整数型, "user32.dll", "GetWindowRect"
    .参数 句柄, 整数型
    .参数 大小, RECT, 传址

.DLL命令 GetWindowThreadProcessId, 整数型, "user32.dll", "GetWindowThreadProcessId"
    .参数 hwnd, 整数型
    .参数 lpdwProcessId, 整数型, 传址

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess"
    .参数 dwDesiredAccessas, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwProcId, 整数型

.DLL命令 DuplicateHandle, 整数型, "kernel32.dll", "DuplicateHandle"
    .参数 hSourceProcessHandle
    .参数 hSourceHandle
    .参数 hTargetProcessHandle
    .参数 lpTargetHandle, , 传址
    .参数 dwDesiredAccess
    .参数 bInheritHandle
    .参数 dwOptions

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

.DLL命令 CloseHandle, 整数型, "kernel32.dll", "CloseHandle"
    .参数 hObject

.DLL命令 VirtualAllocEx, 整数型, "kernel32.dll", "VirtualAllocEx"
    .参数 hProcess
    .参数 lpAddress, , , any
    .参数 dwSize
    .参数 flAllocationType
    .参数 flProtect

.DLL命令 WriteProcessMemory, 整数型, "kernel32.dll", "WriteProcessMemory"
    .参数 hProcess
    .参数 lpBaseAddress, , , any
    .参数 lpBuffer
    .参数 nSize
    .参数 lpNumberOfBytesWritten

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

.DLL命令 VirtualFreeEx2, 整数型, "kernel32.dll", "VirtualFreeEx"
    .参数 hProcess
    .参数 lpAddress
    .参数 dwSize
    .参数 dwFreeType

.DLL命令 SetCursorPos, 整数型, , "SetCursorPos"
    .参数 X, 整数型
    .参数 Y, 整数型

.DLL命令 mouse_event, , , "mouse_event", , user32.dll
    .参数 dwFlags, 整数型
    .参数 dx, 整数型
    .参数 dy, 整数型
    .参数 cButtons, 整数型
    .参数 dwExtraInfo, 整数型

.DLL命令 GetDoubleClickTime, 整数型, , "GetDoubleClickTime", 公开, 判断连续两次鼠标单击之间会被处理成双击事件的间隔时间 以毫秒表示的双击时间

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 GetCursorPos, 逻辑型, "user32.dll", "GetCursorPos"
    .参数 光标位置, 坐标型, 传址

.DLL命令 keybd_event, 整数型, , "keybd_event", , user32.dll这个函数模拟了键盘行动
    .参数 键代码, 整数型, , bVk,欲模拟的虚拟键码
    .参数 键扫描码, 整数型, , bScan,键的OEM扫描码
    .参数 标志值, 整数型, , dwFlags,标志常数
    .参数 特定值, 整数型, , dwExtraInfo,通常不用的一个值

.DLL命令 MapVirtualKey, 整数型, , "MapVirtualKeyA", 公开, 返回转换后的代码
    .参数 wCode, 整数型, , 代码值
    .参数 wMapType, 整数型, , 0--虚拟键码->扫描码；1--扫描码->虚拟键码；2-虚拟键码->ASCII值（未加Shift组合键）。