易语言标签自适应提示源码

系统结构:初始化,标签背景图片自适应,透明窗口,CallWindowProc,OpenProcesszr,WriteProcessMemoryzr,取指针_整数zr,取指针_字节集zr,CloseHandlezr,ReadProcessMemoryzr,API_GetModuleHandlezr,API_GetProcAddresszr,FreeLibraryzr,API_VirtualAllocExzr,取指针_文本zr,VirtualFreeExzr,LoadLibraryExzr,WaitForSingleObjectzr,GetExitCodeThreadzr,wvsprintfA,SetWindowLong,GetWindowLong,SetLayeredWindowAttributes,扣扣_recv,扣扣_send,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化
           |  |
           |  |------ 标签背景图片自适应
           |  |
           |  |------ 透明窗口
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _时钟3_周期事件
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   _动态调用子程序2
           |  |
           |  |---[dll]------   _释放DLL
           |  |
           |  |---[dll]------   _取指针_字节集2
           |  |
           |  |---[dll]------   _修改内存属性
           |  |
           |  |---[dll]------   _取库函数地址
           |  |
           |  |---[dll]------   _装载DLL
           |  |
           |  |---[dll]------   _取模块句柄2
           |  |
           |  |---[dll]------   OpenProcesszr
           |  |
           |  |---[dll]------   WriteProcessMemoryzr
           |  |
           |  |---[dll]------   取指针_整数zr
           |  |
           |  |---[dll]------   取指针_字节集zr
           |  |
           |  |---[dll]------   CloseHandlezr
           |  |
           |  |---[dll]------   ReadProcessMemoryzr
           |  |
           |  |---[dll]------   API_GetModuleHandlezr
           |  |
           |  |---[dll]------   API_GetProcAddresszr
           |  |
           |  |---[dll]------   FreeLibraryzr
           |  |
           |  |---[dll]------   API_VirtualAllocExzr
           |  |
           |  |---[dll]------   取指针_文本zr
           |  |
           |  |---[dll]------   VirtualFreeExzr
           |  |
           |  |---[dll]------   LoadLibraryExzr
           |  |
           |  |---[dll]------   WaitForSingleObjectzr
           |  |
           |  |---[dll]------   GetExitCodeThreadzr
           |  |
           |  |---[dll]------   wvsprintfA
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   扣扣_recv
           |  |
           |  |---[dll]------   扣扣_send

  

调用的DLL命令:

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 _动态调用子程序2, 整数型, , "CallWindowProcA"
    .参数 动态调用代码, 整数型
    .参数 子程序, 子程序指针
    .参数 参数, 整数型, 数组
    .参数 参数数目, 整数型
    .参数 是否C调用, 逻辑型

.DLL命令 _释放DLL, 逻辑型, , "FreeLibrary", 公开, kernel32.dll
    .参数 模块句柄, 整数型

.DLL命令 _取指针_字节集2, 整数型, , "lstrcpynA"
    .参数 lpString1, 字节集
    .参数 lpString2, 字节集
    .参数 iMaxLength, 整数型

.DLL命令 _修改内存属性, 逻辑型, , "VirtualProtect"
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flNewProtect, 整数型
    .参数 lpflOldProtect, 整数型, 传址

.DLL命令 _取库函数地址, 整数型, , "GetProcAddress", 公开
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 _装载DLL, 整数型, , "LoadLibraryA", 公开
    .参数 lpLibFileName, 文本型

.DLL命令 _取模块句柄2, 整数型, , "GetModuleHandleA", 公开
    .参数 lpModuleName, 文本型

.DLL命令 OpenProcesszr, 整数型, "kernel32.dll", "OpenProcess"
    .参数 ba
    .参数 b
    .参数 id

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

.DLL命令 取指针_整数zr, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 欲取其指针, 整数型, 传址
    .参数 欲取其指针, 整数型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 取指针_字节集zr, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 欲取其指针, 字节集, 传址
    .参数 欲取其指针, 字节集, 传址
    .参数 保留, 整数型, , 0

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

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

.DLL命令 API_GetModuleHandlezr, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄  如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 文本型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;

.DLL命令 API_GetProcAddresszr, 整数型, "kernel32", "GetProcAddress", , 返回函数地址
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 FreeLibraryzr, 整数型, "kernel32.dll", "FreeLibrary"
    .参数 hModule, 整数型

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

.DLL命令 取指针_文本zr, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 欲取其指针, 文本型, 传址
    .参数 欲取其指针, 文本型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 VirtualFreeExzr, 整数型, "kernel32.dll", "VirtualFreeEx"
    .参数 hProcess, 整数型
    .参数 lpBuf, 整数型
    .参数 dwSize, 整数型
    .参数 sss, 整数型

.DLL命令 LoadLibraryExzr, 整数型, "kernel32.dll", "LoadLibraryExA"
    .参数 lpLibFileName, 文本型, 传址
    .参数 hFile, 整数型
    .参数 dwFlags, 整数型

.DLL命令 WaitForSingleObjectzr, 整数型, "kernel32.dll", "WaitForSingleObject"
    .参数 h, 整数型
    .参数 d, 整数型

.DLL命令 GetExitCodeThreadzr, 整数型, "kernel32.dll", "GetExitCodeThread"
    .参数 h, 整数型
    .参数 ret, 整数型, 传址

.DLL命令 wvsprintfA, 整数型, "user32.dll", "wvsprintfA"
    .参数 lpstr, 文本型
    .参数 lpcstr, 文本型
    .参数 OptionalArguments, 整数型, 传址

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 SetLayeredWindowAttributes, 逻辑型, , "SetLayeredWindowAttributes", , 成功返回真，否则返回假
    .参数 hwnd, 整数型, , 透明窗体的句柄
    .参数 crKey, 整数型, , 颜色值
    .参数 bAlpha, 字节型, , 透明度，取值范围是[0,255]
    .参数 dwFlags, 整数型, , 透明方式：LWA_ALPHA(2)时，crKey参数无效，bAlpha参数有效 || LWA_COLORKEY(1)时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明

.DLL命令 扣扣_recv, 整数型, "ws2_32.dll", "recv", 公开, 已取回长度
    .参数 套接字, 整数型
    .参数 封包指针, 整数型, , 接收封包的变量地址
    .参数 缓冲长度, 整数型
    .参数 标志, 整数型, , 值=0

.DLL命令 扣扣_send, 整数型, "ws2_32.dll", "send", 公开, 已发送长度
    .参数 套接字, 整数型
    .参数 封包指针, 整数型
    .参数 封包长度, 整数型
    .参数 标志, 整数型, , 值=0