自写截图工具,有需要自行下载-欢迎大佬点评优化 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
全屏截图	字节集

子程序名	返回值类型	公开	备注
_按钮1_被单击

开始运行 ()

子程序名	返回值类型	公开	备注
开始运行

全屏截图＝快照 (, 取屏幕宽度 (), 取屏幕高度 ())
载入 (窗口_截图, , 假)
载入 (窗口_放大镜, , 假)
窗口_截图.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
窗口_截图.画板1.宽度＝取屏幕宽度 ()
窗口_截图.画板1.高度＝取屏幕高度 ()
窗口_截图.画板1.底图＝全屏截图
窗口_截图.时钟_画直线.时钟周期＝ 1

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

置托盘图标 ( #图片1, )
监测热键 ()

子程序名	返回值类型	公开	备注
监测热键

如果真 (GetAsyncKeyState ( #Ctrl键 ) ≠ 0 且 GetAsyncKeyState ( #Alt键 ) ≠ 0 且 GetAsyncKeyState ( #A键 ) ≠ 0)

开始运行 ()

调试输出 (“开始运行 ()”)

返回 ()

延迟 (10)
监测热键 ()

子程序名	返回值类型	公开	备注
_退出_被选择

结束 ()

子程序名	返回值类型	公开	备注
__启动窗口_托盘事件
参数名	类型	参考	可空	数组	备注
操作类型	整数型

调试输出 (操作类型)

如果真 (操作类型＝ 3)

弹出菜单 (菜单, , )

' //////////////////////////////////////////////////////////////////////////////

窗口程序集名	保留	保留	备注
窗口程序集_窗口_截图

子程序名	返回值类型	公开	备注
_时钟_画直线_周期事件

变量名	类型	静态	数组	备注
鼠标X	整数型
鼠标Y	整数型

载入 (窗口_放大镜, , 假)
窗口_放大镜.移动 (取鼠标水平位置 () ＋ 100, 取鼠标垂直位置 () － 100, , )
放大镜_矩形.左边＝取鼠标水平位置 () － 15
放大镜_矩形.顶边＝取鼠标垂直位置 () － 15
放大镜_矩形.右边＝取鼠标水平位置 () ＋ 15
放大镜_矩形.底边＝取鼠标垂直位置 () ＋ 15
窗口_截图.画板1.画直线 (取鼠标水平位置 (), 0, 取鼠标水平位置 (), 取屏幕高度 ())
窗口_截图.画板1.画直线 (0, 取鼠标垂直位置 (), 取屏幕宽度 (), 取鼠标垂直位置 ())
窗口_截图.画板1.定位写出 (取鼠标水平位置 () － 50, 取鼠标垂直位置 () ＋ 10, 到文本 (取鼠标水平位置 ()) ＋ “,” ＋到文本 (取鼠标垂直位置 ()))
窗口_截图.画板1.重画 ()
窗口_放大镜.图片框1.图片＝截取屏幕区域 (放大镜_矩形, #接口常量 .到字节集, “放大镜”)

子程序名	返回值类型	公开	备注
_画板1_鼠标左键被按下	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

截图_全局_区域起始.X ＝取鼠标水平位置 ()
截图_全局_区域起始.Y ＝取鼠标垂直位置 ()
窗口_截图.时钟_画矩形.时钟周期＝ 1

子程序名	返回值类型	公开	备注
_画板1_鼠标左键被放开	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类型	静态	数组	备注
截图_全局_区域截图	矩形数据
截图保存目录	文本型

窗口_截图.时钟_画矩形.时钟周期＝ 0
截图保存目录＝取运行目录 () ＋ “\01/bmp”
截图_全局_区域截图.左边＝截图_全局_区域起始.X
截图_全局_区域截图.顶边＝截图_全局_区域起始.Y
截图_全局_区域截图.右边＝取鼠标水平位置 ()
截图_全局_区域截图.底边＝取鼠标垂直位置 ()
截取屏幕区域 (截图_全局_区域截图, #接口常量 .到文件, 取运行目录 () ＋ “\AIGN.bmp”)
_启动窗口.图片框1.图片＝读入文件 (取运行目录 () ＋ “\01.bmp”)
窗口_放大镜.销毁 ()
窗口_截图.销毁 ()
监测热键 ()

子程序名	返回值类型	公开	备注
_时钟_画矩形_周期事件

窗口_截图.画板1.画直线 (截图_全局_区域起始.X, 截图_全局_区域起始.Y, 截图_全局_区域起始.X, 取鼠标垂直位置 ())
窗口_截图.画板1.画直线 (截图_全局_区域起始.X, 截图_全局_区域起始.Y, 取鼠标水平位置 (), 截图_全局_区域起始.Y)
窗口_截图.画板1.定位写出 (截图_全局_区域起始.X － 30, 截图_全局_区域起始.Y － 20, 到文本 (截图_全局_区域起始.X) ＋ “,” ＋到文本 (截图_全局_区域起始.Y))
窗口_截图.画板1.定位写出 (取鼠标水平位置 () － 40, 取鼠标垂直位置 () － 20, 到文本 (取鼠标水平位置 () －截图_全局_区域起始.X) ＋ “,” ＋到文本 (取鼠标垂直位置 () －截图_全局_区域起始.Y))

子程序名	返回值类型	公开	备注
_画板1_鼠标右键被放开	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

窗口_放大镜.销毁 ()
窗口_截图.销毁 ()
监测热键 ()

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 全屏截图, 字节集<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
开始运行 ()<br />
<br />
<br />
.子程序 开始运行<br />
<br />
全屏截图 ＝ 快照 (, 取屏幕宽度 (), 取屏幕高度 ())<br />
载入 (窗口_截图, , 假)<br />
载入 (窗口_放大镜, , 假)<br />
窗口_截图.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())<br />
窗口_截图.画板1.宽度 ＝ 取屏幕宽度 ()<br />
窗口_截图.画板1.高度 ＝ 取屏幕高度 ()<br />
窗口_截图.画板1.底图 ＝ 全屏截图<br />
窗口_截图.时钟_画直线.时钟周期 ＝ 1<br />
<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
<br />
置托盘图标 (#图片1, )<br />
<br />
监测热键 ()<br />
<br />
<br />
.子程序 监测热键<br />
<br />
<br />
.如果真 (GetAsyncKeyState (#Ctrl键) ≠ 0 且 GetAsyncKeyState (#Alt键) ≠ 0 且 GetAsyncKeyState (#A键) ≠ 0)<br />
    开始运行 ()<br />
    调试输出 (“开始运行 ()”)<br />
    返回 ()<br />
.如果真结束<br />
<br />
延迟 (10)<br />
监测热键 ()<br />
<br />
<br />
<br />
<br />
<br />
<br />
.子程序 _退出_被选择<br />
<br />
结束 ()<br />
<br />
<br />
.子程序 __启动窗口_托盘事件<br />
.参数 操作类型, 整数型<br />
<br />
调试输出 (操作类型)<br />
.如果真 (操作类型 ＝ 3)<br />
    弹出菜单 (菜单, , )<br />
<br />
.如果真结束<br />
<br />
'//////////////////////////////////////////////////////////////////////////////<br />
.版本 2<br />
.支持库 eAPI<br />
<br />
.程序集 窗口程序集_窗口_截图<br />
<br />
.子程序 _时钟_画直线_周期事件<br />
.局部变量 鼠标X, 整数型<br />
.局部变量 鼠标Y, 整数型<br />
<br />
载入 (窗口_放大镜, , 假)<br />
窗口_放大镜.移动 (取鼠标水平位置 () ＋ 100, 取鼠标垂直位置 () － 100, , )<br />
<br />
放大镜_矩形.左边 ＝ 取鼠标水平位置 () － 15<br />
放大镜_矩形.顶边 ＝ 取鼠标垂直位置 () － 15<br />
放大镜_矩形.右边 ＝ 取鼠标水平位置 () ＋ 15<br />
放大镜_矩形.底边 ＝ 取鼠标垂直位置 () ＋ 15<br />
窗口_截图.画板1.画直线 (取鼠标水平位置 (), 0, 取鼠标水平位置 (), 取屏幕高度 ())<br />
窗口_截图.画板1.画直线 (0, 取鼠标垂直位置 (), 取屏幕宽度 (), 取鼠标垂直位置 ())<br />
窗口_截图.画板1.定位写出 (取鼠标水平位置 () － 50, 取鼠标垂直位置 () ＋ 10, 到文本 (取鼠标水平位置 ()) ＋ “,” ＋ 到文本 (取鼠标垂直位置 ()))<br />
窗口_截图.画板1.重画 ()<br />
<br />
窗口_放大镜.图片框1.图片 ＝ 截取屏幕区域 (放大镜_矩形, #接口常量.到字节集, “放大镜”)<br />
<br />
<br />
.子程序 _画板1_鼠标左键被按下, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
截图_全局_区域起始.X ＝ 取鼠标水平位置 ()<br />
截图_全局_区域起始.Y ＝ 取鼠标垂直位置 ()<br />
窗口_截图.时钟_画矩形.时钟周期 ＝ 1<br />
<br />
<br />
.子程序 _画板1_鼠标左键被放开, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
.局部变量 截图_全局_区域截图, 矩形数据<br />
.局部变量 截图保存目录, 文本型<br />
<br />
窗口_截图.时钟_画矩形.时钟周期 ＝ 0<br />
截图保存目录 ＝ 取运行目录 () ＋ “\01/bmp”<br />
截图_全局_区域截图.左边 ＝ 截图_全局_区域起始.X<br />
截图_全局_区域截图.顶边 ＝ 截图_全局_区域起始.Y<br />
截图_全局_区域截图.右边 ＝ 取鼠标水平位置 ()<br />
截图_全局_区域截图.底边 ＝ 取鼠标垂直位置 ()<br />
截取屏幕区域 (截图_全局_区域截图, #接口常量.到文件, 取运行目录 () ＋ “\AIGN.bmp”)<br />
_启动窗口.图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\01.bmp”)<br />
窗口_放大镜.销毁 ()<br />
窗口_截图.销毁 ()<br />
监测热键 ()<br />
<br />
.子程序 _时钟_画矩形_周期事件<br />
<br />
窗口_截图.画板1.画直线 (截图_全局_区域起始.X, 截图_全局_区域起始.Y, 截图_全局_区域起始.X, 取鼠标垂直位置 ())<br />
窗口_截图.画板1.画直线 (截图_全局_区域起始.X, 截图_全局_区域起始.Y, 取鼠标水平位置 (), 截图_全局_区域起始.Y)<br />
窗口_截图.画板1.定位写出 (截图_全局_区域起始.X － 30, 截图_全局_区域起始.Y － 20, 到文本 (截图_全局_区域起始.X) ＋ “,” ＋ 到文本 (截图_全局_区域起始.Y))<br />
窗口_截图.画板1.定位写出 (取鼠标水平位置 () － 40, 取鼠标垂直位置 () － 20, 到文本 (取鼠标水平位置 () － 截图_全局_区域起始.X) ＋ “,” ＋ 到文本 (取鼠标垂直位置 () － 截图_全局_区域起始.Y))<br />
<br />
<br />
.子程序 _画板1_鼠标右键被放开, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
窗口_放大镜.销毁 ()<br />
窗口_截图.销毁 ()<br />
监测热键 ()