求一个在CAD界面瞬间关掉所有网页的lsp程序

半听可乐

求一个在CAD界面瞬间关掉所有网页的lsp程序（办公室位置不太好，你懂得）
使用要求：
1.输入命令gb，确认
2.所有网页被关闭

highflybir

2. 
   
3. (defun c:GB(/ SWbemLocator WQL Service IEProcesses isClosed)
   
4.   (setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))
   
5.   (setq Service (vlax-invoke SWbemLocator 'ConnectServer))
   
6.   (setq WQL "SELECT * FROM Win32_Process WHERE Name='IEXPLORE.EXE'" )
   
7.   (setq IEProcesses (vlax-invoke Service 'ExecQuery WQL))
   
8.   (setq isClosed nil)
   
9.   (vlax-for IE IEProcesses
   
10.     (if (not isClosed)
    
11.       (progn
    
12.         (vlax-invoke IE 'Terminate)
    
13.         (setq isCLosed T)
    
14.       )
    
15.     )
    
16.   )
    
17.   (vlax-release-object IEProcesses)
    
18.   (vlax-release-object Service)
    
19.   (vlax-release-object SWbemLocator)
    
20.   (princ)
    
21. )

<br /> (defun c:GB(/ SWbemLocator WQL Service IEProcesses isClosed)<br />   (setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))<br />   (setq Service (vlax-invoke SWbemLocator 'ConnectServer))<br />   (setq WQL "SELECT * FROM Win32_Process WHERE Name='IEXPLORE.EXE'" )<br />   (setq IEProcesses (vlax-invoke Service 'ExecQuery WQL))<br />   (setq isClosed nil)<br />   (vlax-for IE IEProcesses<br />     (if (not isClosed)<br />       (progn <br />         (vlax-invoke IE 'Terminate)<br />         (setq isCLosed T)<br />       )<br />     )<br />   )<br />   (vlax-release-object IEProcesses)<br />   (vlax-release-object Service)<br />   (vlax-release-object SWbemLocator)<br />   (princ)<br /> )

仅仅在64位上win7 ,IE8测试通过，未测试其他版本。

e2002

你不如弄个支持 boss键隐藏的浏览器 ,一键搞定.

半听可乐

e2002 发表于 2012-7-23 16:26
你不如弄个支持 boss键隐藏的浏览器 ,一键搞定.

只用IE，老板来了最好是看到CAD界面噻，在CAD界面操作最隐蔽

gmstcn

楼上版大神速~

yarp

我觉得有必要开发一个cad浏览器，在cad的一个文档中看网页。

highflybir

yarp 发表于 2012-7-23 20:16
我觉得有必要开发一个cad浏览器，在cad的一个文档中看网页。

好像有这样的一个程序，忘记在哪儿了，搜下？

半听可乐

highflybir 发表于 2012-7-23 20:10
仅仅在64位上win7 ,IE8测试通过，未测试其他版本。

谢谢 highflybir   版主！这正是我想要的，嘿嘿，很强大！

xiaxiang

highflybir 发表于 2012-7-23 15:22
仅仅在64位上win7 ,IE8测试通过，未测试其他版本。

很好了，不如再做一个可以关闭所有类型浏览器的程序，包括非IE内核的。。。有些浏览器不产生iexplore.exe进程的

highflybird

xiaxiang 发表于 2012-7-23 22:35
很好了，不如再做一个可以关闭所有类型浏览器的程序，包括非IE内核的。。。有些浏览器不产生iexplore.exe ...

2. 
   
3. ;;;=============================================================================
   
4. ;;;关闭所有的浏览器进程                                                         
   
5. ;;;=============================================================================
   
6. (defun C:GB()
   
7.   (defun Close_All_IExplore (EXENAME / SWbemLocator WQL Service IEProcesses isClosed)
   
8.     (setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))
   
9.     (setq Service (vlax-invoke SWbemLocator 'ConnectServer))
   
10.     (setq WQL (strcat "SELECT * FROM Win32_Process WHERE Name='" ExeName ".EXE'" ))
    
11.     (setq IEProcesses (vlax-invoke Service 'ExecQuery WQL))
    
12.     (vlax-for IE IEProcesses
    
13.        (vlax-invoke IE 'Terminate)
    
14.     )
    
15.     (vlax-release-object IEProcesses)
    
16.     (vlax-release-object Service)
    
17.     (vlax-release-object SWbemLocator)
    
18.   )  
    
19.   (VL-CATCH-ALL-APPLY
    
20.     'mapcar
    
21.     (list 'Close_All_IExplore
    
22.    (list "IEXPLORE" "360se" "360chrome" "chrome" "opera" "firefox") ;还有什么浏览器自己添加吧！
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

<br /> ;;;=============================================================================<br /> ;;;关闭所有的浏览器进程                                                         <br /> ;;;=============================================================================<br /> (defun C:GB()<br />   (defun Close_All_IExplore (EXENAME / SWbemLocator WQL Service IEProcesses isClosed)<br />     (setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))<br />     (setq Service (vlax-invoke SWbemLocator 'ConnectServer))<br />     (setq WQL (strcat "SELECT * FROM Win32_Process WHERE Name='" ExeName ".EXE'" ))<br />     (setq IEProcesses (vlax-invoke Service 'ExecQuery WQL))<br />     (vlax-for IE IEProcesses<br />        (vlax-invoke IE 'Terminate)<br />     )<br />     (vlax-release-object IEProcesses)<br />     (vlax-release-object Service)<br />     (vlax-release-object SWbemLocator)<br />   )  <br />   (VL-CATCH-ALL-APPLY<br />     'mapcar<br />     (list 'Close_All_IExplore<br />    (list "IEXPLORE" "360se" "360chrome" "chrome" "opera" "firefox") ;还有什么浏览器自己添加吧！<br />     )<br />   ) <br />   (princ)<br /> )<br />