一个比较不常见的问题求教

Dani1988

如何通过lisp或其他语言代码的方式关闭这个窗口

mahuan1279

退出不了？

Dani1988

mahuan1279 发表于 2023-3-12 11:03
退出不了？

可以退出，我想用代码方式关闭

masterlong

搜一下baitang大佬的帖子

Bao_lai

Alt+Q组合键
(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "%q")

zml84

https://mp.weixin.qq.com/s/BzEFQJ8RyY5XMfEmy4hoJA

;;;=====================================================*
;;;功能：关闭进程                                                   *
;;;参数：str_EXEName  ----- 进程名称。例如"EXCEL.exe" "QQ.exe"      *
;;;返回：若成功，返回T；否则nil                                     *
;;;日期：zml84 于 2012-11-04                                        *
;;;测试：(ZL-EXE-KILL "QQ.EXE")                                     *
(defun ZL-EXE-KILL (str_EXEName        / SWbemLocator WQL Service Processes
                    isClosed)
    (if        (and(wcmatch (getvar "PLATFORM") "*Windows*");_Windows操作系统
            (setq SWbemLocator
                     (vlax-create-object "WbemScripting.SWbemLocator")
            )
            (setq Service (vlax-invoke SWbemLocator 'ConnectServer))
            (setq WQL
                     (strcat "SELECT * FROM Win32_Process WHERE Name='"
                             str_EXEName
                             "'"
                     )
            )
            (setq Processes (vlax-invoke Service 'ExecQuery WQL))
        )
           (progn
               (vlax-for IE Processes
                   (vlax-invoke IE 'Terminate)
               )
               (vlax-release-object Processes)
               (vlax-release-object Service)
               (vlax-release-object SWbemLocator)
           )
    )
)

cchessbd

你研究下这个帖子吧。这个关闭比较完美，http://bbs.mjtd.com/thread-184571-1-1.html

就是代码自动关闭的。不过要改动一下数据，不然时间很长。
另外就是需要把他的文件编译到你的vlx才行。

vlide出来的窗口无进程，楼上几位回复都有一些缺陷。

Dani1988

cchessbd 发表于 2023-3-13 07:47
你研究下这个帖子吧。这个关闭比较完美，http://bbs.mjtd.com/thread-184571-1-1.html

就是代码自动关闭 ...

vlide出来的窗口是无进程，试验了这个dat的方法在vlide最小化时关闭不了，谢谢提供方法，不够直接关闭我再研究研究

Dani1988

zml84 发表于 2023-3-12 20:13
https://mp.weixin.qq.com/s/BzEFQJ8RyY5XMfEmy4hoJA

;;;============================================ ...

谢谢提供方法

Dani1988

Bao_lai 发表于 2023-3-12 17:10
Alt+Q组合键
(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "%q")

这个方案试了，可以关闭
就是vlide最小化时，要先判断vlide的状态，然后C:vlide显示出来，再关闭