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

AIGN

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

路人丁20

模块调用的太多，核心完全没掌握你手中，一个截图软件，其实300KB不到就能做出来，你这不带模块就1.93M，建议舍去模块全用api

AIGN

路人丁20 发表于 2021-4-7 19:01
模块调用的太多，核心完全没掌握你手中，一个截图软件，其实300KB不到就能做出来，你这不带模块就1.93M，建 ...

模块没有调用 就包含了一个坐标数据类型
api调用了一个GetAsyncKeyState
编译出来54.kb
不知道源码为什么这么大
窗口太多了?

AIGN

路人丁20 发表于 2021-4-7 19:01
模块调用的太多，核心完全没掌握你手中，一个截图软件，其实300KB不到就能做出来，你这不带模块就1.93M，建 ...

自动调用自己写的模块了.模块里面就包含一个坐标的数据类型现在已经修改,源码大小38.kb
增加置托盘 结束()
还有截图显示是中间右白框是加载其他窗口时截图出现的错误,位置上移后修正
不过发现一个很严重的问题
程序运行几分钟后会自动奔溃掉

AIGN

  

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

子程序名	返回值类型	公开	备 注
_按钮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 /> 监测热键 ()

AIGN

优化后的;
程序运行几分钟后会奔溃,是什么问题

gaoqing

支持开源谢谢

2446789312

醉卧美人膝

感谢分享，很给力！~

xtavoxing

走过路过上过爽过