我的VB程序里面需要在启动时自动启动TOMCAT,关闭时又自动关闭TOMCAT。
我可以在启动时用SHELL来启动这个TOMAT,但是关闭时就不知道怎么关闭这个打开的进程了。
我看了一下,TOMCAT启动后,会有一个叫做TOMCAT的DOS窗体出现。
在WINDOWS任务管理器里面,
可以看到:
1、第一个标签页【应用程序】列表里面多了一个叫做Tomcat的窗苦。
2、第二个标签页【进程】里面多了个叫做java的进程。
我用如下代码找到了窗体句柄:
Private Sub Command2_Click()
Dim wnd As Long
wnd = FindWindow(vbNullString, "Tomcat")
Debug.Print wnd
End Sub但是,不知道找到之后可以怎么作才能关闭这个窗体,请指教。谢谢。
我可以在启动时用SHELL来启动这个TOMAT,但是关闭时就不知道怎么关闭这个打开的进程了。
我看了一下,TOMCAT启动后,会有一个叫做TOMCAT的DOS窗体出现。
在WINDOWS任务管理器里面,
可以看到:
1、第一个标签页【应用程序】列表里面多了一个叫做Tomcat的窗苦。
2、第二个标签页【进程】里面多了个叫做java的进程。
我用如下代码找到了窗体句柄:
Private Sub Command2_Click()
Dim wnd As Long
wnd = FindWindow(vbNullString, "Tomcat")
Debug.Print wnd
End Sub但是,不知道找到之后可以怎么作才能关闭这个窗体,请指教。谢谢。
所以请问还有没有更好的方法?
Dim wnd As Long
wnd = FindWindow(vbNullString, "Tomcat")
Debug.Print wnd If wnd <> 0 Then
SendMessage wnd, WM_CLOSE, 0, 2
End If