我现在做的东西是用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
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
解决方案 »
- 为什么有些用vb设计的程序(已生成.exe)脱离vb 环境便打不开?
- 自定义控件在XP风格化时产生错误
- 什么是后台程序?是指不论如何都在执行的程序么?别的操作对它无影响么?如果有类似msgbox是不是就不运行了?
- 问题~~~~各位vb的老鸟,vb6现在是不是淘汰了啊?
- 为什么我用print在picturebox上打印的数字转为图标后部分数字显示不清楚
- 怎样 取出时间日期型的日期 例如取出"2003-12-13 9:00:00" 的"2003-12-13
- 用setup factory7.0制作安装文件,如何检测是否已安装某一个插件,如果存在就卸载,然后安装比其新版本的插件(无需人工操作
- vb打包问题
- 请求菜单帮助(只限VB)
- VBA的高手看过来----小女子有急事相求
- access 数据库的问题,大家帮帮我
- 哪位高手帮帮小妹,很着急,是关于加密与文件读写的问题,谢谢了
代码如下:首先在窗体\模块前加上声明:
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我试过了,一定可以的,给分吧:)
关键是不知道是不是和tomcat有关。
我手动点击那个bat文件,tomcat可以启动的,我现在要实现的是如何让vb来启动它。
我考虑到是什么path的问题,但是我在系统变量中加了tomcat的路径,还是没用。
bat文件内容如下:
@echo off
cd C:\tomcat-4.0.3\bin
Call startup.bat
exit肯定可以的 ;)