How to call a VB6 application from Windows Service Application

[DH]

I hope this is a right place to post my question

I'm working on a Windows service application with VB.net. The purpose is to let the service application as a monitor to periodically check a launching flag file. If the flag was found the service will trigger to run a finance calculating program (VMPE4SRVAPP.ex e, a VB 6.0/Access application but without windows interface). I added a Process and two Timers on the Service to do checking and launching jobs (Process1.Start to call VMPE4SRVAPP.exe ) . Please see the following code

Imports System.ServiceP roces

Public Class MyNewServic
Inherits System.ServiceP rocess.ServiceB as

Protected Overrides Sub OnStart(ByVal args() As String

EventLog1.Write Entry("In OnStart"
Timer2.Enabled = Tru

End Su

Protected Overrides Sub OnStop(

EventLog1.Write Entry("In OnStop."

End Su

Private Sub Timer1_Elapsed( ByVal sender As System.Object, ByVal e As System.Timers.E lapsedEventArgs ) Handles Timer1.Elapse

Timer1.Enabled = Fals

Dim myProcess As New Proces

Process1.StartI nfo.FileName = "C:\VMPE4SRVAPP \VMPE4SRVAPP.ex e
Process1.StartI nfo.Arguments = "vm3retail
Process1.StartI nfo.WorkingDire ctory = "C:\VMPE4SR VAPP
Process1.StartI nfo.RedirectSta ndardOutput = Fals
Process1.StartI nfo.WindowStyle = ProcessWindowSt yle.Minimize
Process1.Start(

Timer2.Enabled = Tru

End Su

Private Sub Timer2_Elapsed( ByVal sender As System.Object, ByVal e As System.Timers.E lapsedEventArgs ) Handles Timer2.Elapse

If Len(Dir("C:\tem p\LaunchingFlag .ok")) > 0 The
Timer2.Enabled = Fals
Kill("C:\temp\L auchingFlag.ok"
Timer1.Enabled = Tru
End I

End Su

End Clas

I installed the service. When I started it, I could see (from windows explorer) a MDB file was generated and its size indicated that data was loaded. I also saw VMPE4SRVAPP.exe was displayed on Processes tab of Windows Task Manager. However the process stayed on the tab forever. When I tried to open the MDB file, I got "Access denied... It is already being in use". When I tried to copy the MDB I got "Sharing violation".
I can only access the MDDB file after I re-boot my PC
What's wrong with my code? Or is there a better way to call my VB 6.0 Calc application in Windows Service? Can I use Shell in a Service instead of Process (If I can how to coding them)

Thanks for your help

[MW]

DH,

You can check if the process has completed using the HasExited property.

It is possible that something is preventing your VB6 process from
completing? Are there any message boxes in the application that might be
holding up your VB6 app? Since you cannot access the UI you may not know
about it. Possibly a simple way to find out is to execute the exe externally
with the same arguments and see if the application terminates in the end.

Also since this process is starting from a service, I would set the
CreateNoWindow = True and the WindowStyle to hidden, because there is no
user input to the UI of the process.

You can shell execute if you set ProcessStartInf o.UseShellExecu te to True.
However if you do that you will not be able to redirect output or error
streams in your service application.

HTH
Wazir

[DH]

Hi Wazir

Good start point! I will try to run my VB6.0 exe externally to see if any MsgBox hold it to end the job. You mentioned "CreateNoWindow "/"WindowStyl e". Are they properties of Process (I will check them out later afternoon)

DH

[MW]

DH,

If you have any message boxes (or anything else that may require user input)
then the process will not complete inside the service. It will be a good
idea to remove them if you can (or allowed to). Also when you test the app
externally make sure the arguments are the same as you gave in the windows
service.

The properties belong to the Process.StartIn fo object

Dim oProcessStartIn fo as new ProcessStartInf o()
Dim oProcess as Process

With oProcessStartIn fo
.FileName = [Filename]
.Arguments = [Arguments]
.UseShellExecut e = False
.CreateNoWindow = True
End With
oProcess = Process.Start(o ProcessStartInf o)

Regards,
Wazir
"DH" <an*******@disc ussions.microso ft.com> wrote in message
news:4E******** *************** ***********@mic rosoft.com...

Hi Wazir.

Good start point! I will try to run my VB6.0 exe externally to see if any MsgBox hold it to end the job. You mentioned "CreateNoWindow "/"WindowStyl e".
Are they properties of Process (I will check them out later afternoon)?
DH