易语言原始套接字应用源码

易语言原始套接字应用源码系统结构:显示信息,窗口消息处理,数据到达,异步通讯安装,异步通讯卸载,异步选择,异步处理,异步返回,UnHOOK,HOOKFunc,HOOKAPI,GetFunc,changefunc,CallFunc,数值_无符号_短整数,内存_填充字节集,Call,asm_CALLSub,ehook,uhook,New_Socket,WSAGetLastError,WSAIsBlocking,WSACleanup,send_字节集,recv,WSAStartup,htons,ntohs,socket,gethostname,getsockname,closesocket,connect,WSAAsyncSelect,文本IP到整型,WSACancelBlockingCall,整型IP到文本,bind,listen,accept_套接字地址,recvfrom,sendto,gethostbyname,getpeername,getpeername_in,CallWindowProcA,SetWindowLongA,CallWindowProcB,WSASocket,AcceptEx,GetWindowLongA,LocalAlloc,LocalFree,GetCurrentProcessId,GetProcAddress,ReadFile,GetModuleHandleA,SetHandleCount_字节集,RtlMoveMemory_写字节集,VirtualProtect,RtlMoveMemory_读套接字地址,RtlMoveMemory_写套接字地址,端口到短整数,短整数到端口,mem_Unsigned_short,lstrcpyn_短整数型,RtlMoveMemory_Read_Raw_UDP报头,RtlMoveMemory_Read_短整数型,RtlMoveMemory_Read_字节型, ======启动 || ||------_启动子程序 || || ======窗口程序集1 || ||------_窗口1_创建完毕 || ||------_窗口1_将被销毁 || ||------显示信息 || ||------_编辑框1_被双击 || ||------_按钮_Start_被单击 || ||------_按钮_Stop_被单击 || ||------窗口消息处理 || ||------数据到达 || || ======C_网络异步通讯 || ||------_初始化 || ||------_销毁 || ||------异步通讯安装 || ||------异步通讯卸载 || ||------异步选择 || ||------异步处理 || ||------异步返回 || || ======C_Hook || ||------_初始化 || ||------_销毁 || ||------UnHOOK || ||------HOOKFunc || ||------HOOKAPI || ||------GetFunc || ||------changefunc || ||------CallFunc || || ======程序集1 || ||------数值_无符号_短整数 || ||------内存_填充字节集 || ||------Call || ||------asm_CALLSub || || ======hook || ||------ehook || ||------uhook || ||------New_Socket || || ======调用的Dll || ||---[dll]------WSAGetLastError || ||---[dll]------WSAIsBlocking || ||---[dll]------WSACleanup || ||---[dll]------send_字节集 || ||---[dll]------recv || ||---[dll]------WSAStartup || ||---[dll]------htons || ||---[dll]------ntohs || ||---[dll]------socket || ||---[dll]------gethostname || ||---[dll]------getsockname || ||---[dll]------closesocket || ||---[dll]------connect || ||---[dll]------WSAAsyncSelect || ||---[dll]------文本IP到整型 || ||---[dll]------WSACancelBlockingCall || ||---[dll]------整型IP到文本 || ||---[dll]------bind || ||---[dll]------listen || ||---[dll]------accept_套接字地址 || ||---[dll]------recvfrom || ||---[dll]------sendto || ||---[dll]------gethostbyname || ||---[dll]------getpeername || ||---[dll]------getpeername_in || ||---[dll]------CallWindowProcA || ||---[dll]------SetWindowLongA || ||---[dll]------CallWindowProcB || ||---[dll]------WSASocket || ||---[dll]------AcceptEx || ||---[dll]------GetWindowLongA || ||---[dll]------LocalAlloc || ||---[dll]------LocalFree || ||---[dll]------GetCurrentProcessId || ||---[dll]------GetProcAddress || ||---[dll]------ReadFile || ||---[dll]------GetModuleHandleA || ||---[dll]------SetHandleCount_字节集 || ||---[dll]------RtlMoveMemory_写字节集 || ||---[dll]------VirtualProtect || ||---[dll]------RtlMoveMemory_读套接字地址 || ||---[dll]------RtlMoveMemory_写套接字地址 || ||---[dll]------端口到短整数 || ||---[dll]------短整数到端口 || ||---[dll]------mem_Unsigned_short || ||---[dll]------lstrcpyn_短整数型 || ||---[dll]------RtlMoveMemory_Read_Raw_UDP报头 || ||---[dll]------RtlMoveMemory_Read_短整数型 || ||---[dll]------RtlMoveMemory_Read_字节型 调用的DLL命令: .DLL命令WSAGetLastError,整数型,"ws2_32.dll","WSAGetLastError",公开,取最后错误_ .DLL命令WSAIsBlocking,整数型,"ws2_32.dll","WSAIsBlocking",公开,是否阻塞_ .DLL命令WSACleanup,整数型,"ws2_32.dll","WSACleanup",公开,卸载Winsocket服务 .DLL命令send_字节集,整数型,"ws2_32.dll","send",,发送数据_(TCP，当这次发送数据未发送完时返回剩余字节数) .参数网络通讯标识符,整数型,,s .参数缓冲区,字节集,传址,buf .参数缓冲区长度,整数型,,lLen .参数标志,整数型,,flags .DLL命令recv,整数型,"ws2_32.dll","recv",,接收字节集数据(TCP，当数据这次未接收完时返回剩余字节数) .参数网络通讯标识符,整数型,,s .参数缓冲区,字节集,传址,buf数据(提供变量) .参数缓冲区长度,整数型,,lLen .参数标志,整数型,,flags .DLL命令WSAStartup,整数型,"ws2_32.dll","WSAStartup",,初始化WnSocket服务 .参数必需版本,整数型,,wVersionRequired .参数服务信息,套接字信息,,lpWSAData .DLL命令htons,短整数型,"ws2_32.dll","htons",,转换为network排列方式的数目 .参数十六位主机命令,短整数型,,hostshort端口号 .DLL命令ntohs,短整数型,"ws2_32.dll","ntohs",,转换为端口号-网络转换到本机 .参数十六位网络端口,短整数型,,netshort欲转换值 .DLL命令socket,整数型,"ws2_32.dll","socket",,创建套接字 .参数协议族,整数型,,af使用的通信协议的协议族 .参数类型,整数型,,lType流套接字类型 .参数协议,整数型,,protocol使用的通信协议 .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命令closesocket,整数型,"ws2_32.dll","closesocket",,销毁套接字 .参数套接字描述符,整数型 .DLL命令connect,整数型,"ws2_32.dll","connect",,连接到服务器(TCP) .参数网络通讯标识符,整数型,,s .参数名称结构,套接字地址,,addr .参数名称结构长度,整数型,,namelen(16) .DLL命令WSAAsyncSelect,整数型,"ws2_32.dll","WSAAsyncSelect",,异步选择_本函数自动将套接口设置为非阻塞模式0表明是成功的 .参数网络通讯标识符,整数型,,s标识一个需要事件通知的套接口的描述符 .参数窗口句柄,整数型,,hWnd标识一个在网络事件发生时需要接收消息的窗口句柄 .参数消息值,整数型,,wMsg在网络事件发生时要接收的消息 .参数事件,整数型,,lEvent位屏蔽码,用于指明应用程序感兴趣的网络事件集合. .DLL命令文本IP到整型,整数型,"ws2_32.dll","inet_addr",,点数格式转换为整数格式IP地址-到网络地址_ .参数IP地址,文本型,,cp欲被转换的IP地址 .DLL命令WSACancelBlockingCall,整数型,"ws2_32.dll","WSACancelBlockingCall",,取消阻塞_ .DLL命令整型IP到文本,文本型,"ws2_32.dll","inet_ntoa",,将整数格式IP地址转换为点数格式（返回值是内存地址指针） .参数网络地址,整数型,,lIn欲转换整数格式IP地址 .DLL命令bind,整数型,"ws2_32.dll","bind",,绑定一个地址和端口 .参数套接字描述符,整数型 .参数地址结构,套接字地址,传址,地址信息 .参数结构大小,整数型,,地址信息长度(长度16 .DLL命令listen,整数型,"ws2_32.dll","listen",,监听 .参数sockfd,整数型,,套接字描述符 .参数backlog,整数型,,最多容纳客户请求数 .DLL命令accept_套接字地址,整数型,"ws2_32.dll","accept",,等待用户进入并接受连接 .参数s,整数型,,套接字描述符 .参数addr,套接字地址,传址,地址信息 .参数addrlen,整数型,传址,地址信息长度（长度为16） .DLL命令recvfrom,整数型,"ws2_32.dll","recvfrom",,接收数据(UDP) .参数s,整数型,,套接字描述符 .参数buf,字节集,传址,数据(提供变量) .参数len,整数型,,数据长度 .参数flags,整数型,,0 .参数from,套接字地址,传址,来源地址信息(提供变量) .参数fromlen,整数型,传址,地址信息长度(提供变量) .DLL命令sendto,整数型,"ws2_32.dll","sendto",,发送数据(UDP) .参数s,整数型,,套接字描述符 .参数buf,字节集,传址,数据 .参数len,整数型,,数据长度 .参数flags,整数型,,0 .参数to,套接字地址,传址,目标地址信息 .参数tolen,整数型,,地址信息长度 .DLL命令gethostbyname,整数型,"ws2_32.dll","gethostbyname",,成功返回内存指针 .参数name,文本型,传址,机器名称 .DLL命令getpeername,整数型,"ws2_32.dll","getpeername",,获取远端信息（已连接对方IP和端口）。成功返回0 .参数s,整数型,,句柄 .参数name,套接字地址,传址,地址信息 .参数namelen,整数型,传址,name长度,Sockaddr_in长度为16 .DLL命令getpeername_in,整数型,"ws2_32.dll","getpeername" .参数s,整数型,,句柄 .参数name,整数型,传址,地址信息 .参数namelen,整数型,传址,name长度,Sockaddr_in长度为16 .DLL命令CallWindowProcA,整数型,"user32.dll","CallWindowProcA",,CallWindowProcA将消息传答窗口函数　 .参数前一窗口函数地址,整数型,,lpPrevWndFunc .参数窗口句柄,整数型,,hwnd .参数消息值,整数型,,msg .参数附加参数1,整数型,,wParam .参数附加参数2,整数型,,lParam .DLL命令SetWindowLongA,整数型,"user32.dll","SetWindowLongA",,在窗口结构中为指定的窗口设置信息指定数据的前一个值 .参数窗口句柄,整数型,,hwnd，欲为其取得信息的窗口的句柄 .参数窗口信息值,整数型,,nIndex，请参考GetWindowLong函数的nIndex参数的说明 .参数窗口信息新值,整数型,,dwNewLong，由nIndex指定的窗口信息的新值 .DLL命令CallWindowProcB,整数型,"user32.dll","CallWindowProcA",公开 .参数动态调用代码,字节集,,一定要用本人编写的 .参数子程序,子程序指针,,子程序指针 .参数参数,整数型,数组,为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针 .参数参数数目,整数型,,一定要和参数数组相符，不然会出错 .参数是否C调用,逻辑型,,真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式） .DLL命令WSASocket,整数型,"Ws2_32.dll","WSASocketA",公开 .参数af,整数型 .参数type,整数型 .参数protocol,整数型 .参数lpProtocolInfo,整数型 .参数g,整数型 .参数dwFlags,整数型 .DLL命令AcceptEx,逻辑型,"mswsock.dll","AcceptEx" .参数sListenSocket,整数型 .参数sAcceptSocket,整数型 .参数lpOutputBuffer,整数型 .参数dwReceiveDataLength,整数型 .参数dwLocalAddressLength,整数型 .参数dwRemoteAddressLength,整数型 .参数lpdwBytesReceived,整数型,传址 .参数lpOverlapped,整数型 .DLL命令GetWindowLongA,整数型,"user32.dll","GetWindowLongA",公开,GetWindowLongA从指定窗口的结构中取得信息由nIndex决定。零表示出错。会设置GetLastError .参数窗口句柄,整数型,,欲为其获取信息的窗口的句柄 .参数属性,整数型,,欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定; .DLL命令LocalAlloc,整数型,"kernel32.dll","LocalAlloc",公开 .参数uFlags,整数型 .参数uBytes,整数型 .DLL命令LocalFree,整数型,"kernel32.dll","LocalFree",公开 .参数hMem,整数型 .DLL命令GetCurrentProcessId,整数型,"kernel32.dll","GetCurrentProcessId" .DLL命令GetProcAddress,整数型,"kernel32.dll","GetProcAddress",,,GetProcAddress如果GetProcAddress执行成功，则返回模块中函数入口处的地址，否则返回nil。 .参数模块句柄,整数型,,hModule .参数函数名称,文本型,,lpProcName .DLL命令ReadFile,逻辑型,"kernel32.dll","ReadFile" .参数文件号,整数型,,in,hFile,文件的句柄 .参数读入缓冲区,字节集,传址,out,lpBuffer,用于保存读入数据的一个缓冲区 .参数读取尺寸,整数型,,in,nNumberOfBytesToRead,要读入的字符数 .参数实际尺寸,整数型,传址,out,lpNumberOfBytesRead,从文件中实际读入的字符数 .参数参数,整数型,,这里只in不out,否则可能会出错.inout,0,lpOverlapped .DLL命令GetModuleHandleA,整数型,"kernel32.dll","GetModuleHandleA",公开,GetModuleHandleA获取一个应用程序或动态链接库的模块句柄如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError .参数模块名,文本型,,指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;user32.dll .DLL命令SetHandleCount_字节集,整数型,"kernel32.dll","SetHandleCount",公开 .参数字节集,字节集 .DLL命令RtlMoveMemory_写字节集,整数型,"kernel32.dll","RtlMoveMemory",公开 .参数目标数据,整数型,,any .参数原数据,字节集,,any .参数尺寸,整数型 .DLL命令VirtualProtect,逻辑型,"kernel32.dll","VirtualProtect",公开,置虚拟保护,成功返回非0，失败返回0 .参数起始地址,整数型,,lpAddress .参数长度,整数型,,dwSize .参数新保护权限,整数型,,可读写权限(PAGE_READWRITE)=4 .参数旧保护权限,整数型,传址,保存旧属性的结构变量地址 .DLL命令RtlMoveMemory_读套接字地址,,"kernel32.dll","RtlMoveMemory",公开 .参数Destination,套接字地址,传址 .参数Source,整数型 .参数Length,整数型 .DLL命令RtlMoveMemory_写套接字地址,,"kernel32.dll","RtlMoveMemory",公开,套接字地址 .参数目标数据,整数型,,any .参数原数据,套接字地址,传址,any .参数尺寸,整数型 .DLL命令端口到短整数,短整数型,"ws2_32.dll","htons",公开 .参数端口,短整数型 .DLL命令短整数到端口,短整数型,"ws2_32.dll","ntohs",公开 .参数十六位网络端口,短整数型 .DLL命令mem_Unsigned_short,,"kernel32.dll","RtlMoveMemory",公开 .参数目标数据,整数型,传址 .参数原数据,整数型 .参数尺寸,整数型,,2 .DLL命令lstrcpyn_短整数型,整数型,"kernel32.dll","lstrcpyn",公开 .参数欲取其指针,短整数型,传址 .参数欲取其指针,短整数型 .参数保留,整数型,,0 .DLL命令RtlMoveMemory_Read_Raw_UDP报头,,"kernel32.dll","RtlMoveMemory",公开 .参数Destination,Raw_UDP报头,传址 .参数Source,整数型 .参数Length,整数型,,8 .DLL命令RtlMoveMemory_Read_短整数型,,"kernel32.dll","RtlMoveMemory",公开 .参数Destination,短整数型,传址 .参数Source,整数型 .参数Length,整数型,,2 .DLL命令RtlMoveMemory_Read_字节型,,"kernel32.dll","RtlMoveMemory",公开 .参数目标数据,字节型,传址 .参数原数据,整数型 .参数尺寸,整数型