我的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但是,不知道找到之后可以怎么作才能关闭这个窗体,请指教。谢谢。
解决方案 »
- 继续发贴,SQL查询问题
- 想给自己的程序加错误记录,大家帮忙!
- dll组件调试问题?
- 龙卷风请指教一二,其他各位指导的也望赐教,先谢过了
- 在VB6里怎样用ADO获取ORACLE9的存储过程或函数的结果集
- 我想将richtext中的内容存入access中,请问access能否将richtext的字体颜色,背景颜色,等都保存起来,而且将来使用时还能复原
- 如何实现“上一页”“下一页”的功能
- 如何修改安装向导生成的缺省安装目录?
- 如何将EXCEL里的数据导入到VB程序里?
- 固定值进行随机抽取怎么做啊。。。
- 高分求概念和思路,关于socket发送文件~~``得到思路,马上结贴,说到做到~``
- 这是怎么回事那?
所以请问还有没有更好的方法?
Dim wnd As Long
wnd = FindWindow(vbNullString, "Tomcat")
Debug.Print wnd If wnd <> 0 Then
SendMessage wnd, WM_CLOSE, 0, 2
End If