半听可乐 发表于 2012-7-23 15:22:50

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

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

highflybir 发表于 2012-7-23 15:22:51


(defun c:GB(/ SWbemLocator WQL Service IEProcesses isClosed)
(setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))
(setq Service (vlax-invoke SWbemLocator 'ConnectServer))
(setq WQL "SELECT * FROM Win32_Process WHERE Name='IEXPLORE.EXE'" )
(setq IEProcesses (vlax-invoke Service 'ExecQuery WQL))
(setq isClosed nil)
(vlax-for IE IEProcesses
    (if (not isClosed)
      (progn
      (vlax-invoke IE 'Terminate)
        (setq isCLosed T)
      )
    )
)
(vlax-release-object IEProcesses)
(vlax-release-object Service)
(vlax-release-object SWbemLocator)
(princ)
)仅仅在64位上win7 ,IE8测试通过，未测试其他版本。

e2002 发表于 2012-7-23 16:26:42

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

半听可乐 发表于 2012-7-23 16:41:10

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

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

gmstcn 发表于 2012-7-23 20:11:40

楼上版大神速~

yarp 发表于 2012-7-23 20:16:02

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

highflybir 发表于 2012-7-23 20:21:36

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

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

半听可乐 发表于 2012-7-23 20:34:39

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

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

xiaxiang 发表于 2012-7-23 22:35:37

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

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

highflybird 发表于 2012-7-24 05:19:53

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


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

页: [1] 2 3 4 5
查看完整版本: 求一个在CAD界面瞬间关掉所有网页的lsp程序