vlisp操作引发的死机情况
 

vlisp操作引发的死机情况
www.dimcax.com
vlisp操作引发的死机情况
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d
请问这种情况怎么解决呀？
d
使用wmi查看共享 但是需要正确的用户名和密码(管理员帐户)
(defun test()
(setq wmi (vlax-create-object "wbemscripting.swbemlocator"))
(setq meth1 (vlax-invoke-method wmi 'connectserver "192.168.0.128" "username" "password" nil nil nil nil nil ))
(setq meth2 (vlax-invoke-method meth1 'execquery "select * from win32_share" nil nil nil ))
(vlax-for n meth2
(print (vlax-get n "name"))
)
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
谢谢nonsmall的支持。
是的，你的方法是可以的，而且很好。
但是如果192.168.0.128根本就不存在时，反应同样是很慢，而且出现以下提示：
错误: automation 错误。 rpc 服务器不可用。
现在的难处是，用vl读取网络文件夹时，如果网络不存在，读取很久才会有回值，也就是
我说有假死机现象。
如果我们用ie试链接不存在的网络，反应也同样是很慢。所以我想是不是没有办法解决这个问题咯？
请大家说明
d
方法1:
使用dos命令ping查看是否可以连接
(setq ob_shell (vlax-create-object "wscript.shell"))
(setq ip "192.168.0.128")
(setq file "d:\\1.txt")
(vlax-invoke-method ob_shell 'run (strcat "cmd /k ping " ip " >" file) 0)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
nonsmall在