JS中通过表对象调用WinAPI

cutebe

执行宏调用.JS

1. //执行宏调用ExecuteExcel4Macro
   
2. var 表应用对象 = new ActiveXObject("Excel.Application");        //创建表格程序对象
   
3. var 表应用 = 表应用对象.Application;        //设置对象变量，以减少引用对象的书写长度
   
4. 
   
5. //获取鼠标指针位置
   
6. var 鼠标坐标=获取鼠标位置();
   
7. var 水平=鼠标坐标[0],垂直=鼠标坐标[1];
   
8. 
   
9. //移开鼠标指针
   
10. var 新水平=500,新垂直=300;
    
11. var 鼠标移动结果=表应用.ExecuteExcel4Macro('CALL("User32","SetCursorPos","AJJ",'+新水平+','+新垂直+')');
    
12. var 字符串="表应用对象JS执行宏调用";
    
13. var 字符串字节数=表应用.ExecuteExcel4Macro('LENB("'+字符串+'")');
    
14. var 字节数计算="字符串："+字符串+'\t字节数：'+字符串字节数+"\t（"+水平+'，'+垂直+"）";
    
15. WScript.Echo(字节数计算+"\n设置鼠标位置执行结果："+鼠标移动结果+'\n按 空格/回车 鼠标指针回到原位');
    
16. 
    
17. //弹窗延时后，鼠标指针移回原位
    
18. var 延时结果=表应用对象.Application.ExecuteExcel4Macro('CALL("Kernel32","Sleep","JJ",800)');
    
19. 设置鼠标位置(水平,垂直);
    
20. 
    
21. 表应用对象.Quit();        //结束应用
    
22. WScript.Quit();        //结束脚本
    
23. 
    
24. 
    
25. //-----函数-----//
    
26. function 获取鼠标位置(){        //返回坐标数组[x,y]
    
27.         var 内存地址=申请虚拟内存(8);
    
28.         var 结果=表应用.ExecuteExcel4Macro('CALL("User32","GetCursorPos","AJ",'+内存地址+')');        //参数：4+4字节坐标结构
    
29.         var 坐标=内存读取数据(内存地址,8);
    
30.         释放虚拟内存(内存地址);
    
31.         return 坐标;
    
32. }
    
33. function 设置鼠标位置(水平,垂直){
    
34.         var 鼠标移动结果=表应用.ExecuteExcel4Macro('CALL("User32","SetCursorPos","AJJ",'+水平+','+垂直+')');
    
35.         return 鼠标移动结果;
    
36. }
    
37. function 申请虚拟内存(字节数){        //返回内存地址
    
38.         var 内存地址=表应用.ExecuteExcel4Macro('CALL("Kernel32","VirtualAlloc","JJJJJ",0,'+字节数+','+0x3000+',4)');
    
39.         return 内存地址;
    
40. }
    
41. function 释放虚拟内存(内存地址){
    
42.         表应用.ExecuteExcel4Macro('CALL("Kernel32","VirtualFree","JJJJ",'+内存地址+',0,'+0x8000+')');
    
43. }
    
44. function 内存读取数据(内存地址,字节数){        //返回数组
    
45.         var 偏移,i,读取字节=[],读出数据,数据数组=[];
    
46.         for(偏移=i=0;偏移<字节数;i++){
    
47.                 if(字节数-偏移>=4){读取字节[i]=4;偏移+=4;}
    
48.                 else{if(字节数-偏移>=2){读取字节[i]=2;偏移+=2;}
    
49.                 else{if(字节数-偏移==1){读取字节[i]=1;偏移++;}}}
    
50.         }
    
51.         for(偏移=i=0;偏移<字节数;i++){        //库Kernel32.dll和NtDll.dll里都有RtlMoveMemory        //读出
    
52.                 读出数据=表应用.ExecuteExcel4Macro('CALL("Kernel32","RtlMoveMemory","1NJJ",'+内存地址+','+(内存地址+偏移)+','+读取字节[i]+')');
    
53.                 偏移+=读取字节[i];数据数组[i]=读出数据;
    
54.         }
    
55.         return 数据数组;        //返回
    
56. }

复制代码

cutebe

优点：不用打开办公软件。
缺点：JScript比较老，不支持ES6语法。调试不太方便。

zzz19760225

不打开WPS和编辑器，怎么执行呢？