[原创] 函数方式执行vbs语句(第二代)

yyzhan12

其实这就是用VLISP把语句写入VBS脚本,再执行VBS脚本而已.

要想调用API,其实也可以用种方法,但关键是VBS脚本不能直接调用API,我想netbee就卡在这里

yyzhan12

试试这个,运行j8,调用了API,结束EXPLORER.EXE进程

nonsmall

yyzhan12发表于2009-1-4 9:24:00试试这个,运行j8,调用了API,结束EXPLORER.EXE进程45640

楼上朋友调用的叫 WMI 不是 API 哦

写个VBS运行是简单的 下一步要处理好返回值让Lisp得到才行

而调用WMI关闭进程不必写个VBS出来那么麻烦:

(defun c:kill( / con item win32_process wmi)
  (setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
        con (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil)
        Win32_Process (vlax-invoke con 'ExecQuery "Select * from Win32_Process"))
  (vlax-for item Win32_Process
    (if (= "explorer.exe" (vlax-get item 'name))
     (vlax-invoke item 'terminate)
    )
  )
)

yyzhan12

 

oyxx1023

楼上图片看不见.

nonsmall

http://technet.microsoft.com/zh-cn/magazine/2008.11.heyscriptingguy.aspx

微软的官网