易语言基础学习笔记

1.7实战-后台绑定以及截图测试
.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 RegRet, 整数型

’ 大漠免注册
SetDllPathA (取运行目录 () ＋ “\dm.dll”, 0)

大漠.创建 ()
RegRet ＝ 大漠.Reg (#注册码, #附加码)
.如果真 (RegRet ≠ 1)
信息框 (“大漠注册失败” ＋ 到文本 (RegRet), 0, , )
返回 ()
.如果真结束
调试输出 (RegRet)

.子程序 __启动窗口_将被销毁

’ 大漠销毁
大漠.释放 ()

.子程序 _按钮_绑定_被单击
.局部变量 HWNDParentHwnd, 整数型
.局部变量 HWNDChildHwnd, 整数型
.局部变量 ret

HWNDParentHwnd ＝ 大漠.FindWindow (“LDPlayerMainFrame”, “”) ’ 顶层句柄
HWNDChildHwnd ＝ 大漠.FindWindowEx (HWNDParentHwnd, “RenderWindow”, “”) ’ 绑定句柄
.如果真 (HWNDParentHwnd ≠ 0 且 HWNDChildHwnd ≠ 0)

ret ＝ 大漠.BindWindow (HWNDChildHwnd, “gdi”, “windows”, “windows”, 0)
.如果真 (ret ＝ 0)
    信息框 (“绑定失败”, 0, , )
    返回 ()
.如果真结束
大漠.Capture (0, 0, 960, 540, 取运行目录 () ＋ “\” ＋ 到文本 (取现行时间 ()) ＋ “.bmp”)

.如果真结束

.子程序 _按钮_窗口截图_被单击

大漠.Capture (0, 0, 960, 540, 取运行目录 () ＋ “\” ＋ 到文本 (取现行时间 ()) ＋ “.bmp”)