易语言进程通信模块和例程源码

系统结构:收到信息,收到信息,接收端_开始监听,接收端_读数据,接收端_取出数据,发送端_发送数据,取得窗口句柄,SetWindowLong,CallWindowProc2,RegisterWindowMessage,OpenProcess,ReadProcessMemory,CloseHandle,SendMessage,GetCurrentProcessId,IsWindow,FindWindow,CallWindowProc,

======窗口程序集1

           |  |

           |  |------ __启动窗口_创建完毕

           |  |

           |  |------ 收到信息

           |  |

           |  |------ _按钮1_被单击

           |  |

           |  |------ _按钮2_被单击

           |  |

           |  |------ _清空_鼠标左键被按下

           |  |

           |  |------ _按钮3_被单击

           |  |

           |  |------ _测试图片1_鼠标左键被按下

           |  |

           |  |------ _测试图片2_鼠标左键被按下

  ======窗口程序集1

           |  |

           |  |------ __启动窗口_创建完毕

           |  |

           |  |------ 收到信息

           |  |

           |  |------ _按钮1_被单击

           |  |

           |  |------ _按钮2_被单击

           |  |

           |  |------ _按钮3_被单击

           |  |

           |  |------ _清空_鼠标左键被按下

           |  |

           |  |------ _测试图片1_鼠标左键被按下

           |  |

           |  |------ _测试图片2_鼠标左键被按下

  ======程序集1

           |  |

           |  |------ _启动子程序

           |  |

           |  |------ _临时子程序

           |  |

           |  |------ 接收端_开始监听

           |  |

           |  |------ 接收端_读数据

           |  |

           |  |------ 接收端_取出数据

           |  |

           |  |------ 发送端_发送数据

           |  |

           |  |------ 取得窗口句柄

           |  |

           |  |

======调用的Dll

           |  |

           |  |---[dll]------   SetWindowLong

           |  |

           |  |---[dll]------   CallWindowProc2

           |  |

           |  |---[dll]------   RegisterWindowMessage

           |  |

           |  |---[dll]------   OpenProcess

           |  |

           |  |---[dll]------   ReadProcessMemory

           |  |

           |  |---[dll]------   CloseHandle

           |  |

           |  |---[dll]------   SendMessage

           |  |

           |  |---[dll]------   GetCurrentProcessId

           |  |

           |  |---[dll]------   IsWindow

           |  |

           |  |---[dll]------   FindWindow

           |  |

           |  |---[dll]------   CallWindowProc

调用的DLL命令:

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"

    .参数 hwnd, 整数型

    .参数 nIndex, 整数型

    .参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProc2, 整数型, "user32", "CallWindowProcA"

    .参数 lpPrevWndFunc, 整数型

    .参数 hwnd, 整数型

    .参数 msg, 整数型

    .参数 wParam, 整数型

    .参数 lParam, 整数型

.DLL命令 RegisterWindowMessage, 整数型, , "RegisterWindowMessageA"

    .参数 lpString, 文本型

.DLL命令 OpenProcess, 整数型, "kernel32", "OpenProcess"

    .参数 dwDesiredAccess, 整数型

    .参数 bInheritHandle, 整数型

    .参数 dwProcessId, 整数型

.DLL命令 ReadProcessMemory, 整数型, "kernel32", "ReadProcessMemory"

    .参数 hProcess, 整数型

    .参数 lpBaseAddress, 整数型

    .参数 lpBuffer, 字节集, 传址

    .参数 nSize, 整数型

    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"

    .参数 hObject, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"

    .参数 hwnd, 整数型

    .参数 wMsg, 整数型

    .参数 wParam, 整数型

    .参数 lParam, 字节集, 传址

.DLL命令 GetCurrentProcessId, 整数型, "kernel32", "GetCurrentProcessId"

.DLL命令 IsWindow, 逻辑型, "user32", "IsWindow"

    .参数 句柄, 整数型

.DLL命令 FindWindow, 整数型, "user32", "FindWindowA"

    .参数 lpClassName, 文本型

    .参数 lpWindowName, 文本型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"

    .参数 lpPrevWndFunc, 字节集

    .参数 子程序, 子程序指针

    .参数 参数, 字节集

    .参数 参数, 字节集

    .参数 参数, 字节集