办公软件WPS的JSA中截图放剪贴板

cutebe

办公软件WPS的表格：通过ExecuteExcel4Macro调用WinAPI实现

截取全屏：相当于按了截屏键 PrtSc

1. function 截取全屏图像放入剪贴板测试(){
   
2.         console.clear();
   
3.         //一、获取全屏框架图纸
   
4.         let 屏幕句柄=0,屏幕坐标尺寸=获取屏幕坐标尺寸();
   
5.         console.log("屏幕像素尺寸：（"+屏幕坐标尺寸[2]+"，"+屏幕坐标尺寸[3]+"）");
   
6.         let 全屏架图纸句柄=获取屏幕架图纸();
   
7.         console.log("全屏幕框架图纸句柄："+全屏架图纸句柄);
   
8. 
   
9.         //二、转入内存框架图纸，去框架得内存图纸（通过更换纸张）
   
10.         let 图纸对象句柄=框架图纸转图纸(全屏架图纸句柄,屏幕坐标尺寸);
    
11.         
    
12.         //三、复制新图纸
    
13.         let 屏幕宽=屏幕坐标尺寸[2]-屏幕坐标尺寸[0],屏幕高=屏幕坐标尺寸[3]-屏幕坐标尺寸[1];
    
14.         let 新图纸对象句柄=转印图纸(图纸对象句柄,屏幕宽,屏幕高);
    
15.         
    
16.         //四、图纸转入剪贴板
    
17.         图纸放入剪贴板(新图纸对象句柄);
    
18.         
    
19.         //let 收纸结果=收起纸笔(图纸对象句柄);        //测试不完善时用
    
20.         //if(收纸结果){console.log("图纸回收成功！"+收纸结果);}else{console.log("图纸回收失败。");}
    
21. }
    
22. 
    
23. function 框架图纸转图纸(框架图纸句柄,坐标尺寸数组){        //返回图纸句柄
    
24.         //框架图纸及尺寸
    
25.         console.log("框架图纸句柄："+框架图纸句柄);
    
26.         let 起始左=横左=坐标尺寸数组[0],起始上=纵上=坐标尺寸数组[1],横右=坐标尺寸数组[2],纵下=坐标尺寸数组[3];
    
27.         let 图像宽=横右-横左,图像高=纵下-纵上;
    
28.         console.log("图像宽高：（"+图像宽+"，"+图像高+"）");
    
29.         
    
30.         //抬出桌台和取出空白纸张
    
31.         let 印台图纸句柄=抽取内照框图纸(框架图纸句柄);
    
32.         if(印台图纸句柄){console.log("内台图纸创建成功！"+印台图纸句柄);}else{console.log("内台图纸创建失败。");}
    
33.         let 图纸对象句柄=抽取内照空白纸(框架图纸句柄,图像宽,图像高);        //白纸用于承图
    
34.         if(图纸对象句柄){console.log("取空白纸成功！"+图纸对象句柄);}else{console.log("创建位图失败。");}
    
35.         
    
36.         //台面换上新纸，供拓印图像用        //图随纸走
    
37.         let 原图纸对象=更换纸笔(印台图纸句柄,图纸对象句柄);
    
38.         if(原图纸对象){console.log("成功更换纸张！新："+图纸对象句柄+"　旧："+原图纸对象);}else{console.log("更换纸张失败。");}
    
39.         let 拓印结果=图纸拓印(印台图纸句柄,图像宽,图像高,框架图纸句柄);        //九参
    
40.         if(拓印结果){console.log("拓印成功！"+拓印结果);}else{console.log("拓印失败。");}
    
41.         //let 转印结果=图纸转印(印台图纸句柄,图像宽,图像高,框架图纸句柄);        //十一参
    
42.         //if(转印结果){console.log("转印成功！"+转印结果);}else{console.log("转印失败。");}
    
43.         
    
44.         //收桌板及纸（清理）
    
45.         let 取下画纸=更换纸笔(印台图纸句柄,原图纸对象);        //取下的画纸=图纸对象，最后要用
    
46.         if(取下画纸){console.log("成功取下画纸！取下（要用）："+取下画纸+"　替换成："+原图纸对象);}else{console.log("取下画纸失败。");}
    
47.         let 收纸结果=收起纸笔(原图纸对象);
    
48.         if(收纸结果){console.log("空纸回收成功！"+收纸结果);}else{console.log("图纸对象删除失败。");}
    
49.         let 收内框纸结果=收起内照框图纸(印台图纸句柄);        //错误（返回值）结果：0x800A07DF=-2146826273
    
50.         if(收内框纸结果){console.log("成功收起内桌台！"+收内框纸结果);}else{console.log("内桌台删除失败。");}
    
51.         let 释放结果=放下框架纸(框架图纸句柄);        //参数清理
    
52.         if(释放结果){console.log("框架图纸收回成功！"+释放结果);}else{console.log("释放失败。");}
    
53.         
    
54.         //返回（卷起）图纸对象
    
55.         return 图纸对象句柄;
    
56. }
    
57. function 转印图纸(图纸对象句柄,图像宽,图像高){        //返回新图纸对象句柄
    
58.         //新白纸        //用于放位图
    
59.         let 新白纸句柄=取空白纸(图像宽,图像高);        //内框架需要换纸再拓印。否则拓印后是全黑的！
    
60.         if(新白纸句柄){console.log("取空白纸成功！"+新白纸句柄);}else{console.log("取空白纸失败。");}
    
61.         
    
62.         //准备拓印桌（台面）架（印板）
    
63.         let 源图架纸句柄=抽取内照框图纸(0);                //let 源图架纸句柄=抽取内照框图纸(框架图纸句柄);
    
64.         if(源图架纸句柄){console.log("源架纸创建成功！"+源图架纸句柄);}else{console.log("源架创建失败。");}
    
65.         let 印桌台纸句柄=抽取内照框图纸(0);                //let 印桌台纸句柄=抽取内照框图纸(框架图纸句柄);
    
66.         if(印桌台纸句柄){console.log("印桌纸创建成功！"+印桌台纸句柄);}else{console.log("画桌创建失败。");}
    
67.         
    
68.         //更换纸张
    
69.         let 原架空纸=更换纸笔(源图架纸句柄,图纸对象句柄);        //架板的图，印到桌台的白纸上
    
70.         if(原架空纸){console.log("成功换下原架空纸纸张！"+原架空纸);}else{console.log("\t原架纸张更换失败。"+原架空纸);}
    
71.         let 原桌空纸=更换纸笔(印桌台纸句柄,新白纸句柄);
    
72.         if(原桌空纸){console.log("成功换下原桌空纸！"+原桌空纸);}else{console.log("原桌纸张更换失败。");}
    
73.         
    
74.         //拓印或转印
    
75.         //let 拓印结果=图纸拓印(印桌台纸句柄,图像宽,图像高,源图架纸句柄);        //let 拓印=0xCC0020;
    
76.         //if(拓印结果){console.log("拓印成功！"+拓印结果);}else{console.log("拓印失败。");}
    
77.         let 转印结果=图纸转印(印桌台纸句柄,图像宽,图像高,源图架纸句柄);
    
78.         if(转印结果){console.log("转印成功！");}else{console.log("转印失败。");}
    
79.         let 新图纸句柄=新白纸句柄;        //转印成功后纸上就有图了。
    
80.         
    
81.         //回收纸张
    
82.         let 收原图纸结果=收起纸笔(图纸对象句柄);
    
83.         if(收原图纸结果){console.log("收原图纸（对象删除）成功！"+收原图纸结果);}else{console.log("收原图纸失败。");}
    
84.         
    
85.         //撤除拓印桌架
    
86.         let 收印台纸结果=收起内照框图纸(印桌台纸句柄);
    
87.         if(收印台纸结果){console.log("收内印台纸成功！"+收印台纸结果);}else{console.log("收内印台纸失败。");}
    
88.         let 收内架纸结果=收起内照框图纸(源图架纸句柄);
    
89.         if(收内架纸结果){console.log("收内架纸成功！"+收内架纸结果);}else{console.log("收内架纸失败。");}
    
90.         
    
91.         return 新图纸句柄;
    
92. }
    
93. function 图纸放入剪贴板(图纸对象句柄){
    
94.         打开剪贴板();清空剪贴板();
    
95.         let 位图数据格式=2;
    
96.         设置剪贴板(位图数据格式,图纸对象句柄);        //图纸放入剪贴板（归剪贴板管理，无需手工回收）
    
97.         关闭剪贴板();
    
98. }
    
99. 
    
100. function 获取屏幕坐标尺寸(){        //返回宽高数组[屏幕像素宽,屏幕像素高]
     
101.         const 执行宏调用=ExecuteExcel4Macro;
     
102.         let 屏幕宽度=0,屏幕高度=1;
     
103.         let 屏幕像素宽度=获取系统尺寸(屏幕宽度),屏幕像素高度=获取系统尺寸(屏幕高度);
     
104.         return [0,0,屏幕像素宽度,屏幕像素高度];
     
105. }
     
106. function 获取系统尺寸(名称标识){
     
107.         const 执行宏调用=ExecuteExcel4Macro;
     
108.         let 获取尺寸=执行宏调用(`CALL("User32","GetSystemMetrics","JJ",${名称标识})`);
     
109.         return 获取尺寸;
     
110. }
     
111. 
     
112. function 获取屏幕架图纸(){return 取架图纸(0);}        //屏幕hDC
     
113. function 取架图纸(窗口句柄){        //返回框架图纸句柄
     
114.         const 执行宏调用=ExecuteExcel4Macro;        //GetDC后ReleaseDC
     
115.         let 框架图纸=执行宏调用(`CALL("User32","GetDC","JJ",${窗口句柄})`);        //窗口工作区hDC
     
116.         return 框架图纸;
     
117. }
     
118. function 获取屏幕框图纸(){return 取框图纸(0);}        //主屏幕hDC
     
119. function 取框图纸(窗口句柄){        //返回框架图纸句柄
     
120.         const 执行宏调用=ExecuteExcel4Macro;
     
121.         发送窗口重绘消息(窗口句柄);
     
122.         let 框架图纸=执行宏调用(`CALL("User32","GetWindowDC","JJ",${窗口句柄})`);        //窗口hDC
     
123.         return 框架图纸;
     
124. }
     
125. function 放下框架纸(框架图纸句柄){
     
126.         const 执行宏调用=ExecuteExcel4Macro;
     
127.         let 释放结果=执行宏调用(`CALL("User32","ReleaseDC","JJJ",0,${框架图纸句柄})`);
     
128.         return 释放结果;        //成功1
     
129. }
     
130. function 抽取内照框图纸(参照框架图纸句柄){        //返回内存框架图纸句柄
     
131.         const 执行宏调用=ExecuteExcel4Macro;        //Gdi32.dll        //CreateCompatibleDC后DeleteDC
     
132.         let 内存框架图纸=执行宏调用(`CALL("Gdi32","CreateCompatibleDC","JJ",${参照框架图纸句柄})`);
     
133.         return 内存框架图纸;
     
134. }
     
135. function 收起内照框图纸(内存框架图纸句柄){
     
136.         const 执行宏调用=ExecuteExcel4Macro;
     
137.         let 回收结果=执行宏调用(`CALL("Gdi32","DeleteDC","AJ",${内存框架图纸句柄})`);
     
138.         return 回收结果;        //成功true
     
139. }
     
140. function 取空白纸(纸宽,纸高){        //返回空白图纸句柄
     
141.         const 执行宏调用=ExecuteExcel4Macro;                //CreateBitmap后DeleteObject
     
142.         let 新空白纸句柄=执行宏调用(`CALL("Gdi32","CreateBitmap","JJJJJJ",${纸宽},${纸高},1,32,0)`);
     
143.         return 新空白纸句柄;        //if(新空白纸句柄){console.log("取空白纸成功！");}else{console.log("取空白纸失败。");}
     
144. }
     
145. function 抽取内照空白纸(参照框架图纸句柄,纸宽,纸高){        //返回内存空白纸句柄
     
146.         const 执行宏调用=ExecuteExcel4Macro;        //CreateCompatibleBitmap后DeleteObject
     
147.         let 内存空白纸句柄=执行宏调用(`CALL("Gdi32","CreateCompatibleBitmap","JJJJ",${参照框架图纸句柄},${纸宽},${纸高})`);
     
148.         return 内存空白纸句柄;
     
149. }
     
150. function 更换纸笔(框架图纸句柄,新纸笔对象句柄){        //返回原纸笔对象句柄
     
151.         const 执行宏调用=ExecuteExcel4Macro;
     
152.         let 旧纸笔对象句柄=执行宏调用(`CALL("Gdi32","SelectObject","JJJ",${框架图纸句柄},${新纸笔对象句柄})`);
     
153.         return 旧纸笔对象句柄;
     
154. }
     
155. function 收起纸笔(纸笔对象句柄){
     
156.         const 执行宏调用=ExecuteExcel4Macro;
     
157.         let 收回结果=执行宏调用(`CALL("Gdi32","DeleteObject","AJ",${纸笔对象句柄})`);
     
158.         return 收回结果;        //成功true
     
159. }
     
160. function 图纸拓印(拓台图纸句柄,图纸宽度,图纸高度,印架图纸句柄){let 拓印=0xCC0020;let 拓印结果=图纸线描(拓台图纸句柄,0,0,图纸宽度,图纸高度,印架图纸句柄,0,0,拓印);return 拓印结果;}
     
161. function 图纸线描(桌台图纸句柄,白纸起始水平,白纸起始垂直,描宽,描高,架板图纸句柄,图纸起始水平,图纸起始垂直,描手法){
     
162.         const 执行宏调用=ExecuteExcel4Macro;        //框架印向桌台        //动作为拓印
     
163.         let 线描结果=执行宏调用(`CALL("Gdi32","BitBlt","AJJJJJJJJJ",${桌台图纸句柄},${白纸起始水平},${白纸起始垂直},${描宽},${描高},${架板图纸句柄},${图纸起始水平},${图纸起始垂直},${描手法})`);
     
164.         return 线描结果;        //成功true
     
165. }
     
166. function 图纸转印(拓台图纸句柄,图纸宽度,图纸高度,印架图纸句柄){let 转印=0xCC0020;let 转印结果=图纸涂绘(拓台图纸句柄,0,0,图纸宽度,图纸高度,印架图纸句柄,0,0,图纸宽度,图纸高度,转印);return 转印结果;}
     
167. function 图纸涂绘(桌台图纸句柄,白纸起始水平,白纸起始垂直,绘宽,绘高,架板图纸句柄,图纸起始水平,图纸起始垂直,图纸宽度,图纸高度,绘手法){
     
168.         const 执行宏调用=ExecuteExcel4Macro,转印=0xCC0020;        //框架印向桌台        //动作转印同拓印
     
169.         let 涂绘结果=执行宏调用(`CALL("Gdi32","StretchBlt","AJJJJJJJJJJJ",${桌台图纸句柄},${白纸起始水平},${白纸起始垂直},${绘宽},${绘高},${架板图纸句柄},${图纸起始水平},${图纸起始垂直},${图纸宽度},${图纸高度},${绘手法})`);
     
170.         return 涂绘结果;        //成功true
     
171. }
     
172. 
     
173. function 打开剪贴板(){
     
174.         const 执行宏调用=ExecuteExcel4Macro;
     
175.         let 打开结果=执行宏调用(`CALL("User32","OpenClipboard","AJ",0)`);
     
176.         return 打开结果;        //if(打开结果){console.log("成功打开剪贴板！");}else{console.log("剪贴板打开失败。");}
     
177. }
     
178. function 清空剪贴板(){
     
179.         const 执行宏调用=ExecuteExcel4Macro;
     
180.         let 清空结果=执行宏调用(`CALL("User32","EmptyClipboard","A")`);
     
181.         return 清空结果;        //if(清空结果){console.log("成功清空剪贴板！");}else{console.log("剪贴板清空失败。");}
     
182. }
     
183. function 设置剪贴板(数据格式,数据句柄){
     
184.         const 执行宏调用=ExecuteExcel4Macro;        //数据格式：位图2 文本1 统一文本0xD=13
     
185.         let 数据内存句柄=执行宏调用(`CALL("User32","SetClipboardData","JJJ",${数据格式},${数据句柄})`);
     
186.         return 数据内存句柄;        //if(数据内存句柄){console.log("成功设置剪贴板！");}else{console.log("剪贴板设置失败。");}
     
187. }
     
188. function 关闭剪贴板(){
     
189.         const 执行宏调用=ExecuteExcel4Macro;
     
190.         let 关闭结果=执行宏调用(`CALL("User32","CloseClipboard","A")`);
     
191.         return 关闭结果;        //if(关闭结果){console.log("成功关闭剪贴板！");}else{console.log("剪贴板关闭失败。");}
     
192. }

复制代码

cutebe

简化：去除图像复制转存步骤

1. function 截取全屏图像放入剪贴板简版测试(){
   
2.         console.clear();
   
3.         //一、获取全屏框架图纸
   
4.         let 屏幕句柄=0,屏幕坐标尺寸=获取屏幕坐标尺寸();
   
5.         let 全屏架图纸句柄=获取屏幕架图纸();
   
6. 
   
7.         //二、转入内存框架图纸，去框架得内存图纸（通过更换纸张）
   
8.         let 图纸对象句柄=框架图纸转图纸(全屏架图纸句柄,屏幕坐标尺寸);
   
9. 
   
10.         //三、图纸转入剪贴板
    
11.         图纸放入剪贴板(图纸对象句柄);
    
12. }
    
13. 
    
14. function 框架图纸转图纸(框架图纸句柄,坐标尺寸数组){        //返回图纸句柄
    
15.         //框架图纸及尺寸
    
16.         console.log("框架图纸句柄："+框架图纸句柄);
    
17.         let 起始左=横左=坐标尺寸数组[0],起始上=纵上=坐标尺寸数组[1],横右=坐标尺寸数组[2],纵下=坐标尺寸数组[3];
    
18.         let 图像宽=横右-横左,图像高=纵下-纵上;
    
19.         console.log("图像宽高：（"+图像宽+"，"+图像高+"）");
    
20.        
    
21.         //抬出桌台和取出空白纸张
    
22.         let 印台图纸句柄=抽取内照框图纸(框架图纸句柄);
    
23.         if(印台图纸句柄){console.log("内台图纸创建成功！"+印台图纸句柄);}else{console.log("内台图纸创建失败。");}
    
24.         let 图纸对象句柄=抽取内照空白纸(框架图纸句柄,图像宽,图像高);        //白纸用于承图
    
25.         if(图纸对象句柄){console.log("取空白纸成功！"+图纸对象句柄);}else{console.log("创建位图失败。");}
    
26.        
    
27.         //台面换上新纸，供拓印图像用        //图随纸走
    
28.         let 原图纸对象=更换纸笔(印台图纸句柄,图纸对象句柄);
    
29.         if(原图纸对象){console.log("成功更换纸张！新："+图纸对象句柄+"　旧："+原图纸对象);}else{console.log("更换纸张失败。");}
    
30.         let 拓印结果=图纸拓印(印台图纸句柄,图像宽,图像高,框架图纸句柄);        //九参
    
31.         if(拓印结果){console.log("拓印成功！"+拓印结果);}else{console.log("拓印失败。");}
    
32.         //let 转印结果=图纸转印(印台图纸句柄,图像宽,图像高,框架图纸句柄);        //十一参
    
33.         //if(转印结果){console.log("转印成功！"+转印结果);}else{console.log("转印失败。");}
    
34.        
    
35.         //收桌板及纸（清理）
    
36.         let 取下画纸=更换纸笔(印台图纸句柄,原图纸对象);        //取下的画纸=图纸对象，最后要用
    
37.         if(取下画纸){console.log("成功取下画纸！取下（要用）："+取下画纸+"　替换成："+原图纸对象);}else{console.log("取下画纸失败。");}
    
38.         let 收纸结果=收起纸笔(原图纸对象);
    
39.         if(收纸结果){console.log("空纸回收成功！"+收纸结果);}else{console.log("图纸对象删除失败。");}
    
40.         let 收内框纸结果=收起内照框图纸(印台图纸句柄);        //错误（返回值）结果：0x800A07DF=-2146826273
    
41.         if(收内框纸结果){console.log("成功收起内桌台！"+收内框纸结果);}else{console.log("内桌台删除失败。");}
    
42.         let 释放结果=放下框架纸(框架图纸句柄);        //参数清理
    
43.         if(释放结果){console.log("框架图纸收回成功！"+释放结果);}else{console.log("释放失败。");}
    
44.        
    
45.         //返回（卷起）图纸对象
    
46.         return 图纸对象句柄;
    
47. }
    
48. function 图纸放入剪贴板(图纸对象句柄){
    
49.         打开剪贴板();清空剪贴板();
    
50.         let 位图数据格式=2;
    
51.         设置剪贴板(位图数据格式,图纸对象句柄);        //图纸放入剪贴板（归剪贴板管理，无需手工回收）
    
52.         关闭剪贴板();
    
53. }
    
54. 
    
55. function 获取屏幕坐标尺寸(){        //返回宽高数组[屏幕像素宽,屏幕像素高]
    
56.         const 执行宏调用=ExecuteExcel4Macro;
    
57.         let 屏幕宽度=0,屏幕高度=1;
    
58.         let 屏幕像素宽度=获取系统尺寸(屏幕宽度),屏幕像素高度=获取系统尺寸(屏幕高度);
    
59.         return [0,0,屏幕像素宽度,屏幕像素高度];
    
60. }
    
61. function 获取系统尺寸(名称标识){
    
62.         const 执行宏调用=ExecuteExcel4Macro;
    
63.         let 获取尺寸=执行宏调用(`CALL("User32","GetSystemMetrics","JJ",${名称标识})`);
    
64.         return 获取尺寸;
    
65. }
    
66. 
    
67. function 获取屏幕架图纸(){return 取架图纸(0);}        //屏幕hDC
    
68. function 取架图纸(窗口句柄){        //返回框架图纸句柄
    
69.         const 执行宏调用=ExecuteExcel4Macro;        //GetDC后ReleaseDC
    
70.         let 框架图纸=执行宏调用(`CALL("User32","GetDC","JJ",${窗口句柄})`);        //窗口工作区hDC
    
71.         return 框架图纸;
    
72. }
    
73. function 获取屏幕框图纸(){return 取框图纸(0);}        //主屏幕hDC
    
74. function 取框图纸(窗口句柄){        //返回框架图纸句柄
    
75.         const 执行宏调用=ExecuteExcel4Macro;
    
76.         发送窗口重绘消息(窗口句柄);
    
77.         let 框架图纸=执行宏调用(`CALL("User32","GetWindowDC","JJ",${窗口句柄})`);        //窗口hDC
    
78.         return 框架图纸;
    
79. }
    
80. function 放下框架纸(框架图纸句柄){
    
81.         const 执行宏调用=ExecuteExcel4Macro;
    
82.         let 释放结果=执行宏调用(`CALL("User32","ReleaseDC","JJJ",0,${框架图纸句柄})`);
    
83.         return 释放结果;        //成功1
    
84. }
    
85. function 抽取内照框图纸(参照框架图纸句柄){        //返回内存框架图纸句柄
    
86.         const 执行宏调用=ExecuteExcel4Macro;        //Gdi32.dll        //CreateCompatibleDC后DeleteDC
    
87.         let 内存框架图纸=执行宏调用(`CALL("Gdi32","CreateCompatibleDC","JJ",${参照框架图纸句柄})`);
    
88.         return 内存框架图纸;
    
89. }
    
90. function 收起内照框图纸(内存框架图纸句柄){
    
91.         const 执行宏调用=ExecuteExcel4Macro;
    
92.         let 回收结果=执行宏调用(`CALL("Gdi32","DeleteDC","AJ",${内存框架图纸句柄})`);
    
93.         return 回收结果;        //成功true
    
94. }
    
95. function 取空白纸(纸宽,纸高){        //返回空白图纸句柄
    
96.         const 执行宏调用=ExecuteExcel4Macro;                //CreateBitmap后DeleteObject
    
97.         let 新空白纸句柄=执行宏调用(`CALL("Gdi32","CreateBitmap","JJJJJJ",${纸宽},${纸高},1,32,0)`);
    
98.         return 新空白纸句柄;        //if(新空白纸句柄){console.log("取空白纸成功！");}else{console.log("取空白纸失败。");}
    
99. }
    
100. function 抽取内照空白纸(参照框架图纸句柄,纸宽,纸高){        //返回内存空白纸句柄
     
101.         const 执行宏调用=ExecuteExcel4Macro;        //CreateCompatibleBitmap后DeleteObject
     
102.         let 内存空白纸句柄=执行宏调用(`CALL("Gdi32","CreateCompatibleBitmap","JJJJ",${参照框架图纸句柄},${纸宽},${纸高})`);
     
103.         return 内存空白纸句柄;
     
104. }
     
105. function 更换纸笔(框架图纸句柄,新纸笔对象句柄){        //返回原纸笔对象句柄
     
106.         const 执行宏调用=ExecuteExcel4Macro;
     
107.         let 旧纸笔对象句柄=执行宏调用(`CALL("Gdi32","SelectObject","JJJ",${框架图纸句柄},${新纸笔对象句柄})`);
     
108.         return 旧纸笔对象句柄;
     
109. }
     
110. function 收起纸笔(纸笔对象句柄){
     
111.         const 执行宏调用=ExecuteExcel4Macro;
     
112.         let 收回结果=执行宏调用(`CALL("Gdi32","DeleteObject","AJ",${纸笔对象句柄})`);
     
113.         return 收回结果;        //成功true
     
114. }
     
115. function 图纸拓印(拓台图纸句柄,图纸宽度,图纸高度,印架图纸句柄){let 拓印=0xCC0020;let 拓印结果=图纸线描(拓台图纸句柄,0,0,图纸宽度,图纸高度,印架图纸句柄,0,0,拓印);return 拓印结果;}
     
116. function 图纸线描(桌台图纸句柄,白纸起始水平,白纸起始垂直,描宽,描高,架板图纸句柄,图纸起始水平,图纸起始垂直,描手法){
     
117.         const 执行宏调用=ExecuteExcel4Macro;        //框架印向桌台        //动作为拓印
     
118.         let 线描结果=执行宏调用(`CALL("Gdi32","BitBlt","AJJJJJJJJJ",${桌台图纸句柄},${白纸起始水平},${白纸起始垂直},${描宽},${描高},${架板图纸句柄},${图纸起始水平},${图纸起始垂直},${描手法})`);
     
119.         return 线描结果;        //成功true
     
120. }
     
121. function 图纸转印(拓台图纸句柄,图纸宽度,图纸高度,印架图纸句柄){let 转印=0xCC0020;let 转印结果=图纸涂绘(拓台图纸句柄,0,0,图纸宽度,图纸高度,印架图纸句柄,0,0,图纸宽度,图纸高度,转印);return 转印结果;}
     
122. function 图纸涂绘(桌台图纸句柄,白纸起始水平,白纸起始垂直,绘宽,绘高,架板图纸句柄,图纸起始水平,图纸起始垂直,图纸宽度,图纸高度,绘手法){
     
123.         const 执行宏调用=ExecuteExcel4Macro,转印=0xCC0020;        //框架印向桌台        //动作转印同拓印
     
124.         let 涂绘结果=执行宏调用(`CALL("Gdi32","StretchBlt","AJJJJJJJJJJJ",${桌台图纸句柄},${白纸起始水平},${白纸起始垂直},${绘宽},${绘高},${架板图纸句柄},${图纸起始水平},${图纸起始垂直},${图纸宽度},${图纸高度},${绘手法})`);
     
125.         return 涂绘结果;        //成功true
     
126. }
     
127. 
     
128. function 打开剪贴板(){
     
129.         const 执行宏调用=ExecuteExcel4Macro;
     
130.         let 打开结果=执行宏调用(`CALL("User32","OpenClipboard","AJ",0)`);
     
131.         return 打开结果;        //if(打开结果){console.log("成功打开剪贴板！");}else{console.log("剪贴板打开失败。");}
     
132. }
     
133. function 清空剪贴板(){
     
134.         const 执行宏调用=ExecuteExcel4Macro;
     
135.         let 清空结果=执行宏调用(`CALL("User32","EmptyClipboard","A")`);
     
136.         return 清空结果;        //if(清空结果){console.log("成功清空剪贴板！");}else{console.log("剪贴板清空失败。");}
     
137. }
     
138. function 设置剪贴板(数据格式,数据句柄){
     
139.         const 执行宏调用=ExecuteExcel4Macro;        //数据格式：位图2 文本1 统一文本0xD=13
     
140.         let 数据内存句柄=执行宏调用(`CALL("User32","SetClipboardData","JJJ",${数据格式},${数据句柄})`);
     
141.         return 数据内存句柄;        //if(数据内存句柄){console.log("成功设置剪贴板！");}else{console.log("剪贴板设置失败。");}
     
142. }
     
143. function 关闭剪贴板(){
     
144.         const 执行宏调用=ExecuteExcel4Macro;
     
145.         let 关闭结果=执行宏调用(`CALL("User32","CloseClipboard","A")`);
     
146.         return 关闭结果;        //if(关闭结果){console.log("成功关闭剪贴板！");}else{console.log("剪贴板关闭失败。");}
     
147. }

复制代码

cutebe

鼠标指针所指窗口

1. function 截取窗口图像放入剪贴板测试(){        //鼠标指针所指窗口截图
   
2.         console.clear();
   
3.         //一、获取鼠标指向窗口框架图纸
   
4.         let 窗口句柄=鼠标所指窗口句柄();
   
5.         let 窗口坐标=获取窗口坐标(窗口句柄);
   
6.         let 窗口宽=窗口坐标[2]-窗口坐标[0],窗口高=窗口坐标[3]-窗口坐标[1];
   
7.         console.log("窗口坐标尺寸：（"+窗口宽+"，"+窗口高+"）"+窗口坐标);
   
8.         let 窗框图纸句柄=取框图纸(窗口句柄);
   
9.         console.log("窗口框架图纸句柄："+窗框图纸句柄);
   
10. 
    
11.         //二、转入内存框架图纸，去框架得内存图纸（通过更换纸张）
    
12.         let 图纸对象句柄=框架图纸转图纸(窗框图纸句柄,窗口坐标);
    
13. 
    
14.         //三、图纸转入剪贴板
    
15.         图纸放入剪贴板(图纸对象句柄);
    
16. }
    
17. function 鼠标所指窗口句柄(){        //返回窗口句柄
    
18.         const 执行宏调用=ExecuteExcel4Macro;
    
19.         let 鼠标指针坐标=获取鼠标位置();        //===调用函数===//
    
20.         let 水平=鼠标指针坐标[0],垂直=鼠标指针坐标[1];        //鼠标指针处窗口句柄        //扩展了一个参数
    
21.         let 窗口句柄=执行宏调用(`CALL("User32", "WindowFromPoint", "JJJ", ${水平},${垂直})`);
    
22.         return 窗口句柄;
    
23. }
    
24. function 获取鼠标位置(){        //屏幕左上角开始，向右为x，向下为y
    
25.         const 执行宏调用=ExecuteExcel4Macro;
    
26.         let 坐标数据=执行宏调用(`CALL("User32","GetCursorPos","1E",0)`);
    
27.         const 缓冲区=new ArrayBuffer(8); //8字节对应64位
    
28.         const 数据操作=new DataView(缓冲区);        //操作对象
    
29.         数据操作.setFloat64(0,坐标数据);        //（操作）写入64位数
    
30.         let 坐标=[];
    
31.         坐标[0]=数据操作.getInt32(4);        //取32位坐标x
    
32.         坐标[1]=数据操作.getInt32(0);        //取32位坐标y
    
33.         return 坐标;        //返回坐标数组
    
34. }
    
35. function 获取窗口坐标(窗口句柄){        //返回坐标数组：左上右下
    
36.         const 执行宏调用=ExecuteExcel4Macro;
    
37.         let 坐标内存地址=申请虚拟内存(16);
    
38.         let 结果=执行宏调用(`CALL("User32","GetWindowRect","JJJ",${窗口句柄},${坐标内存地址})`);
    
39.         let 坐标数组=内存读取数组(坐标内存地址,4);        //返回坐标数组：左上右下
    
40.         释放虚拟内存(坐标内存地址);
    
41.         return 坐标数组;
    
42. }
    
43. function 内存读取数组(内存地址,数组长度){        //返回数组
    
44.         const 执行宏调用=ExecuteExcel4Macro;
    
45.         let 数据数组=[],读取字节=4;
    
46.         for(let 偏移=i=0;i<数组长度;i++){        //库Kernel32.dll和NtDll.dll里都有RtlMoveMemory
    
47.                 读出数据=执行宏调用(`CALL("Kernel32","RtlMoveMemory","1NJJ",${内存地址},${内存地址+偏移},${读取字节})`);        //读出
    
48.                 数据数组.push(读出数据);偏移+=读取字节;
    
49.         }
    
50.         return 数据数组;        //返回
    
51. }
    
52. function 申请虚拟内存(字节数){        //返回内存地址
    
53.         const 执行宏调用=ExecuteExcel4Macro;
    
54.         const 内存地址=执行宏调用(`CALL("Kernel32","VirtualAlloc","JJJJJ",0,${字节数},${0x3000},4)`);
    
55.         return 内存地址;
    
56. }
    
57. function 释放虚拟内存(内存地址){
    
58.         const 执行宏调用=ExecuteExcel4Macro;
    
59.         执行宏调用(`CALL("Kernel32","VirtualFree","JJJJ",${内存地址},0,${0x8000})`);
    
60. }
    
61. function 发送窗口重绘消息(窗口句柄){
    
62.         const 执行宏调用=ExecuteExcel4Macro,重绘=0xF;        //WM_PAINT=0xF
    
63.         let 结果=执行宏调用(`CALL("User32", "SendMessageA", "JJJJJ", ${窗口句柄},${重绘},0,0)`);
    
64.         console.log("窗口重绘消息执行结果："+结果);
    
65. }
    
66. 
    
67. function 框架图纸转图纸(框架图纸句柄,坐标尺寸数组){        //返回图纸句柄
    
68.         //框架图纸及尺寸
    
69.         console.log("框架图纸句柄："+框架图纸句柄);
    
70.         let 起始左=横左=坐标尺寸数组[0],起始上=纵上=坐标尺寸数组[1],横右=坐标尺寸数组[2],纵下=坐标尺寸数组[3];
    
71.         let 图像宽=横右-横左,图像高=纵下-纵上;
    
72.         console.log("图像宽高：（"+图像宽+"，"+图像高+"）");
    
73.         
    
74.         //抬出桌台和取出空白纸张
    
75.         let 印台图纸句柄=抽取内照框图纸(框架图纸句柄);
    
76.         if(印台图纸句柄){console.log("内台图纸创建成功！"+印台图纸句柄);}else{console.log("内台图纸创建失败。");}
    
77.         let 图纸对象句柄=抽取内照空白纸(框架图纸句柄,图像宽,图像高);        //白纸用于承图
    
78.         if(图纸对象句柄){console.log("取空白纸成功！"+图纸对象句柄);}else{console.log("创建位图失败。");}
    
79.         
    
80.         //台面换上新纸，供拓印图像用        //图随纸走
    
81.         let 原图纸对象=更换纸笔(印台图纸句柄,图纸对象句柄);
    
82.         if(原图纸对象){console.log("成功更换纸张！新："+图纸对象句柄+"　旧："+原图纸对象);}else{console.log("更换纸张失败。");}
    
83.         let 拓印结果=图纸拓印(印台图纸句柄,图像宽,图像高,框架图纸句柄);        //九参
    
84.         if(拓印结果){console.log("拓印成功！"+拓印结果);}else{console.log("拓印失败。");}
    
85.         //let 转印结果=图纸转印(印台图纸句柄,图像宽,图像高,框架图纸句柄);        //十一参
    
86.         //if(转印结果){console.log("转印成功！"+转印结果);}else{console.log("转印失败。");}
    
87.         
    
88.         //收桌板及纸（清理）
    
89.         let 取下画纸=更换纸笔(印台图纸句柄,原图纸对象);        //取下的画纸=图纸对象，最后要用
    
90.         if(取下画纸){console.log("成功取下画纸！取下（要用）："+取下画纸+"　替换成："+原图纸对象);}else{console.log("取下画纸失败。");}
    
91.         let 收纸结果=收起纸笔(原图纸对象);
    
92.         if(收纸结果){console.log("空纸回收成功！"+收纸结果);}else{console.log("图纸对象删除失败。");}
    
93.         let 收内框纸结果=收起内照框图纸(印台图纸句柄);        //错误（返回值）结果：0x800A07DF=-2146826273
    
94.         if(收内框纸结果){console.log("成功收起内桌台！"+收内框纸结果);}else{console.log("内桌台删除失败。");}
    
95.         let 释放结果=放下框架纸(框架图纸句柄);        //参数清理
    
96.         if(释放结果){console.log("框架图纸收回成功！"+释放结果);}else{console.log("释放失败。");}
    
97.         
    
98.         //返回（卷起）图纸对象
    
99.         return 图纸对象句柄;
    
100. }
     
101. function 图纸放入剪贴板(图纸对象句柄){
     
102.         打开剪贴板();清空剪贴板();
     
103.         let 位图数据格式=2;
     
104.         设置剪贴板(位图数据格式,图纸对象句柄);        //图纸放入剪贴板（归剪贴板管理，无需手工回收）
     
105.         关闭剪贴板();
     
106. }
     
107. 
     
108. function 获取屏幕架图纸(){return 取架图纸(0);}        //屏幕hDC
     
109. function 取架图纸(窗口句柄){        //返回框架图纸句柄
     
110.         const 执行宏调用=ExecuteExcel4Macro;        //GetDC后ReleaseDC
     
111.         let 框架图纸=执行宏调用(`CALL("User32","GetDC","JJ",${窗口句柄})`);        //窗口工作区hDC
     
112.         return 框架图纸;
     
113. }
     
114. function 获取屏幕框图纸(){return 取框图纸(0);}        //主屏幕hDC
     
115. function 取框图纸(窗口句柄){        //返回框架图纸句柄
     
116.         const 执行宏调用=ExecuteExcel4Macro;
     
117.         发送窗口重绘消息(窗口句柄);
     
118.         let 框架图纸=执行宏调用(`CALL("User32","GetWindowDC","JJ",${窗口句柄})`);        //窗口hDC
     
119.         return 框架图纸;
     
120. }
     
121. function 放下框架纸(框架图纸句柄){
     
122.         const 执行宏调用=ExecuteExcel4Macro;
     
123.         let 释放结果=执行宏调用(`CALL("User32","ReleaseDC","JJJ",0,${框架图纸句柄})`);
     
124.         return 释放结果;        //成功1
     
125. }
     
126. function 抽取内照框图纸(参照框架图纸句柄){        //返回内存框架图纸句柄
     
127.         const 执行宏调用=ExecuteExcel4Macro;        //Gdi32.dll        //CreateCompatibleDC后DeleteDC
     
128.         let 内存框架图纸=执行宏调用(`CALL("Gdi32","CreateCompatibleDC","JJ",${参照框架图纸句柄})`);
     
129.         return 内存框架图纸;
     
130. }
     
131. function 收起内照框图纸(内存框架图纸句柄){
     
132.         const 执行宏调用=ExecuteExcel4Macro;
     
133.         let 回收结果=执行宏调用(`CALL("Gdi32","DeleteDC","AJ",${内存框架图纸句柄})`);
     
134.         return 回收结果;        //成功true
     
135. }
     
136. function 取空白纸(纸宽,纸高){        //返回空白图纸句柄
     
137.         const 执行宏调用=ExecuteExcel4Macro;                //CreateBitmap后DeleteObject
     
138.         let 新空白纸句柄=执行宏调用(`CALL("Gdi32","CreateBitmap","JJJJJJ",${纸宽},${纸高},1,32,0)`);
     
139.         return 新空白纸句柄;        //if(新空白纸句柄){console.log("取空白纸成功！");}else{console.log("取空白纸失败。");}
     
140. }
     
141. function 抽取内照空白纸(参照框架图纸句柄,纸宽,纸高){        //返回内存空白纸句柄
     
142.         const 执行宏调用=ExecuteExcel4Macro;        //CreateCompatibleBitmap后DeleteObject
     
143.         let 内存空白纸句柄=执行宏调用(`CALL("Gdi32","CreateCompatibleBitmap","JJJJ",${参照框架图纸句柄},${纸宽},${纸高})`);
     
144.         return 内存空白纸句柄;
     
145. }
     
146. function 更换纸笔(框架图纸句柄,新纸笔对象句柄){        //返回原纸笔对象句柄
     
147.         const 执行宏调用=ExecuteExcel4Macro;
     
148.         let 旧纸笔对象句柄=执行宏调用(`CALL("Gdi32","SelectObject","JJJ",${框架图纸句柄},${新纸笔对象句柄})`);
     
149.         return 旧纸笔对象句柄;
     
150. }
     
151. function 收起纸笔(纸笔对象句柄){
     
152.         const 执行宏调用=ExecuteExcel4Macro;
     
153.         let 收回结果=执行宏调用(`CALL("Gdi32","DeleteObject","AJ",${纸笔对象句柄})`);
     
154.         return 收回结果;        //成功true
     
155. }
     
156. function 图纸拓印(拓台图纸句柄,图纸宽度,图纸高度,印架图纸句柄){let 拓印=0xCC0020;let 拓印结果=图纸线描(拓台图纸句柄,0,0,图纸宽度,图纸高度,印架图纸句柄,0,0,拓印);return 拓印结果;}
     
157. function 图纸线描(桌台图纸句柄,白纸起始水平,白纸起始垂直,描宽,描高,架板图纸句柄,图纸起始水平,图纸起始垂直,描手法){
     
158.         const 执行宏调用=ExecuteExcel4Macro;        //框架印向桌台        //动作为拓印
     
159.         let 线描结果=执行宏调用(`CALL("Gdi32","BitBlt","AJJJJJJJJJ",${桌台图纸句柄},${白纸起始水平},${白纸起始垂直},${描宽},${描高},${架板图纸句柄},${图纸起始水平},${图纸起始垂直},${描手法})`);
     
160.         return 线描结果;        //成功true
     
161. }
     
162. function 图纸转印(拓台图纸句柄,图纸宽度,图纸高度,印架图纸句柄){let 转印=0xCC0020;let 转印结果=图纸涂绘(拓台图纸句柄,0,0,图纸宽度,图纸高度,印架图纸句柄,0,0,图纸宽度,图纸高度,转印);return 转印结果;}
     
163. function 图纸涂绘(桌台图纸句柄,白纸起始水平,白纸起始垂直,绘宽,绘高,架板图纸句柄,图纸起始水平,图纸起始垂直,图纸宽度,图纸高度,绘手法){
     
164.         const 执行宏调用=ExecuteExcel4Macro,转印=0xCC0020;        //框架印向桌台        //动作转印同拓印
     
165.         let 涂绘结果=执行宏调用(`CALL("Gdi32","StretchBlt","AJJJJJJJJJJJ",${桌台图纸句柄},${白纸起始水平},${白纸起始垂直},${绘宽},${绘高},${架板图纸句柄},${图纸起始水平},${图纸起始垂直},${图纸宽度},${图纸高度},${绘手法})`);
     
166.         return 涂绘结果;        //成功true
     
167. }
     
168. 
     
169. function 打开剪贴板(){
     
170.         const 执行宏调用=ExecuteExcel4Macro;
     
171.         let 打开结果=执行宏调用(`CALL("User32","OpenClipboard","AJ",0)`);
     
172.         return 打开结果;        //if(打开结果){console.log("成功打开剪贴板！");}else{console.log("剪贴板打开失败。");}
     
173. }
     
174. function 清空剪贴板(){
     
175.         const 执行宏调用=ExecuteExcel4Macro;
     
176.         let 清空结果=执行宏调用(`CALL("User32","EmptyClipboard","A")`);
     
177.         return 清空结果;        //if(清空结果){console.log("成功清空剪贴板！");}else{console.log("剪贴板清空失败。");}
     
178. }
     
179. function 设置剪贴板(数据格式,数据句柄){
     
180.         const 执行宏调用=ExecuteExcel4Macro;        //数据格式：位图2 文本1 统一文本0xD=13
     
181.         let 数据内存句柄=执行宏调用(`CALL("User32","SetClipboardData","JJJ",${数据格式},${数据句柄})`);
     
182.         return 数据内存句柄;        //if(数据内存句柄){console.log("成功设置剪贴板！");}else{console.log("剪贴板设置失败。");}
     
183. }
     
184. function 关闭剪贴板(){
     
185.         const 执行宏调用=ExecuteExcel4Macro;
     
186.         let 关闭结果=执行宏调用(`CALL("User32","CloseClipboard","A")`);
     
187.         return 关闭结果;        //if(关闭结果){console.log("成功关闭剪贴板！");}else{console.log("剪贴板关闭失败。");}
     
188. }

复制代码

it323

占楼评论感谢楼主分享！

a66

AI 流水线

yyz219195888

不明觉厉，谢谢