易语言邮件收取类模块源码 [db:版本]

易语言邮件收取类模块源码

系统结构:子程序_查找指定文本位置,子程序_普通收取测试,断开连接,连接POP邮箱,登录邮箱,取邮件总数,收取指定邮件,子程序_查找指定文本位置,内部_发送数据,Ptr_Bin,内部_读取数据,设置证书文件,LoadCRTFile,Ptr_Str,cdeclCall,ProcAddr,连接POP邮箱,登录邮箱,内部_发送数据,内部_读取数据,取邮件总数,收取指定邮件,断开连接,SSL_library_init,WSAStartup,TLSv1_client_method,lstrcpynA_str,CallWindowProc,GetModuleHandle,GetProcAddress,socket,htons,inet_addr,Connect,GlobalAlloc,GlobalFree,CopyToPtr_FromPtr,GlobalSize,lstrcpynA_Bin,WSACleanup,recv,Send,select,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 子程序_查找指定文本位置
| |
| |------ 子程序_普通收取测试
| |
| |
======类_SSL模式收取
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 断开连接
| |
| |------ 连接POP邮箱
| |
| |------ 登录邮箱
| |
| |------ 取邮件总数
| |
| |------ 收取指定邮件
| |
| |------ 子程序_查找指定文本位置
| |
| |------ 内部_发送数据
| |
| |------ Ptr_Bin
| |
| |------ 内部_读取数据
| |
| |------ 设置证书文件
| |
| |------ LoadCRTFile
| |
| |------ Ptr_Str
| |
| |------ cdeclCall
| |
| |------ ProcAddr
| |
| |
======类_普通模式收取
| |
| |------ _初始化
| |
| |------ 连接POP邮箱
| |
| |------ 登录邮箱
| |
| |------ 内部_发送数据
| |
| |------ 内部_读取数据
| |
| |------ 取邮件总数
| |
| |------ _销毁
| |
| |------ 收取指定邮件
| |
| |------ 断开连接
| |
| |
======调用的Dll
| |
| |---[dll]------ SSL_library_init
| |
| |---[dll]------ WSAStartup
| |
| |---[dll]------ TLSv1_client_method
| |
| |---[dll]------ lstrcpynA_str
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ GetModuleHandle
| |
| |---[dll]------ GetProcAddress
| |
| |---[dll]------ socket
| |
| |---[dll]------ htons
| |
| |---[dll]------ inet_addr
| |
| |---[dll]------ Connect
| |
| |---[dll]------ GlobalAlloc
| |
| |---[dll]------ GlobalFree
| |
| |---[dll]------ CopyToPtr_FromPtr
| |
| |---[dll]------ GlobalSize
| |
| |---[dll]------ lstrcpynA_Bin
| |
| |---[dll]------ _WSACleanup
| |
| |---[dll]------ _shutdown
| |
| |---[dll]------ _closesocket
| |
| |---[dll]------ WSACleanup
| |
| |---[dll]------ recv
| |
| |---[dll]------ Send
| |
| |---[dll]------ select

调用的DLL命令:

.DLL命令 SSL_library_init, 整数型, "ssleay32.dll", "SSL_library_init"

.DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup", , 初始化WnSocket服务
.参数 wVR, 整数型, , socket版本
.参数 lpWSAD, WSADataType, 传址, 服务信息

.DLL命令 TLSv1_client_method, 整数型, "ssleay32.dll", "TLSv1_client_method"

.DLL命令 lstrcpynA_str, 整数型, , "lstrcpynA"
.参数 ptr1, 文本型
.参数 ptr2, 文本型
.参数 len

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA", , 将消息信息传送给指定的窗口过程
.参数 Proc, 字节集
.参数 参数1
.参数 参数2
.参数 参数3
.参数 参数4

.DLL命令 GetModuleHandle, 整数型, , "GetModuleHandleA", , 获取模块句柄
.参数 lpModuleName, 文本型

.DLL命令 GetProcAddress, 整数型, , "GetProcAddress", , 检索指定的动态链接库(DLL)中的输出库函数地址【返回输出库地址】
.参数 hModule, 整数型
.参数 lpProcName, 文本型

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

.DLL命令 htons, 整数型, "ws2_32.dll", "htons", , 转换为network 排列方式的数目【转换为大尾模式】
.参数 hostshort, 整数型, , 端口号

.DLL命令 inet_addr, 整数型, "ws2_32.dll", "inet_addr", , 点数格式转换为整数格式IP地址
.参数 cp, 文本型, , 欲被转换的IP地址

.DLL命令 Connect, 整数型, "ws2_32.dll", "connect", , 连接到服务器(TCP)
.参数 s, 整数型, , 套接字描述符
.参数 addr, sockaddr_in, 传址, 地址信息
.参数 namelen, 整数型, , 地址信息长度

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
.参数 wFlags, 整数型
.参数 dwBytes, 整数型

.DLL命令 GlobalFree, 整数型, , "GlobalFree"
.参数 hMem, 整数型

.DLL命令 CopyToPtr_FromPtr, , , "RtlMoveMemory"
.参数 pDest, 整数型
.参数 pSrc, 整数型
.参数 ByteLen, 整数型

.DLL命令 GlobalSize, 整数型, , "GlobalSize"
.参数 Ptr

.DLL命令 lstrcpynA_Bin, 整数型, , "lstrcpynA"
.参数 ptr1, 字节集
.参数 ptr2, 字节集
.参数 len

.DLL命令 _WSACleanup, 整数型, "ws2_32.dll", "WSACleanup"

.DLL命令 _shutdown, 整数型, "ws2_32.dll", "shutdown"
.参数 s, 整数型
.参数 how, 整数型

.DLL命令 _closesocket, 整数型, "ws2_32.dll", "closesocket"
.参数 s, 整数型

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

.DLL命令 recv, 整数型, "ws2_32.dll", "recv", , 接收数据(TCP，当数据这次未接收完时返回剩余字节数)
.参数 s, 整数型, , 套接字描述符
.参数 buf, 字节集, 传址, 数据(提供变量)
.参数 buflen, 整数型, , 数据长度
.参数 flags, 整数型, , 0

.DLL命令 Send, 整数型, "ws2_32.dll", "send", , 发送数据(TCP，当这次发送数据未发送完时返回剩余字节数)
.参数 s, 整数型, , 套接字描述符
.参数 buf, 字节集, 传址, 欲发送的数据
.参数 buflen, 整数型, , 欲发送数据长度
.参数 flags, 整数型, , 0

.DLL命令 select, 整数型, "ws2_32.dll", "select"
.参数 nfds, 整数型
.参数 readfds, fd_set, 传址, 指向一组等待可读性检查的套接口
.参数 writefds, fd_set, 传址, 指向一组等待可写性检查的套接口
.参数 exceptfds, fd_set, 传址, 指向一组等待错误检查的套接口
.参数 timeout, 整数型, 传址