办公软件WPS的JSA中截屏

cutebe

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

截取全屏，相当于按了截屏键 Print Screen

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. }

复制代码

系统Win7时，窗口标题因透明而异常。

cutebe

let 裁剪坐标尺寸=[200,100,500,300]; //左上宽高

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

复制代码