如何用 BAT VBS 静默运行 EXE，自动关闭 EXE 已知确认类弹窗

cutebe

czjt1234 发表于 2026-5-9 15:59
js在winxp中测成功

但是我删除第三行，再把 表程序 全部替换为 表应用，一样运行成功

我画蛇添足了。

wzehu

cutebe 发表于 2026-5-9 10:43
以下已测试环境 Win7/Win10

我 XP 系统老旧，有个思路：
         以 VBS 作为主控，调用 JS 脚本，自动抓取包含「立即清理」「清理完毕」的弹窗，定位并模拟点击【确定】按钮。
     求大佬编写兼容 XP、不依赖更高系统的 JS 代码，配合 VBS 即可正常运行。

cutebe

wzehu 发表于 2026-5-9 16:54
我 XP 系统老旧，有个思路：
         以 VBS 作为主控，调用 JS 脚本，自动抓取包含「立即清理」「清理 ...

我这边没有XP系统了。

JS的代码是能在XP运行的。只是上面那个没办法测试，你自己测试一下。

一般正确装了WPS 或 Office 都能使用 new ActiveXObject("Excel.Application") 组件对象。

cutebe

并把文件存在判断放在开头：

1. //自动清理.JS        //执行宏调用ExecuteExcel4Macro
   
2. var 清理程序文件="D:\\自动清理\\CleanZ.exe";
   
3. var 文件环境 = new ActiveXObject("Scripting.FileSystemObject");
   
4. if(!文件环境.FileExists(清理程序文件)){WScript.Echo("文件不存在：\n"+清理程序文件);WScript.Quit();}
   
5. 
   
6. var 表应用 = new ActiveXObject("Excel.Application");        //创建表格程序对象
   
7. 
   
8. 自动运行清理武器测试(清理程序文件);
   
9. 
   
10. 表应用.Quit();        //退出环境
    
11. WScript.Quit();        //结束脚本
    
12. 
    
13. 
    
14. //-----函数-----//
    
15. function 自动运行清理武器测试(清理程序){
    
16.         //console.clear();
    
17.         var 标题="清理武器 V1.3 www.zwuqi.com",类="TFormCleanZ";        //程序窗口信息
    
18.         var 窗口句柄=0;
    
19.         while(!窗口句柄){
    
20.                 打开程序(清理程序);        //===打开程序===//
    
21.                 延时(500);
    
22.                 窗口句柄=查找窗口(标题,类);        //===找到软件窗口===//
    
23.         }
    
24.         if(窗口句柄){
    
25.                 //WScript.Echo("窗口句柄："+窗口句柄);
    
26.                 //显示窗口信息(窗口句柄);        //===句柄标题类===//
    
27.                 var 扫描按钮文字="扫描",按钮类="TButton";
    
28.                 var 扫描按钮句柄=下一个子窗口(窗口句柄,0,扫描按钮文字,按钮类);
    
29.                 投送点击按钮消息(扫描按钮句柄);
    
30.         }
    
31.         var 毫秒=500,关闭=0x10;
    
32.         while(1){
    
33.                 延时(毫秒);
    
34.                 var 对话框句柄=查找对话框窗口("清理武器");
    
35.                 if(对话框句柄){
    
36.                         var 浏览器未关=清理武器对话框检测("清理武器","正在运行中，无法",关闭);
    
37.                         if(浏览器未关){毫秒=300;/*WScript.Echo("关闭了浏览器提示对话框。");*/}
    
38.                         //var 清理确认=清理武器对话框检测("清理武器","要立即清理这些项目",关闭);
    
39.                         //if(清理确认){毫秒=500;/*WScript.Echo("关闭了清理确认对话框。");*/}
    
40.                         var 清理确认=清理武器对话框检测("清理武器","要立即清理这些项目","确定");
    
41.                         if(清理确认){毫秒=200;/*WScript.Echo("清理确认对话框：确定开始清理！");*/}
    
42.                         var 完成清理=清理武器对话框检测("清理武器","清理完毕","确定");
    
43.                         if(完成清理){/*WScript.Echo("确认完成清理对话框。");*/}
    
44.                 }
    
45.                 窗口句柄=查找窗口(标题,类);
    
46.                 if(完成清理 || (!窗口句柄)){break;}
    
47.                 //对话框句柄=0;
    
48.         }
    
49.         窗口句柄=查找窗口(标题,类);        //===找到软件窗口===//
    
50.         if(窗口句柄){
    
51.                 //WScript.Echo("窗口句柄："+窗口句柄);
    
52.                 //显示窗口信息(窗口句柄);        //===句柄标题类===//
    
53.                 var 退出按钮文字="退出",按钮类="TButton";
    
54.                 var 退出按钮句柄=下一个子窗口(窗口句柄,0,退出按钮文字,按钮类);
    
55.                 投送点击按钮消息(退出按钮句柄);
    
56.                 投送关闭窗口消息(窗口句柄);
    
57.         }
    
58. }
    
59. 
    
60. function 清理武器对话框检测(标题,部分提示内容,按钮动作){        //显示窗口及子窗口信息
    
61.         var 对话框句柄=查找对话框窗口(标题);
    
62.         //WScript.Echo("对话框句柄："+对话框句柄);
    
63.         if(!对话框句柄){/*WScript.Echo(标题+"对话框未找到！");*/return 0;}
    
64.         var 子窗口基本信息=找子窗口基本信息(对话框句柄,0,0);
    
65.         //WScript.Echo("子窗口基本信息（"+子窗口基本信息.length+"）："+子窗口基本信息);
    
66.         var 子窗口数=子窗口基本信息.length;
    
67.         for(var i=0;i<子窗口数;i++){
    
68.                 if(子窗口基本信息[i][1]==按钮动作 && 子窗口基本信息[i][2]=='Button'){
    
69.                         var 确定按钮句柄=子窗口基本信息[i][0];
    
70.                 }else{if(子窗口基本信息[i][1].indexOf(部分提示内容)!=-1 && 子窗口基本信息[i][2]=='Static'){
    
71.                         var 确认提示句柄=子窗口基本信息[i][0];
    
72.                 }}
    
73.         }
    
74.         while(确认提示句柄 && 对话框句柄){
    
75.                 if(按钮动作==0x10){投送关闭窗口消息(对话框句柄);}        //关闭对话框
    
76.                 else{投送点击按钮消息(确定按钮句柄);}        //发送点击按钮消息(确定按钮);
    
77.                 对话框句柄=查找对话框窗口(标题);
    
78.         }
    
79.         if(!对话框句柄 && 确认提示句柄){return 1;}
    
80. }
    
81. function 打开程序(文件路径){
    
82.         var 进程句柄=表应用.ExecuteExcel4Macro('CALL("Shell32","ShellExecuteA","JJFFJJJ",0,"open","'+文件路径+'",0,0,1)');
    
83.         //if(进程句柄>32){WScript.Echo("程序运行成功。");}else{WScript.Echo("程序打开失败！");}
    
84. }
    
85. function 延时(毫秒){
    
86.         表应用.ExecuteExcel4Macro('CALL("kernel32","Sleep","JJ",'+毫秒+')');
    
87. }
    
88. function 查找窗口(标题,类){        //返回句柄
    
89.         var 窗口句柄;
    
90.         if(!标题){        //标题为0
    
91.                 if(!类){窗口句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowA","JJJ",0,0)');}        //类为0       
    
92.                 else{窗口句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowA","JFJ","'+类+'",0)');}
    
93.         }else{
    
94.                 if(!类){窗口句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowA","JJF",0,"'+标题+'")');}        //类为0       
    
95.                 else{窗口句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowA","JFF","'+类+'","'+标题+'")');}
    
96.         }
    
97.         return 窗口句柄;
    
98. }
    
99. function 下一个子窗口(父句柄,上个子句柄,标题,类){
    
100.         var 子句柄;
     
101.         if(标题==0){        //标题为0               
     
102.                 if(类==0){子句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowExA","JJJJJ",'+父句柄+','+上个子句柄+',0,0)');        //类为0
     
103.                 }else{子句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowExA","JJJFJ",'+父句柄+','+上个子句柄+',"'+类+'",0)');}
     
104.         }else{        //有标题
     
105.                 if(类==0){子句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowExA","JJJJF",'+父句柄+','+上个子句柄+',0,"'+标题+'")');
     
106.                 }else{子句柄=表应用.ExecuteExcel4Macro('CALL("User32","FindWindowExA","JJJFF",'+父句柄+','+上个子句柄+',"'+类+'","'+标题+'")');}
     
107.         }
     
108.         return 子句柄;
     
109. }
     
110. function 投送点击按钮消息(按钮句柄){
     
111.         var 点击=0xF5;
     
112.         表应用.ExecuteExcel4Macro('CALL("User32","PostMessageA","JJJJJ",'+按钮句柄+','+点击+',0,0)');
     
113. }
     
114. function 投送关闭窗口消息(窗口句柄){
     
115.         var 关闭=0x10;
     
116.         表应用.ExecuteExcel4Macro('CALL("User32","PostMessageA","JJJJJ",'+窗口句柄+','+关闭+',0,0)');
     
117. }
     
118. function 查找对话框窗口(标题){
     
119.         var 对话框句柄=查找窗口(标题,"#32770");        //对话框类#32770
     
120.         return 对话框句柄;
     
121. }
     
122. function 找子窗口基本信息(父句柄,标题,类){        //显示句柄、标题、类
     
123.         var 第一个子句柄=下一个子窗口(父句柄,0,标题,类);
     
124.         var 子句柄=第一个子句柄,子窗口基本信息=[];
     
125.         while(子句柄){
     
126.                 var 子标题=获取窗口标题(子句柄);
     
127.                 var 子类名=获取类名(子句柄);
     
128.                 子窗口基本信息.push([子句柄,子标题,子类名]);
     
129.                 子句柄=下一个子窗口(父句柄,子句柄,标题,类);
     
130.         }
     
131.         return 子窗口基本信息;
     
132. }
     
133. function 获取窗口标题(窗口句柄){
     
134.         var 窗口标题长度=表应用.ExecuteExcel4Macro('CALL("User32","GetWindowTextLengthA","JJ",'+窗口句柄+')');
     
135.         var 缓冲区大小=窗口标题长度+1,窗口标题="";
     
136.         var 内存地址 = 表应用.ExecuteExcel4Macro('CALL("Kernel32", "VirtualAlloc", "JJJJJ", 0, '+缓冲区大小+', '+0x3000+', 4)');        //申请内存
     
137.         var 标题长度=表应用.ExecuteExcel4Macro('CALL("User32", "GetWindowTextA", "JJJJ", '+窗口句柄+','+内存地址+','+窗口标题长度+1+')');
     
138.         if(标题长度){窗口标题=内存读取字符串(内存地址);}
     
139.         表应用.ExecuteExcel4Macro('CALL("Kernel32", "VirtualFree", "JJJJ", '+内存地址+', 0, '+0x8000+')');        //释放内存
     
140.         return 窗口标题;
     
141. }
     
142. function 获取类名(窗口句柄){
     
143.         var 缓冲区大小=256,类名="";        //类名最长255
     
144.         var 内存地址=表应用.ExecuteExcel4Macro('CALL("Kernel32","VirtualAlloc","JJJJJ",0,'+缓冲区大小+','+0x3000+',4)');        //申请内存
     
145.         var 类名长度=表应用.ExecuteExcel4Macro('CALL("User32","GetClassNameA","JJJJ",'+窗口句柄+','+内存地址+','+缓冲区大小+')');
     
146.         if(类名长度){类名=内存读取字符串(内存地址);}
     
147.         表应用.ExecuteExcel4Macro('CALL("Kernel32","VirtualFree","JJJJ",'+内存地址+',0,'+0x8000+')');        //释放内存
     
148.         return 类名;
     
149. }
     
150. function 内存读取字符串(内存地址){        //返回字符串
     
151.         var 段长度=127;
     
152.         var 总字节=表应用.ExecuteExcel4Macro('CALL("Kernel32","lstrlenA","JJ",'+内存地址+')');        //内存文本字节数
     
153.         var 偏移字节=0,文本字符串=分段文本='';
     
154.         while(偏移字节<总字节){        //返回字符串F。        //返回超255字节时，也需要分段操作
     
155.                 分段文本=表应用.ExecuteExcel4Macro('CALL("Kernel32","lstrcpynW","FFJJ","",'+(内存地址+偏移字节)+','+段长度+')');
     
156.                 偏移字节+=分段文本.replace(/[^\x00-\xff]/g,'xx').length;        //计算字符串字节数
     
157.                 文本字符串+=分段文本;
     
158.         }
     
159.         return 文本字符串;
     
160. }
     

复制代码

环境系统为 XP 时，需要自行测试！

wzehu

cutebe 发表于 2026-5-9 17:23
我这边没有XP系统了。

JS的代码是能在XP运行的。只是上面那个没办法测试，你自己测试一下。

一直是:new ActiveXObject("Excel.Application找不到文件.
我Office12是便携版的,又下载office2007_10130 安装了.还是new ActiveXObject找不到文件
不会是要安装全部660 MB吧? 现在246mb
最近几天才接触JS,一眼黑屏啊! :'(

wzehu

czjt1234 发表于 2026-5-8 16:17
winxpsp3测试通过
最后不使用tasjkill结束程序，否则%temp%里面会残留一个.###文件 ...

我又有了个新思路：
因为 CleanZ.exe 主窗口和所有弹出的提示弹窗位置都是固定不变的。
只要提取到提示弹窗中【确定】的 TOP 位置
就能用循环 + 延时 Sleep 300 毫秒 +在TOP 位置  SendKeys 回车，完成所有自动操作。

aloha20200628

wzehu 发表于 2026-5-12 00:24
我又有了个新思路：
因为 CleanZ.exe 主窗口和所有弹出的提示弹窗位置都是固定不变的。
只要提取到提示弹 ...

前面已述，vbs本身获取不到子窗口的数据。
25楼代码已经尝试用 cleanZ.exe 产生的文件和子窗口出现前后的内存占用差值来间接捕获子窗口。
如果获取 ComputerZ.set 文件变化被实测此路不通，可改用抓取几个子窗口弹出前后的内存占用差值来捕获，方法已如前述。
楼主做些功课，以便大家拿到真实准确数据才可帮到你...

czjt1234

1. Dim oWshShell, oFSO, winAPI, s
   
2. 
   
3. Set oWshShell = CreateObject("WScript.Shell")
   
4. s = RePlace(WScript.ScriptFullName, WScript.ScriptName, "")
   
5. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
6. oWshShelL.Run "cmd /c copy """ & s & "dynwrap.dll"" %windir%\system32", 0, True
   
7. oWshShelL.Run "regsvr32 /s %windir%\system32\dynwrap.dll", 0, True
   
8. Set winAPI = CreateObject("DynamicWrapper")
   
9. winAPI.Register "user32.dll", "FindWindow", "i=ss", "f=s", "r=l"
   
10. s = "ComputerZ.set"
    
11. If oFSO.FileExists(s) Then oFSO.DeleteFile s, True
    
12. oWshShell.Run "CleanZ.exe"
    
13. While oWshShell.AppActivate("清理武器") = False
    
14.     WScript.Sleep 200
    
15. Wend
    
16. oWshShell.SendKeys "{ENTER}"    '开始扫描
    
17. Do
    
18.     s = winAPI.FindWindow(vbNullString, "清理武器")
    
19.     If CBool(s) Then Exit Do
    
20.     WScript.Sleep 200
    
21. Loop
    
22. While oWshShell.AppActivate("清理武器") = False
    
23.     WScript.Sleep 200
    
24. Wend
    
25. oWshShell.SendKeys "{ENTER}"    '开始清理
    
26. While oFSO.FileExists("ComputerZ.set") = False
    
27.     WScript.Sleep 200
    
28. Wend
    
29. While oWshShell.AppActivate("清理武器") = False
    
30.     WScript.Sleep 200
    
31. Wend
    
32. oWshShell.SendKeys "%{F4}"
    
33. WScript.Sleep 200
    
34. oWshShell.SendKeys "%{F4}"    '退出程序
    
35. oFSO.DeleteFile "ComputerZ.set", True

复制代码

网盘
https://pan.baidu.com/s/1nvDKz1n
下载文件
公开分享\vbs\DynamicWrapper\dynwrap.dll

把文件和vbs和CleanZ.exe放一起

winxp测试通过

cutebe

wzehu 发表于 2026-5-9 23:09
一直是:new ActiveXObject("Excel.Application找不到文件.
我Office12是便携版的,又下载office2007_10130 ...

尝试检查组件是否安装。看看是否有类似如下注册表：

1. Windows Registry Editor Version 5.00
   
2. 
   
3. [HKEY_CLASSES_ROOT\Excel.Application]
   
4. @="Microsoft Office Excel 应用程序"
   
5. 
   
6. [HKEY_CLASSES_ROOT\Excel.Application\CLSID]
   
7. @="{00024500-0000-0000-C000-000000000046}"
   
8. 
   
9. [HKEY_CLASSES_ROOT\Excel.Application\CurVer]
   
10. @="Excel.Application.12"
    
11. ".ksobak"="Excel.Application.12"
    
12. 
    
13. [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Classes\CLSID\{00024500-0000-0000-C000-000000000046}]
    
14. @="Microsoft Office Excel 应用程序"
    
15. 
    
16. [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Classes\CLSID\{00024500-0000-0000-C000-000000000046}\InprocHandler32]
    
17. @="ole32.dll"
    
18. 
    
19. [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Classes\CLSID\{00024500-0000-0000-C000-000000000046}\LocalServer32]
    
20. @="D:\\PROGRA~1\\WPSOFF~1\\office6\\et.exe /Automation"
    
21. ".ksobak"=""
    
22. "LocalServer32"=hex(7):44,00,3a,00,5c,00,50,00,52,00,4f,00,47,00,52,00,41,00,\
    
23.   7e,00,31,00,5c,00,57,00,50,00,53,00,4f,00,46,00,46,00,7e,00,31,00,5c,00,6f,\
    
24.   00,66,00,66,00,69,00,63,00,65,00,36,00,5c,00,65,00,74,00,2e,00,65,00,78,00,\
    
25.   65,00,20,00,2f,00,41,00,75,00,74,00,6f,00,6d,00,61,00,74,00,69,00,6f,00,6e,\
    
26.   00,00,00,00,00
    
27. 
    
28. [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Classes\CLSID\{00024500-0000-0000-C000-000000000046}\ProgID]
    
29. @="Excel.Application.12"
    
30. ".ksobak"="Excel.Application.12"
    
31. 
    
32. [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Classes\CLSID\{00024500-0000-0000-C000-000000000046}\VersionIndependentProgID]
    
33. @="Excel.Application"
    
34. 
    
35. [HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{00024500-0000-0000-C000-000000000046}]
    
36. @="Microsoft Office Excel 应用程序"
    
37. 
    
38. [HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{00024500-0000-0000-C000-000000000046}\InprocHandler32]
    
39. @="ole32.dll"
    
40. 
    
41. [HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{00024500-0000-0000-C000-000000000046}\LocalServer32]
    
42. @="D:\\PROGRA~1\\WPSOFF~1\\office6\\et.exe /Automation"
    
43. ".ksobak"=""
    
44. "LocalServer32"=hex(7):44,00,3a,00,5c,00,50,00,52,00,4f,00,47,00,52,00,41,00,\
    
45.   7e,00,31,00,5c,00,57,00,50,00,53,00,4f,00,46,00,46,00,7e,00,31,00,5c,00,6f,\
    
46.   00,66,00,66,00,69,00,63,00,65,00,36,00,5c,00,65,00,74,00,2e,00,65,00,78,00,\
    
47.   65,00,20,00,2f,00,41,00,75,00,74,00,6f,00,6d,00,61,00,74,00,69,00,6f,00,6e,\
    
48.   00,00,00,00,00
    
49. 
    
50. [HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{00024500-0000-0000-C000-000000000046}\ProgID]
    
51. @="Excel.Application.12"
    
52. ".ksobak"="Excel.Application.12"
    
53. 
    
54. [HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{00024500-0000-0000-C000-000000000046}\VersionIndependentProgID]
    
55. @="Excel.Application"
    

复制代码

cutebe

D:\Program Files\WPS\office6\ksomisc.exe

WPS Office 综合修复/配置工具》高级（A）…
WPS Office 配置工具》重置修复》重新注册组件（R）

中间“重新注册WPS组件”

绿色版 WPS 2016 v10.1
链接：https://pan.baidu.com/s/1vR3lHqPu8HGPHtZomFl6LA
提取码：vvwb

wzehu

我, 删除了office2007_10130,把Office12换了个文件夹,重启电脑:内存不能为读,一键内存清理,显卡.dll 不过....
全删注册表[office,EXCEL,WINWORD," WORD  "] XP 总算正常了.
其实当初也有WPS的,也删了,一直是...
这回都删干净了,再装office应该没问题吧.

wzehu

aloha20200628 发表于 2026-5-12 11:25
前面已述，vbs本身获取不到子窗口的数据。
25楼代码已经尝试用 cleanZ.exe 产生的文件和子窗口出现前后的 ...

CleanZ在弹窗时会有一声"嘀"。如果能扑获"嘀"声的时机也就可以在准确时间里回车确定了....

wzehu

czjt1234 发表于 2026-5-12 16:48
网盘
https://pan.baidu.com/s/1nvDKz1n
下载文件

谢谢你的  DLL     
终于搞定了:

1. 
   
2. Dim oWshShell,oFSO,winAPI,s
   
3. Set oWshShell=CreateObject("WScript.Shell")
   
4. Set oFSO=CreateObject("Scripting.FileSystemObject")
   
5. Set winAPI=CreateObject("DynamicWrapper")
   
6. winAPI.Register "user32.dll","FindWindow","i=ss","f=s","r=l"
   
7. 
   
8. s="ComputerZ.set"
   
9. If oFSO.FileExists(s) Then oFSO.DeleteFile s, True
   
10. 
    
11. oWshShell.Run "CleanZ.exe"  
    
12. 
    
13. Call SendKey   ' 开始扫描 :    WScript.Sleep 800
    
14.   
    
15. Do
    
16.     s = winAPI.FindWindow(vbNullString, "清理武器")
    
17.     If CBool(s) Then Exit Do
    
18.     WScript.Sleep 200
    
19. Loop
    
20. 
    
21. Call SendKey   ' 开始清理 :    WScript.Sleep 800
    
22. 
    
23. While oFSO.FileExists("ComputerZ.set") = False:WScript.Sleep 200:Wend
    
24. 
    
25.     oFSO.DeleteFile "ComputerZ.set", True
    
26.     oWshShell.SendKeys "{ENTER}"    '清理完成
    
27.     oWshShell.Run "taskkill /f /im CleanZ.exe", 0
    
28. WScript.Quit
    
29. 
    
30. Sub SendKey
    
31.     While oWshShell.AppActivate("清理武器") = False:WScript.Sleep 200:Wend
    
32.     oWshShell.SendKeys "{ENTER}"
    
33. End Sub
    

复制代码

这里代码行不能再少了.
必须留WScript.Sleep 800,不然ComputerZ.set也删除不了.跟本反应不过来

    再一次      感谢!        

wzehu

cutebe 发表于 2026-5-9 17:41
并把文件存在判断放在开头：

环境系统为 XP 时，需要自行测试！

    我刚才安装了以前的W.P.S__10.1.0.7468.exe
    你编写的 JS 运行正常,只代码预留等待时间过短,
    主页面关闭后才生成  ComputerZ.set.

    前两天Excel.Application 的问题很可能是系统有WPS与Office12并存的原故.
    感谢网友不吝赐教，让我受益匪浅。。。   

aloha20200628

DynamicWrapper 在 winXP 系统可正常注册使用，win7 系统也许也可以，但到了 win10 高版本以后，会被系统视为高危对象自动删除，被建议用 powershell 平替，阻断了 vbs/jscript 借此调用 win32 系统功能的一个选项，有些可惜了...