精易模块→窗口_手动截图,窗口_选取区域 纯源码

果子

截图dll.zip (25.79 KB, 下载次数: 538)

2011-10-9 23:48 上传

点击文件名下载附件

果子

附上调用方式

[e].版本 2

.DLL命令 JT, , , "JT"
    .参数 是否截取鼠标, 逻辑型
    .参数 调节框颜色, 整数型
    .参数 信息边框颜色, 整数型
    .参数 信息字体颜色, 整数型

.DLL命令 选取区域, 逻辑型, , "JT"
    .参数 调节框颜色, 整数型
    .参数 信息边框颜色, 整数型
    .参数 信息字体颜色, 整数型
    .参数 参_左边, 整数型, 传址
    .参数 参_顶边, 整数型, 传址
    .参数 参_宽度, 整数型, 传址
    .参数 参_高度, 整数型, 传址

.数据类型 精易_区域, 公开
    .成员 左边, 整数型
    .成员 顶边, 整数型
    .成员 宽度, 整数型
    .成员 高度, 整数型


.子程序 窗口_手动截图, , 公开
.参数 是否截取鼠标, 逻辑型, 可空, 默认为：假,不截取鼠标
.参数 调节框颜色, 整数型, 可空, 默认为：天蓝
.参数 信息边框颜色, 整数型, 可空, 默认为：红色
.参数 信息字体颜色, 整数型, 可空, 默认为：红色
.局部变量 局_文件名, 文本型

局_文件名 ＝ “C:\Program Files\手动截图.dll”
.如果真 (取文件尺寸 (局_文件名) ≠ 取字节集长度 (#JT))
    写到文件 (局_文件名, #JT)
.如果真结束
调节框颜色 ＝ 选择 (是否为空 (调节框颜色) ＝ 假, 调节框颜色, #天蓝)
信息边框颜色 ＝ 选择 (是否为空 (信息边框颜色) ＝ 假, 信息边框颜色, #红色)
信息字体颜色 ＝ 选择 (是否为空 (信息字体颜色) ＝ 假, 信息字体颜色, #红色)
DLL命令调用转向 (局_文件名, “JT”)
JT (是否截取鼠标, 调节框颜色, 信息边框颜色, 信息字体颜色)
DLL命令调用转向 (, )

.子程序 窗口_选取区域, 精易_区域, 公开, 精易_区域
.参数 调节框颜色, 整数型, 可空
.参数 信息边框颜色, 整数型, 可空
.参数 信息字体颜色, 整数型, 可空
.局部变量 精易_区域, 精易_区域
.局部变量 局_文件名, 文本型

局_文件名 ＝ “C:\Program Files\手动截图.dll”
.如果真 (取文件尺寸 (局_文件名) ≠ 取字节集长度 (#JT))
    写到文件 (局_文件名, #JT)
.如果真结束
调节框颜色 ＝ 选择 (是否为空 (调节框颜色) ＝ 假, 调节框颜色, #天蓝)
信息边框颜色 ＝ 选择 (是否为空 (信息边框颜色) ＝ 假, 信息边框颜色, #红色)
信息字体颜色 ＝ 选择 (是否为空 (信息字体颜色) ＝ 假, 信息字体颜色, #红色)
DLL命令调用转向 (局_文件名, “选取区域”)
选取区域 (调节框颜色, 信息边框颜色, 信息字体颜色, 精易_区域.左边, 精易_区域.顶边, 精易_区域.宽度, 精易_区域.高度)
DLL命令调用转向 (, )
返回 (精易_区域)
[/e]

ridiot

学习了....

Cand

果子这个是打算把精易模块公开么？

果子

出家人 发表于 2011-10-10 00:03
果子这个是打算把精易模块公开么？

以后会慢慢公开的

hackb

{:3_233:}我晕。

Cand

果子 发表于 2011-10-10 00:16
以后会慢慢公开的

太好了 太好了 。谢谢果子。
慢慢一点一点的学习
同时说一下。
帮忙改下名吧 帖子已经回复
还有就是1.7的bug也发回复了

果子

出家人 发表于 2011-10-10 00:29
太好了 太好了 。谢谢果子。
慢慢一点一点的学习
同时说一下。

好的,我去看看

谨言

{:3_244:}好东西啊！

62651345

支持果子，下载学习。