quote:以下是引用Lyn在2009-06-03 08:58:21的发言:
是VB写的,用第一种方法行得通,但我们这台是测试机,WINCC运行是用开发版运行,退出激活后WINCCEXPLORER开发环境还在运行,RTProj.Path还能检测出路径,想用每一种方法配合使用,想问一下OnDeactivateExecute()这个函数在放在那里啊?WINCC帮助没看懂,只说退出时执行,例如我要关闭c:\vb.exe,是不是参数就是这个,OnDeactivateExecute(c:\vb.exe),以没用,请指教。
那有可能是我搞错了,我没装WinCC,你测试一下:
Dim oWinCCRT
Set oWinCCRT = CreateObject("WinCC-Runtime-Project")
If oWinCCRT.RuntimeProject <> "" Then
'#当前有激活的WinCC项目
END IF
OnDeactivateExecute不是叫你去调用它,而是用全局脚本编辑器打开并编辑:
方法是FindWindow查找窗口句柄,然后SendMessage关闭它。也可以用关闭进程的方式,比如:
ProgramExecute("ntsd -c q -pn VB.EXE");