|
发表于 2012-2-15 11:32:14
|
显示全部楼层
河南省郑州市
[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] |
|