易语言P2P交互源码

系统结构:P2P监听,启动线程_,创建进入许可证_,删除进入许可证_,CreateThread1,CreateThread,关闭句柄,InitializeCriticalSection,DeleteCriticalSection,GetMessage,TranslateMessage,DispatchMessage,P2P监听,数据分析,启动线程_,创建进入许可证_,删除进入许可证_,CreateThread1,CreateThread,关闭句柄,InitializeCriticalSection,DeleteCriticalSection,GetMessage,TranslateMessage,DispatchMessage,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ P2P监听
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _客户1_数据到达
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 启动线程_
           |  |
           |  |------ 创建进入许可证_
           |  |
           |  |------ 删除进入许可证_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateThread1
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   关闭句柄
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ P2P监听
           |  |
           |  |------ _服务器1_数据到达
           |  |
           |  |------ _服务器1_客户进入
           |  |
           |  |------ _服务器1_客户离开
           |  |
           |  |------ 数据分析
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 启动线程_
           |  |
           |  |------ 创建进入许可证_
           |  |
           |  |------ 删除进入许可证_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateThread1
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   关闭句柄
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage

调用的DLL命令:

.DLL命令 CreateThread1, 整数型, , "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 CreateThread, 整数型, "kernel32.dll", "CreateThread", , 启动线程
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 关闭句柄, 整数型, "kernel32.dll", "CloseHandle", , CloseHandle
    .参数 hObject, 整数型

.DLL命令 InitializeCriticalSection, , "kernel32.dll", , , 创建许可证
    .参数 lpCriticalSection, 字节集, 传址

.DLL命令 DeleteCriticalSection, , "kernel32.dll", , , 删除许可证
    .参数 lpCriticalSection, 字节集, 传址

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA", , 从线索消息队列中返回一条消息　
    .参数 lpMsg, 字节集
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32", "TranslateMessage", , 转换虚拟关键字消息　
    .参数 lpMsg, 字节集

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA", , 向窗口发送消息　
    .参数 lpMsg, 字节集

调用的DLL命令:

.DLL命令 CreateThread1, 整数型, , "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 CreateThread, 整数型, "kernel32.dll", "CreateThread", , 启动线程
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 关闭句柄, 整数型, "kernel32.dll", "CloseHandle", , CloseHandle
    .参数 hObject, 整数型

.DLL命令 InitializeCriticalSection, , "kernel32.dll", , , 创建许可证
    .参数 lpCriticalSection, 字节集, 传址

.DLL命令 DeleteCriticalSection, , "kernel32.dll", , , 删除许可证
    .参数 lpCriticalSection, 字节集, 传址

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA", , 从线索消息队列中返回一条消息　
    .参数 lpMsg, 字节集
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32", "TranslateMessage", , 转换虚拟关键字消息　
    .参数 lpMsg, 字节集

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA", , 向窗口发送消息　
    .参数 lpMsg, 字节集