如何让vb启动tomcat服务器？

Question

我现在做的东西是用tomcat做为web服务器的，现在希望用vb写个小程序来启动tomcat。原先tomcat的启动是调用个tomcat目录下bin里面的一个startup.bat批处理文件，现在放在vb中实现，
1)
Dim a As Double
a = Shell("Start ""C:\tomcat-4.0.3\bin\startup.bat""")2)
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As LongWinExec "C:\tomcat-4.0.3\bin\startup.bat", 03)
就是建立一个快捷方式，然后调用这个快捷方式以上的方法我都试过了，都不行。 郁闷死了！  
       
顺便说一下，tomcat版本为4.0.3

Answer 1

直接执行那个batShell "C:\tomcat-4.0.3\bin\startup.bat"

Answer 2

很简单，用API函数ShellExecute来做：
代码如下：首先在窗体\模块前加上声明：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
' 然后在某个事件中写上如下代码(这里是mnuNewuser_Click事件）
Private Sub mnuNewuser_Click()
    ShellExecute 0, "open", "d:\123456789\a.bat", vbNullString, vbNullString, 1
End Sub我试过了，一定可以的，给分吧：）

Answer 3

都不行的，dos窗口一闪而过，后面就没戏了。你们说的我都用过的，我自己也写过一些别的bat文件，然后是可以执行的。
关键是不知道是不是和tomcat有关。

Answer 4

to aalei(阿磊);什么叫tomcat有问题啊？
我手动点击那个bat文件，tomcat可以启动的，我现在要实现的是如何让vb来启动它。
我考虑到是什么path的问题，但是我在系统变量中加了tomcat的路径，还是没用。

Answer 5

你用shell调用bat文件来执行，
bat文件内容如下：
@echo off
cd C:\tomcat-4.0.3\bin
Call startup.bat
exit肯定可以的  ；）