开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

123
返回列表 发新帖
收起左侧

[易语言纯源码] 美团那哥们提供的代码,我重新这样发一遍比较清晰

[复制链接]
头像被屏蔽
结帖率:46% (6/13)
发表于 2019-7-5 05:21:37 | 显示全部楼层   陕西省西安市
支持一下      
回复 支持 反对

使用道具 举报

结帖率:100% (4/4)
发表于 2019-7-5 00:37:19 | 显示全部楼层   河北省邯郸市
美团是个神秘的团队
回复 支持 反对

使用道具 举报

结帖率:97% (32/33)
 楼主| 发表于 2019-7-5 00:17:53 | 显示全部楼层   山西省运城市
  
窗口程序集名保 留  保 留备 注
测试程序集   
变量名类 型数组备 注
aaaaa文本型  
bbbbb整数型9 

子程序名返回值类型公开备 注
编码文本型 BASE64编码处理(返回编码后的文本)
参数名类 型参考可空数组备 注
待编码数据字节集待编码字节集
变量名类 型静态数组备 注
余数  
临时字节型3
变量  
集合字节集 
长度整数型 
字符字节集 
i  
长度 = 取字节集长度 (待编码数据)
如果真 (长度 < 1)
返回 (“”)
余数 = 长度 % 3
如果真 (余数 > 0)
待编码数据 = 待编码数据 + 取空白字节集 (3 - 余数)
长度 = 取字节集长度 (待编码数据)
字符 = 取空白字节集 (长度 × 4 ÷ 3)
i = 1
集合 = 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
变量循环首 (1, 长度, 3, 变量)
临时 [1] = 待编码数据 [变量]
临时 [2] = 待编码数据 [变量 + 1]
临时 [3] = 待编码数据 [变量 + 2]
字符 [i] = 集合 [右移 (临时 [1], 2) + 1]
字符 [i + 1] = 集合 [左移 (位与 (临时 [1], 3), 4)右移 (临时 [2], 4) + 1]
字符 [i + 2] = 集合 [左移 (位与 (临时 [2], 15), 2)右移 (临时 [3], 6) + 1]
字符 [i + 3] = 集合 [位与 (临时 [3], 63) + 1]
i = i + 4
变量循环尾 ()
如果真 (余数 > 0)
长度 = 取字节集长度 (字符)
如果 (余数 = 1)
字符 [长度 - 1]取代码 (“=”, )
字符 [长度]取代码 (“=”, )
字符 [长度]取代码 (“=”, )

返回 (到文本 (字符))
子程序名返回值类型公开备 注
解码字节集 BASE64解码处理(返回解码后的字节集数据)
参数名类 型参考可空数组备 注
编码文本文本型待解码的文本
变量名类 型静态数组备 注
文本长度  
整倍数  
三字节组字节型3
四字节组字节型4
编码值  
X  
n  
二进制数据字节集 
编码文本 = 删全部空 (编码文本)
编码文本 = 子文本替换 (编码文本, #换行符, , , , )
文本长度 = 取文本长度 (编码文本)
整倍数 = 文本长度 \ 4
如果真 (文本长度 % 4 ≠ 0)
整倍数 = 整倍数 + 1
计次循环首 (整倍数, X)
计次循环首 (4, n)
四字节组 [n]取代码 (编码文本, (X - 1) × 4 + n)
编码值 = 寻找文本 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 字符 (四字节组 [n]), , )
如果真 (编码值 = -1)
跳出循环 ()
四字节组 [n] = 编码值 - 1
计次循环尾 ()
三字节组 [1]位或 (四字节组 [1] × 4, 四字节组 [2] ÷ 16)
三字节组 [2]位或 (四字节组 [2] × 16, 四字节组 [3] ÷ 4)
三字节组 [3]位或 (四字节组 [3] × 64, 四字节组 [4])
二进制数据 = 二进制数据 + 到字节集 (三字节组)
处理事件 ()
计次循环尾 ()
如果真 (n < 5)  ' 最后一组4字符是提前退出的,截取字节集
n = 5 - n
二进制数据 = 取字节集左边 (二进制数据, 取字节集长度 (二进制数据) - n)
返回 (二进制数据).版本 2
DLL命令名返回值类型公开备 注
清除图标_整数型 清除图标
DLL库文件名:
user32.dll
在DLL库中对应命令名:
DestroyIcon
参数名类 型传址数组备 注
图标句柄整数型hIcon,图标句柄
DLL命令名返回值类型公开备 注
设置字符间距_整数型 
DLL库文件名:
gdi32
在DLL库中对应命令名:
SetTextCharacterExtra
参数名类 型传址数组备 注
设备场景整数型
间距整数型
DLL命令名返回值类型公开备 注
指定画笔位置_整数型 
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
MoveToEx
参数名类 型传址数组备 注
设备场景整数型hdc,指向一个设备场景的句柄
横坐标整数型x,采用逻辑坐标表示的新画笔位置
纵坐标整数型y,采用逻辑坐标表示的新画笔位置
画笔位置坐标_lpPoint,用于保存前一个画笔位置
DLL命令名返回值类型公开备 注
载入图象_整数型 载入一个位图、图标或指针
DLL库文件名:
user32.dll
在DLL库中对应命令名:
LoadImageA
参数名类 型传址数组备 注
实例句柄整数型hInst,要从其中载入图象的DLL或应用程序模块或实例句柄
图象标志符文本型lpsz,欲载入图象的名字
图象类型整数型un1,指定了欲载入的图象类型
图象宽度整数型n1,要求的图象宽度
图象高度整数型n2,要求的图象高度
常数组合整数型un2,常数的任意组合
DLL命令名返回值类型公开备 注
结束路径分支_整数型 停止定义一个路径
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
EndPath
参数名类 型传址数组备 注
设备场景句柄整数型hdc,设备场景句柄
DLL命令名返回值类型公开备 注
创建画笔扩展_整数型 
DLL库文件名:
gdi32
在DLL库中对应命令名:
ExtCreatePen
参数名类 型传址数组备 注
笔风格整数型
笔尖宽度整数型
笔刷定义结构刷子结构_
自定义段数整数型
自定义线整数型
DLL命令名返回值类型公开备 注
取窗口全部设备场景_整数型 
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetWindowDC
参数名类 型传址数组备 注
窗口句柄整数型
DLL命令名返回值类型公开备 注
取标题文本长度_整数型 
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetWindowTextLengthA
参数名类 型传址数组备 注
窗口句柄整数型
DLL命令名返回值类型公开备 注
释放缓冲区指针_整数型 
DLL库文件名:
netapi32.dll
在DLL库中对应命令名:
NetApiBufferFree
参数名类 型传址数组备 注
缓冲区指针整数型Buffer
DLL命令名返回值类型公开备 注
取混音设备数量_整数型 获取当前混合设备数量
DLL库文件名:
winmm.dll
在DLL库中对应命令名:
mixerGetNumDevs
参数名类 型传址数组备 注
DLL命令名返回值类型公开备 注
增加声音输入设备缓冲区_逻辑型 
DLL库文件名:
winmm.dll
在DLL库中对应命令名:
waveInAddBuffer
参数名类 型传址数组备 注
波形设备句柄整数型hWaveIn
声音输入设备头结构波形数据块_lpWaveInHdr
结构长度整数型uSize
DLL命令名返回值类型公开备 注
读Internet文件_整数型 InternetReadFile*
DLL库文件名:
wininet.dll
在DLL库中对应命令名:
InternetReadFile
参数名类 型传址数组备 注
Internet地址句柄整数型hFile
数据缓冲区文本型sBuffer
读取大小整数型lNumBytesToRead
读取首地址整数型lNumberOfBytesRead
DLL命令名返回值类型公开备 注
取设备灰度斜坡_整数型 获取显示器的辉度系数
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
GetDeviceGammaRamp
参数名类 型传址数组备 注
设备场景句柄整数型hdc
结构缓冲区地址短整数型lpv
DLL命令名返回值类型公开备 注
置颜色调节器_整数型 调整颜色
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
SetColorAdjustment
参数名类 型传址数组备 注
设备场景句柄整数型hdc
颜色调节器结构颜色调节器_lpca
常量名称常量值公 开备 注
cc“啊啊啊啊”啊啊
dd45767 啊啊
数据类型名公开备 注
窗口位置 
成员名类 型传址数组备 注
左边整数型  
顶边整数型  
宽度整数型  
高度整数型  



i支持库列表   支持库注释   
BmpOperate位图操作支持库
EdirectXDirectX支持库
Test(未知支持库)

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表