易语言网络端口转发源码

系统结构:启动控制,启动测试,显示信息,fser,启动,停止,发送到,取回客户,ThreadEvent_Listen,ThreadEvent_Worker,调用_Call,decode,encode,RtlMoveMemory_读整数,RtlMoveMemory_读短整数,WSAEventSelect,WSACreateEvent,WSACloseEvent,GetQueuedCompletionStatus,PostQueuedCompletionStatus,CreateIoCompletionPort,GetLastError,WSAEnumNetworkEvents,LocalFree,closesocket,socket,listen,connect,WSACleanup,send_字节集,send,inet_addr,accept,accept_套接字地址,WSASocket,LocalAlloc,CloseHandle,gethostname,getsockname,inet_ntoa,ntohs,recv,recv_字节集,WaitForSingleObject,getpeername,CallWindowProcB,CallWindowProc_文本,WSAStartup,htons,bind,TerminateThread,CreateThread_,RtlMoveMemory_写整数,RtlMoveMemory_写短整数,GetExitCodeThread,文本IP到整型,整型IP到文本,InitializeCriticalSection,DeleteCriticalSection,EnterCriticalSection,LeaveCriticalSection,端口到短整数,短整数到端口,RtlMoveMemory_读套接字地址,RtlMoveMemory_写套接字地址,lstrcpyn_字节集,WSAWaitForMultipleEvents,整型IP到文本指针,

======启动
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 启动控制
           |  |
           |  |------ 启动测试
           |  |
           |  |------ 显示信息
           |  |
           |  |------ fser
           |  |
           |  |
======C_同步转发服务
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 启动
           |  |
           |  |------ 停止
           |  |
           |  |------ 发送到
           |  |
           |  |------ 取回客户
           |  |
           |  |
======ThreadEvent
           |  |
           |  |------ ThreadEvent_Listen
           |  |
           |  |------ ThreadEvent_Worker
           |  |
           |  |
======USE
           |  |
           |  |------ 调用_Call
           |  |
           |  |------ decode
           |  |
           |  |------ encode
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RtlMoveMemory_读整数
           |  |
           |  |---[dll]------   RtlMoveMemory_读短整数
           |  |
           |  |---[dll]------   WSAEventSelect
           |  |
           |  |---[dll]------   WSACreateEvent
           |  |
           |  |---[dll]------   WSACloseEvent
           |  |
           |  |---[dll]------   GetQueuedCompletionStatus
           |  |
           |  |---[dll]------   PostQueuedCompletionStatus
           |  |
           |  |---[dll]------   CreateIoCompletionPort
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   WSAEnumNetworkEvents
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   listen
           |  |
           |  |---[dll]------   connect
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   send_字节集
           |  |
           |  |---[dll]------   send
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   accept
           |  |
           |  |---[dll]------   accept_套接字地址
           |  |
           |  |---[dll]------   WSASocket
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   gethostname
           |  |
           |  |---[dll]------   getsockname
           |  |
           |  |---[dll]------   inet_ntoa
           |  |
           |  |---[dll]------   ntohs
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   recv_字节集
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   getpeername
           |  |
           |  |---[dll]------   CallWindowProcB
           |  |
           |  |---[dll]------   CallWindowProc_文本
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   bind
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   CreateThread_
           |  |
           |  |---[dll]------   RtlMoveMemory_写整数
           |  |
           |  |---[dll]------   RtlMoveMemory_写短整数
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   文本IP到整型
           |  |
           |  |---[dll]------   整型IP到文本
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   EnterCriticalSection
           |  |
           |  |---[dll]------   LeaveCriticalSection
           |  |
           |  |---[dll]------   端口到短整数
           |  |
           |  |---[dll]------   短整数到端口
           |  |
           |  |---[dll]------   RtlMoveMemory_读套接字地址
           |  |
           |  |---[dll]------   RtlMoveMemory_写套接字地址
           |  |
           |  |---[dll]------   lstrcpyn_字节集
           |  |
           |  |---[dll]------   WSAWaitForMultipleEvents
           |  |
           |  |---[dll]------   整型IP到文本指针

调用的DLL命令:

.DLL命令 RtlMoveMemory_读整数, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 目标数据, 整数型, 传址
    .参数 原数据, 整数型
    .参数 尺寸, 整数型

.DLL命令 RtlMoveMemory_读短整数, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 目标数据, 短整数型, 传址
    .参数 原数据, 整数型
    .参数 尺寸, 整数型

.DLL命令 WSAEventSelect, 整数型, "ws2_32.dll", "WSAEventSelect"
    .参数 s, 整数型
    .参数 hEventObject, 整数型
    .参数 lNetworkEvents, 整数型

.DLL命令 WSACreateEvent, 整数型, "ws2_32.dll", "WSACreateEvent"

.DLL命令 WSACloseEvent, 逻辑型, "ws2_32.dll", "WSACloseEvent"
    .参数 hEvent, 整数型

.DLL命令 GetQueuedCompletionStatus, 逻辑型, "kernel32.dll", "GetQueuedCompletionStatus"
    .参数 CompletionPort, 整数型
    .参数 lpNumberOfBytesTransferred, 整数型, 传址
    .参数 lpCompletionKey, 整数型, 传址
    .参数 lpOverlapped, 整数型, 传址
    .参数 dwMilliseconds, 整数型

.DLL命令 PostQueuedCompletionStatus, 逻辑型, "kernel32.dll", "PostQueuedCompletionStatus"
    .参数 CompletionPort, 整数型
    .参数 dwNumberOfBytesTransferred, 整数型
    .参数 dwCompletionKey, 整数型
    .参数 lpOverlapped, 整数型

.DLL命令 CreateIoCompletionPort, 整数型, "kernel32.dll", "CreateIoCompletionPort"
    .参数 Handle, 整数型
    .参数 ExistingCompletionPort, 整数型
    .参数 CompletionKey, 整数型
    .参数 NumberOfConcurrentThreads, 整数型

.DLL命令 GetLastError, 整数型, , "GetLastError", , GetLastError 

.DLL命令 WSAEnumNetworkEvents, 整数型, "ws2_32.dll", "WSAEnumNetworkEvents"
    .参数 s, 整数型
    .参数 hEventObject, 整数型
    .参数 lpNetworkEvents, WSANETWORKEVENTS, 传址

.DLL命令 LocalFree, 整数型, "kernel32.dll", "LocalFree"
    .参数 hMem, 整数型

.DLL命令 closesocket, 整数型, "ws2_32.dll", "closesocket", , 销毁套接字
    .参数 套接字描述符, 整数型

.DLL命令 socket, 整数型, "ws2_32.dll", "socket", , 创建套接字
    .参数 协议族, 整数型, , af使用的通信协议的协议族
    .参数 类型, 整数型, , lType流套接字类型
    .参数 协议, 整数型, , protocol使用的通信协议

.DLL命令 listen, 整数型, "ws2_32.dll", "listen"
    .参数 sockfd, 整数型
    .参数 backlog, 整数型

.DLL命令 connect, 整数型, "ws2_32.dll", "connect", , 连接到服务器(TCP)
    .参数 网络通讯标识符, 整数型, , s
    .参数 名称结构, 套接字地址, , addr
    .参数 名称结构长度, 整数型, , namelen(16)

.DLL命令 WSACleanup, 整数型, "ws2_32.dll", "WSACleanup", , 卸载Winsocket服务

.DLL命令 send_字节集, 整数型, "ws2_32.dll", "send", , 发送数据_(TCP，当这次发送数据未发送完时返回剩余字节数)
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 字节集, , buf
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

.DLL命令 send, 整数型, "ws2_32.dll", "send", , 发送数据_(TCP，当这次发送数据未发送完时返回剩余字节数)
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 整数型, , buf
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

.DLL命令 inet_addr, 整数型, "ws2_32.dll", "inet_addr", , 文本IP到整型_,失败返回-1，成功返回整型IP地址
    .参数 文本型IP, 文本型

.DLL命令 accept, 整数型, "ws2_32.dll", "accept"
    .参数 s, 整数型
    .参数 addr, 整数型, 传址
    .参数 addrlen, 整数型, 传址

.DLL命令 accept_套接字地址, 整数型, "ws2_32.dll", "accept", , 等待用户进入并接受连接
    .参数 s, 整数型, , 套接字描述符
    .参数 addr, 套接字地址, 传址, 地址信息
    .参数 addrlen, 整数型, 传址, 地址信息长度（长度为16）

.DLL命令 WSASocket, 整数型, "Ws2_32.dll", "WSASocketA"
    .参数 af, 整数型
    .参数 type, 整数型
    .参数 protocol, 整数型
    .参数 lpProtocolInfo, 整数型
    .参数 g, 整数型
    .参数 dwFlags, 整数型

.DLL命令 LocalAlloc, 整数型, "kernel32.dll", "LocalAlloc"
    .参数 uFlags, 整数型
    .参数 uBytes, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32.dll", "CloseHandle", , CloseHandle非零表示成功，零表示失败。
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 gethostname, 整数型, "ws2_32.dll", "gethostname", , 取本机名，失败返回-1，成功返回0。
    .参数 name, 文本型, 传址, 给变量，用于存放名称
    .参数 namelen, 整数型, , 上一个参数的长度

.DLL命令 getsockname, 整数型, "ws2_32.dll", "getsockname", , 获取本地接口的地址信息（IP和端口）。成功返回0
    .参数 s, 整数型, , 句柄
    .参数 name, 套接字地址, 传址, 地址信息
    .参数 namelen, 整数型, 传址, name长度,Sockaddr_in长度为16

.DLL命令 inet_ntoa, 整数型, "ws2_32.dll", "inet_ntoa", , 将整数格式IP地址转换为点数格式（返回值是内存地址指针）
    .参数 网络地址, 整数型, , lIn欲转换整数格式IP地址

.DLL命令 ntohs, 短整数型, "ws2_32.dll", "ntohs", , 转换为端口号-网络转换到本机
    .参数 十六位网络端口, 短整数型, , netshort欲转换值

.DLL命令 recv, 整数型, "ws2_32.dll", "recv", , 接收字节集数据(TCP，当数据这次未接收完时返回剩余字节数)
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 整数型, , buf数据(提供变量)
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

.DLL命令 recv_字节集, 整数型, "ws2_32.dll", "recv", , 接收字节集数据(TCP，当数据这次未接收完时返回剩余字节数)
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 字节集, 传址, buf数据(提供变量)
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

.DLL命令 WaitForSingleObject, 整数型, "kernel32.dll", "WaitForSingleObject", , 监测对象
    .参数 hHandle, 整数型, , 对象句柄
    .参数 dwMilliseconds, 整数型, , 等待时间 毫秒

.DLL命令 getpeername, 整数型, "ws2_32.dll", "getpeername", , 获取远端信息（已连接对方IP和端口）。成功返回0
    .参数 s, 整数型, , 句柄
    .参数 name, 套接字地址, 传址, 地址信息
    .参数 namelen, 整数型, 传址, name长度,Sockaddr_in长度为16

.DLL命令 CallWindowProcB, 整数型, "user32.dll", "CallWindowProcA"
    .参数 动态调用代码, 字节集
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 整数型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 CallWindowProc_文本, 整数型, "user32.dll", "CallWindowProcA"
    .参数 动态调用代码, 字节集, , 一定要用本人编写的
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 文本型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 WSAStartup, 整数型, "wsock32.dll", "WSAStartup", , 初始化WnSocket服务
    .参数 VersionReq, 短整数型
    .参数 WSADataReturn, 套接字信息, 传址

.DLL命令 htons, 短整数型, "ws2_32.dll", "htons", , 转换为network 排列方式的数目
    .参数 十六位主机命令, 短整数型, , hostshort端口号

.DLL命令 bind, 整数型, "ws2_32.dll", "bind", , 绑定一个地址和端口
    .参数 套接字描述符, 整数型
    .参数 地址结构, 套接字地址, , 地址信息
    .参数 结构大小, 整数型, , 16,地址信息长度

.DLL命令 TerminateThread, 逻辑型, "kernel32.dll", "TerminateThread", , 销毁线程
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 CreateThread_, 整数型, "kernel32.dll", "CreateThread", , 创建线程_ 句柄
    .参数 属性, 整数型, , 是线程的属性
    .参数 栈大小, 整数型, , 是线程的栈大小
    .参数 函数开始地址, 子程序指针, , 是线程函数的开始地址
    .参数 函数参数, 整数型, , 是传送给线程函数的参数
    .参数 标志, 整数型, , 是创建线程标志，比如挂起线程
    .参数 ID, 整数型, 传址, 是标识这个线程的ID

.DLL命令 RtlMoveMemory_写整数, , "kernel32.dll", "RtlMoveMemory"
    .参数 目标数据, 整数型, , any
    .参数 原数据, 整数型, 传址, any
    .参数 尺寸, 整数型

.DLL命令 RtlMoveMemory_写短整数, , "kernel32.dll", "RtlMoveMemory"
    .参数 目标数据, 整数型, , any
    .参数 原数据, 短整数型, 传址, any
    .参数 尺寸, 整数型

.DLL命令 GetExitCodeThread, 整数型, "kernel32.dll", "GetExitCodeThread", , 获取一个已中止线程的退出代码
    .参数 线程句柄, 整数型, , 想获取退出代码的一个线程的句柄
    .参数 退出代码, 整数型, 传址, 用于装载线程退出代码的一个长整数变量。如线程尚未中断，则设为常数STILL_ACTIVE;

.DLL命令 文本IP到整型, 整数型, "ws2_32.dll", "inet_addr"
    .参数 cp, 文本型

.DLL命令 整型IP到文本, 文本型, "ws2_32.dll", "inet_ntoa"
    .参数 in, 整数型

.DLL命令 InitializeCriticalSection, , "kernel32.dll", "InitializeCriticalSection", , 创建许可证
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 DeleteCriticalSection, , "kernel32.dll", "DeleteCriticalSection", , 删除许可证
    .参数 lpCriticalSection, 多线程许可证

.DLL命令 EnterCriticalSection, , "kernel32.dll", "EnterCriticalSection", , 进入许可区
    .参数 lpCriticalSection, 多线程许可证

.DLL命令 LeaveCriticalSection, , "kernel32.dll", "LeaveCriticalSection", , 退出许可区
    .参数 lpCriticalSection, 多线程许可证

.DLL命令 端口到短整数, 短整数型, "ws2_32.dll", "htons", 公开
    .参数 端口, 短整数型

.DLL命令 短整数到端口, 短整数型, "ws2_32.dll", "ntohs", 公开
    .参数 十六位网络端口, 短整数型

.DLL命令 RtlMoveMemory_读套接字地址, , "kernel32.dll", "RtlMoveMemory", 公开
    .参数 Destination, 套接字地址, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 RtlMoveMemory_写套接字地址, , "kernel32.dll", "RtlMoveMemory", 公开, 套接字地址
    .参数 目标数据, 整数型, , any
    .参数 原数据, 套接字地址, 传址, any
    .参数 尺寸, 整数型

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

.DLL命令 WSAWaitForMultipleEvents, 整数型, "ws2_32.dll", "WSAWaitForMultipleEvents"
    .参数 cEvents, 整数型
    .参数 lphEvents, 整数型, 数组
    .参数 fWaitAll, 逻辑型
    .参数 dwTimeout, 整数型
    .参数 fAlertable, 逻辑型

.DLL命令 整型IP到文本指针, 整数型, "ws2_32.dll", "inet_ntoa"
    .参数 in, 整数型