易语言桌面图标随意动源码

系统结构:初始化程序,LowLevelMouseProc,移动图标,close,LineDDAProc,初始化,取超级列表框坐标,根据坐标取项目,释放资源,取随机数_,取余数_,SetWindowsHookExA,GetModuleHandleA,UnhookWindowsHookEx,CallNextHookEx,CopyMemory,CloseHandle,SendMessageA,VirtualFreeEx,VirtualAllocEx,OpenProcess,GetWindowThreadProcessId,ReadProcessMemory_Point,FindWindowA,FindWindowExA,WindowFromPoint,GetCursorPos,SendMessageA_LVHITTESTINFO,ReadProcessMemory_LVHITTESTINFO,WriteProcessMemory,TextOutA,GetDC,DrawTextA,GetClientRect,GetTickCount,GetCurrentThread,SuspendThread,GetSystemMetrics,GetMessageA,MessageBoxA,PostQuitMessage,LineDDA,

======主程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 初始化程序
           |  |
           |  |------ LowLevelMouseProc
           |  |
           |  |------ 移动图标
           |  |
           |  |------ close
           |  |
           |  |------ LineDDAProc
           |  |
           |  |
======列表操作_程序集
           |  |
           |  |------ 初始化
           |  |
           |  |------ 取超级列表框坐标
           |  |
           |  |------ 根据坐标取项目
           |  |
           |  |------ 释放资源
           |  |
           |  |
======取随机数_程序集
           |  |
           |  |------ 取随机数_
           |  |
           |  |------ 取余数_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowsHookExA
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   VirtualFreeEx
           |  |
           |  |---[dll]------   VirtualAllocEx
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   ReadProcessMemory_Point
           |  |
           |  |---[dll]------   FindWindowA
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   SendMessageA_LVHITTESTINFO
           |  |
           |  |---[dll]------   ReadProcessMemory_LVHITTESTINFO
           |  |
           |  |---[dll]------   WriteProcessMemory
           |  |
           |  |---[dll]------   TextOutA
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   DrawTextA
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   GetTickCount
           |  |
           |  |---[dll]------   GetCurrentThread
           |  |
           |  |---[dll]------   SuspendThread
           |  |
           |  |---[dll]------   GetSystemMetrics
           |  |
           |  |---[dll]------   GetMessageA
           |  |
           |  |---[dll]------   MessageBoxA
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   LineDDA

  

调用的DLL命令:

.DLL命令 SetWindowsHookExA, 整数型, "user32.dll", "SetWindowsHookExA"
    .参数 ihook, 整数型
    .参数 lpfunc, 子程序指针
    .参数 hin, 整数型
    .参数 threadid, 整数型

.DLL命令 GetModuleHandleA, 整数型, "kernel32.dll", "GetModuleHandleA"
    .参数 M, 整数型

.DLL命令 UnhookWindowsHookEx, 整数型, "user32.dll", "UnhookWindowsHookEx"
    .参数 hook, 整数型

.DLL命令 CallNextHookEx, 整数型, "user32.dll", "CallNextHookEx"
    .参数 hook, 整数型
    .参数 icode, 整数型
    .参数 wparam, 整数型
    .参数 lparam, 整数型

.DLL命令 CopyMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, MSLLHOOKSTRUCT
    .参数 Source, 整数型
    .参数 cbCopy, 整数型

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

.DLL命令 SendMessageA, 整数型, "user32.dll", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

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

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

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

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

.DLL命令 ReadProcessMemory_Point, 整数型, "kernel32.dll", "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, Point, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesRead, 整数型

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

.DLL命令 FindWindowExA, 整数型, "user32.dll", "FindWindowExA"
    .参数 hwndParent, 整数型
    .参数 hwndChildAfter, 整数型
    .参数 lpszClass, 文本型
    .参数 lpszWindow, 整数型

.DLL命令 WindowFromPoint, 整数型, "user32.dll", "WindowFromPoint"
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 GetCursorPos, 整数型, "user32.dll", "GetCursorPos"
    .参数 Point, Point, 传址

.DLL命令 SendMessageA_LVHITTESTINFO, 整数型, "user32.dll", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, LVHITTESTINFO

.DLL命令 ReadProcessMemory_LVHITTESTINFO, 整数型, "kernel32.dll", "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, LVHITTESTINFO, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesRead, 整数型

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

.DLL命令 TextOutA, 整数型, "user32.dll", "TextOutA"
    .参数 hdc, 整数型
    .参数 nXStart, 整数型
    .参数 nYStart, 整数型
    .参数 lpString, 文本型
    .参数 cbString, 整数型

.DLL命令 GetDC, 整数型, "user32.dll", "GetDC"
    .参数 hWnd, 整数型

.DLL命令 DrawTextA, 整数型, "user32.dll", "DrawTextA"
    .参数 hdc, 整数型
    .参数 lpStr, 文本型
    .参数 nCount, 整数型
    .参数 lpRect, Rect
    .参数 wFormat, 整数型

.DLL命令 GetClientRect, 整数型, "user32.dll", "GetClientRect"
    .参数 hwnd, 整数型
    .参数 lpRect, Rect, 传址

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

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

.DLL命令 SuspendThread, 整数型, "kernel32.dll", "SuspendThread"
    .参数 hThread, 整数型, , 线程句柄

.DLL命令 GetSystemMetrics, 整数型, "user32.dll", "GetSystemMetrics"
    .参数 nIndex, 整数型

.DLL命令 GetMessageA, 整数型, "user32.dll", "GetMessageA"
    .参数 lpMsg, MSG, 传址
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 MessageBoxA, 整数型, "user32.dll", "MessageBoxA"
    .参数 hWnd, 整数型
    .参数 lpText, 文本型
    .参数 lpCaption, 文本型
    .参数 uType, 整数型

.DLL命令 PostQuitMessage, , "user32.dll", "PostQuitMessage"
    .参数 nExitCode, 整数型

.DLL命令 LineDDA, 逻辑型
    .参数 nXStart, 整数型
    .参数 nYStart, 整数型
    .参数 nXEnd, 整数型
    .参数 nYEnd, 整数型
    .参数 lpLineFunc, 整数型
    .参数 lpData, 整数型