易语言专用支持库信息查看器

.如果 (到小写 (取文本右边 (接收到的文件路径, 4)) ＝ “.fne”)
控制台_置标输出颜色 (2, )
标准输出 (, “正在获取支持库信息。。。” ＋ #换行符)
获取支持库信息 (接收到的文件路径)
.否则
控制台_置标输出颜色 (4, )
标准输出 (, “此文件不是支持库” ＋ #换行符)

.子程序 获取支持库信息
.参数 路径, 文本型
.局部变量 接口地址, 整数型, , , 此变量位置不可变换
.局部变量 返回值, 支持库信息, , , 此变量位置不可变换
.局部变量 模块句柄, 整数型

模块句柄 ＝ _LoadLibraryA (路径)
.如果真 (模块句柄 ＝ 0)
控制台_置标输出颜色 (4, )
标准输出 (, “不是有效的支持库文件” ＋ #换行符)
返回 ()
.如果真结束
接口地址 ＝ _GetProcAddress (模块句柄, “GetNewInf”)
.如果真 (接口地址 ＝ 0)
控制台_置标输出颜色 (4, )
标准输出 (, “找不到GetNewInf函数的地址” ＋ #换行符)
返回 ()
.如果真结束
置入代码 ({ 255, 149, 248, 255, 255, 255 }) ' call [ebp-8]
置入代码 ({ 137, 133, 244, 255, 255, 255 }) ' mov [ebp-0c],eax