办公软件WPS的JSA中获取系统目录

cutebe

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

系统特殊目录，如：桌面、我的文档、系统

1. function 获取系统特殊目录路径测试(){
   
2.         console.clear();
   
3.         let 视窗=0x24;        //Windows
   
4.         let 系统=0x25;        //System32
   
5.         let 老应用=0x29        //C:\Windows\SysWOW64
   
6.         let 字体=0x14;
   
7.        
   
8.         let 应用数据=0x1A;        //%AppData%
   
9.         let 公共开始菜单=0x16;        //StartMenu
   
10.         let 公共开始程序=0x17;        //开始》程序
    
11.         let 公共启动=0x18;
    
12.         let 公共桌面=0x19;        //DeskTop
    
13.         let 公共我的文档=0x2E;
    
14.        
    
15.         let 开始菜单=0xB;
    
16.         let 开始程序=0x2;
    
17.         let 开始启动=0x7;        //let 开始启动=0x1D;        //开始》启动        StartUp
    
18.         let 管理工具=0x2F;        //开始》管理工具
    
19.         let 最近使用=0x8;        //Recent
    
20.         let 临时目录=0x15;        //%Temp%        %Tmp%
    
21.         let 发送到=0x9;        //SendTo
    
22.         let 程序目录=0x26;        //let 程序目录=0x2A;        //C:\Program Files (x86)
    
23.         let 程序公共目录=0x2B;        //0x2C//C:\Program Files (x86)\Common Files
    
24.        
    
25.         let 桌面=0x0;        //let 桌面=0x10;
    
26.         let 当前用户=0x28;        //C:\Users\Administrator
    
27.         let 我的文档=0x5;
    
28.         let 我的图片=0x27;
    
29.         let 我的音乐=0xD;
    
30.         let 我的视频=0xE;
    
31.         let 收藏夹=0x6;        //let 收藏夹二=0x1F;
    
32.        
    
33.         let 临时=0x20;        //临时IE
    
34.         let 历史记录=0x22;        //历史记录IE
    
35.         let 网站本地配置=0x21;        //Cookies
    
36.        
    
37.         //let 标志=0x10;
    
38.         //let 目录路径=获取系统特殊目录路径(标志);
    
39.         //console.log("系统目录：\n"+目录路径);
    
40.         for(let i=0;i<0x3C;i++){
    
41.                 let 目录标志=i;
    
42.                 let 目录路径=获取系统特殊目录(目录标志);
    
43.                 console.log("系统目录："+i.toString(16).toUpperCase()+"\n"+目录路径+'\n');
    
44.         }
    
45. }
    
46. function 获取系统特殊目录(目录标识){
    
47.         const 执行宏调用=ExecuteExcel4Macro;
    
48.         let 获取目录路径=执行宏调用(`CALL("Shell32","SHGetFolderPathA","5JJJJF",0,${目录标识},0,0,"")`);
    
49.         return 获取目录路径;
    
50. }
    

复制代码

yyz219195888

收藏先，谢谢

mlwithss

先马后看
wps竟然还有的折腾

a66

不必要

ccxste

收藏谢谢

sxlfoldshen

谢谢分享

ebaqiang

纯路过～顶起来！

cutebe

占楼编辑

qqqaazz

谢谢

guong

不想折腾了