易语言论坛打卡源码

系统结构:加密用户,解密用户,加入用户组,彗星HTTP读文件,取端口,取域名,取页面地址,验证识别,裁剪位图,识别验证码,转换图像格式,A2W,处理_取有效颜色,处理_坐标画图,识别_取特征码,识别_取字符,InternetOpen,InternetConnect,InternetCloseHandle,HttpOpenRequest,HttpSendRequest,InternetReadFile,HttpQueryInfo,InternetSetCookie,GdiplusStartup,CLSIDFromString,GlobalAlloc,CreateStreamOnHGlobal,GlobalLock,GlobalUnlock,GetObjectPtr,GdipCreateBitmapFromStream,GetHGlobalFromStream_int,GdipSaveImageToStream_int,GlobalSize,CopyMemory,GdipDisposeImage,GlobalFree,GdiplusShutdown,MultiByteToWideChar,

======窗口启动程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 加密用户
           |  |
           |  |------ 解密用户
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 加入用户组
           |  |
           |  |------ _组合框1_列表项被选择
           |  |
           |  |
======彗星HTTP程序集
           |  |
           |  |------ 彗星HTTP读文件
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取域名
           |  |
           |  |------ 取页面地址
           |  |
           |  |
======验证识别程序集
           |  |
           |  |------ 验证识别
           |  |
           |  |------ 裁剪位图
           |  |
           |  |------ 识别验证码
           |  |
           |  |------ 转换图像格式
           |  |
           |  |------ A2W
           |  |
           |  |------ 处理_取有效颜色
           |  |
           |  |------ 处理_坐标画图
           |  |
           |  |------ 识别_取特征码
           |  |
           |  |------ 识别_取字符
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetOpen
           |  |
           |  |---[dll]------   InternetConnect
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   HttpOpenRequest
           |  |
           |  |---[dll]------   HttpSendRequest
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   HttpQueryInfo
           |  |
           |  |---[dll]------   InternetSetCookie
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   GetObjectPtr
           |  |
           |  |---[dll]------   GdipCreateBitmapFromStream
           |  |
           |  |---[dll]------   GetHGlobalFromStream_int
           |  |
           |  |---[dll]------   GdipSaveImageToStream_int
           |  |
           |  |---[dll]------   GlobalSize
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   GdiplusShutdown
           |  |
           |  |---[dll]------   MultiByteToWideChar

调用的DLL命令:

.DLL命令 InternetOpen, 整数型, "wininet.dll", "InternetOpenA"
    .参数 句柄名称, 文本型, 传址
    .参数 连接类型, 整数型, , 1直接连接;3代理连接
    .参数 代理, 文本型, 传址
    .参数 代理掩码, 文本型, 传址
    .参数 dwFlags, 整数型, , 0

.DLL命令 InternetConnect, 整数型, "wininet.dll", "InternetConnectA"
    .参数 Internet句柄, 整数型
    .参数 域名, 文本型, 传址
    .参数 服务器端口, 整数型, , 80HTTP;21FTP;
    .参数 用户名, 文本型, 传址, 空
    .参数 用户口令, 文本型, 传址, 空
    .参数 服务类型, 整数型, , 1FTP;3HTTP
    .参数 dwFlags, 整数型, , 0http;134217728被动FTP模式
    .参数 dwContext, 整数型, , 0

.DLL命令 InternetCloseHandle, 逻辑型, "wininet.dll", "InternetCloseHandle", , 访问网页
    .参数 hInternet, 整数型

.DLL命令 HttpOpenRequest, 整数型, "WinINet.dll", "HttpOpenRequestA"
    .参数 hConnect, 整数型
    .参数 lpszVerb, 文本型
    .参数 lpszObjectName, 文本型
    .参数 lpszVersion, 文本型
    .参数 lpszReferer, 文本型
    .参数 lplpszAcceptTypes, 文本型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpSendRequest, 逻辑型, "wininet.dll", "HttpSendRequestA"
    .参数 HTTP请求句柄, 整数型
    .参数 sHeaders, 文本型, 传址
    .参数 lHeadersLength, 整数型
    .参数 sOptional, 文本型, 传址
    .参数 lOptionalLength, 整数型

.DLL命令 InternetReadFile, 逻辑型, "WinINet.dll"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 dwNumberOfBytesToRead, 整数型
    .参数 lpdwNumberOfBytesRead, 整数型, 传址

.DLL命令 HttpQueryInfo, , "wininet.dll", "HttpQueryInfoA"
    .参数 Internet请求句柄, 整数型
    .参数 待查信息, 整数型, , 22返回所有信息;43SET_COOKIE;+2147483648返回文本
    .参数 返回容器, 文本型, 传址
    .参数 返回容器长度, 整数型, 传址
    .参数 lpdwIndex, 整数型

.DLL命令 InternetSetCookie, , "wininet.dll", "InternetSetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址

.DLL命令 GdiplusStartup, 整数型, "gdiplus.dll", "GdiplusStartup"
    .参数 token, 整数型, 传址
    .参数 inputbuf, GdiplusStartupInput
    .参数 outputbuf, 整数型

.DLL命令 CLSIDFromString, , "ole32.dll", "CLSIDFromString"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

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

.DLL命令 CreateStreamOnHGlobal, 整数型, "ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal
    .参数 fDeleteOnRelease, 逻辑型
    .参数 ppstm, 对象, 传址

.DLL命令 GlobalLock, 整数型
    .参数 hMem, 整数型

.DLL命令 GlobalUnlock, 逻辑型
    .参数 hMem, 整数型

.DLL命令 GetObjectPtr, 整数型, , "lstrcpyn"
    .参数 lpString1, 对象, 传址
    .参数 lpString2, 对象, 传址
    .参数 iMaxLength, 整数型

.DLL命令 GdipCreateBitmapFromStream, 整数型, "gdiplus.dll", "GdipCreateBitmapFromStream"
    .参数 stream, 整数型
    .参数 bitmap, , 传址

.DLL命令 GetHGlobalFromStream_int, , "ole32.dll", "GetHGlobalFromStream"
    .参数 pstm, , , 未知类型：ISTREAM。
    .参数 phglobal, 整数型, 传址

.DLL命令 GdipSaveImageToStream_int, 整数型, "gdiplus.dll", "GdipSaveImageToStream"
    .参数 image
    .参数 stream
    .参数 clsidEncoder, 字节集
    .参数 encoderParams

.DLL命令 GlobalSize, 整数型
    .参数 hMem, 整数型

.DLL命令 CopyMemory, , , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, 整数型
    .参数 cbCopy, 整数型

.DLL命令 GdipDisposeImage, 整数型, "gdiplus.dll", "GdipDisposeImage"
    .参数 image, 整数型

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

.DLL命令 GdiplusShutdown, , "gdiplus.dll", "GdiplusShutdown"
    .参数 token, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型