求转换脚本

feiyike

请帮转下脚本，转为vbs或者pecmd

1. rem "acad.exe" 存在多个
   
2. 
   
3. : p
   
4. 
   
5. wmic process get name,processid,executablepath /format:hform|Find /i "C:\Program Files (x86)\AutoCAD 2008\acad.exe"
   
6. 
   
7. IF ERRORLEVEL 1 goto bb
   
8. 
   
9. IF ERRORLEVEL 0 goto p
   
10. 
    
11. :bb
    
12. 
    
13. reg delete "HKCU\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:804\Profiles\cass91" /f
    
14. 
    
15. exit

复制代码

caocaofff

PECMD脚本：

IFEX ! :pacad.exe,REGI HKCU\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:804\Profiles\cass91=

Anson4

caocaofff 发表于 2020-8-2 20:21
PECMD脚本：

IFEX ! :pacad.exe,REGI HKCU\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:804\Profiles\ca ...

楼主这一句代码好简洁啊，高手！

feiyike

caocaofff 发表于 2020-8-2 20:21
PECMD脚本：

IFEX ! :pacad.exe,REGI HKCU\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:804\Profiles\ca ...

非常感谢！
我要实现的目的是这样的，系统可能同时运行cad2008和cad2014版，在CAD2008命令行执行命令后，循环检测，检测到CAD2008停止运行后后，继续下步操作。
只检查程序名称，不包含路径会误判，上面的批处理已经达到了目的，只是不想在任务栏看到图标
CAD调用外部程序同样支持vbs和exe,因此想转换下

红毛樱木

feiyike 发表于 2020-8-3 17:22
非常感谢！
我要实现的目的是这样的，系统可能同时运行cad2008和cad2014版，在CAD2008命令行执行命令后 ...

1. IFEX :pacad.exe,
   
2. 
   
3. {*
   
4. 
   
5.     //存在acad.exe进程，执行1
   
6. 
   
7.     FIND  --pid*@. &acad_Pids,acad.exe
   
8. 
   
9.     FIND $%&acad_Pids%<>,
   
10. 
    
11.     {*
    
12. 
    
13.         FORX *NL &acad_Pids,&acad_Pid,
    
14. 
    
15.         {*
    
16. 
    
17.             MSTR* * &acad_Path=<6>&acad_Pid
    
18. 
    
19.             MESS. %&acad_Path%  //这里是acad.exe进程的路径，自己判断下再继续
    
20. 
    
21.         }
    
22. 
    
23.     }
    
24. 
    
25. }!  
    
26. 
    
27. {*
    
28. 
    
29.     //不存在acad.exe进程，执行2
    
30. 
    
31. }
    
32. 
    

复制代码

9zhmke

1、如果是讲效率，应该使用VBS而不是批处理，这样耗CPU更少；
2、如果是你自己的PE，不应该做这个后台监视，而应该把快捷方式指向批处理或者VBS，在运行程序之前直接处理注册表，然后再去运行程序。

feiyike

9zhmke 发表于 2020-8-3 23:01
1、如果是讲效率，应该使用VBS而不是批处理，这样耗CPU更少；
2、如果是你自己的PE，不应该做这个后台监视 ...

是这样，
1.我知道vbs好，可惜不会，而且并不是一直检测，只会运行几秒钟。
2.这是用在正常系统的，自用，作用是恢复cass（一个CAD二次开发的软件）的原始配置（其实是自己预先调整好的）。
软件退出时会将当前状态保存在注册表，所以只能等软件关闭后替换
3.并不是经常这样做，切原始快捷方式支持文件拖放打开，中转一下不太好
4.这是给毛手毛脚的同事用的，命令集成在CAD菜单，尽量方便，我自己不怎么需要