VB Application As Windows Service Not Getting Unload Events After Relogging Wndows
We are running VB application as a windows service using NTSVC.ocx.
If I log off from windows and relog in into it, my service is still running as per the expectation. But when I try to close my application using close button, it is not responding to close button click. All other functionality is working fine.
Is it a VB apllication problem? Anybody has faced such type of problem before?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
VB6 Application As Windows Service.
Kudos to y'all!!! I've finished creating a Time and Attendance application which uses biometric terminals to collect scan times from employees. This application would do nothing but calculate the in and out times according to our requirements and has only the ability to manage terminals (add, delete, configure, etc.). The data are dumped to an SQL Server database and the application receives data via TCP/IP with the help of the terminal's SDK. Everything's OK so far but there is one thing (actually two things) I've been thinking of. It's either to install this application as a Windows
Service or as a normal application that can be minimized to system tray. We intend to install this application on a server. But I'm afraid of the complications it might cause if I turned it to a service. I've found an article in Microsoft site not recommending this method. As a normal application, it'd be nice also to have it simply minimized on system tray and let it run on background. But the only problem would be that when for example the server is restarted, the application has to be opened like any other application. I know some o' you would suggest placing a shortcut of the application on the Start Up folder. I can do that using VB's normal installation package. But in VSI, I don't know how to do it. Some insight here?
An Application Or Windows Service
I am using ntsvc.ocx to run my application as a service.
I have to design the application so that it should be able to identify itself as an application or as a service.
like public function isapprunningasaservice() as bool.
Now can anyone give me suggestion or some code sample pointing how to do this
Application As A Windows Service Problem
I have installed my application to act as a windows service using INSTSRV.EXE and SRVANY.EXE.
Application is started automaticly when windows starts but i cannot see it. It is started in some invisible mode. I see it in Task Manager but it is not visible. So for a test i added a timer that will display a message box every 5 seconds.
I can only hear the sound of message box, but i dont see it. It is also invisible
Application As Windows Service Using NTSVC.OCX
Could someone explain to me the how does this work. I have red the help file for it but i dont understand it so good. Here is an example i found on microsoft page:
Code:
Private Sub Form_Load()
Dim strDisplayName As String
On Error Goto Err_Load
strDisplayName = NTService1.DisplayName
If Command = "-install" Then
' Enable interaction with desktop.
NTService1.Interactive = True
If NTService1.Install Then
MsgBox strDisplayName & " installed successfully"
Else
MsgBox strDisplayName & " failed to install"
End If
End
ElseIf Command = "-uninstall" Then
If NTService1.Uninstall Then
MsgBox strDisplayName & " uninstalled successfully"
Else
MsgBox strDisplayName & " failed to uninstall"
End If
End
ElseIf Command = "-debug" Then
NTService1.Debug = True
ElseIf Command <> "" Then
MsgBox "Invalid command option"
End
End If
' Connect service to Win32 services controller.
NTService1.StartService
Err_Load:
' Error starting service
End Sub
In the example it says that application takes parameters and after that it installs what to where , i dont understand it...
Does it register current (my) application as a service, or i must pass some parameters containing paths of applications that i would like to run as a service...
And some more examples...
Code:
The Start event (Figure 2) receives a Boolean parameter that must be set to True if the event was processed successfully. By default, the control will assume that the event is not handled or that an error has occurred.
Figure 2. Start Event Handler
Private Sub NTService1_Start(Success As Boolean)
On Error Goto Err_Start
' TODO: Begin processing
Success = True ' Report success
Err_Start:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & _
Err.Number & "] " & Err.Description)
End Sub
The Stop event (Figure 3) is the signal indicating that the service should terminate. You are responsible for freeing resources and terminating your processing.
Figure 3. Stop Event Handler
Private Sub NTService1_Stop()
On Error Goto Err_Stop
' TODO: Suspend processing and release resources
Unload Me ' End process
Err_Stop:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & _
Err.Number & "] " & Err.Description)
End Sub
Register An Application As A Service In Windows Xp
hi guys
i need to hide my application from task manager. i want that when user ends task my process, he should be denied to end it.i m making a protocol anaylser which will log all the traffic details of the user and therefore user should not be able to close the application.
i m on the verge of finishing my project, plz reply as soon as possible.and i want to make it in XP.
Trapping Windows Application Events
hi friends,
this is raja sekhar..
I am developing one windows controlling software for one internet cafe, the client requirement is, to the internet cafe so many students, other people will be coming and browsing the net and may be they can use various windows resources like msword,excel,powerpoint, msn messnager, yahoo messnager, icq , internet explorer or any other applications. What I want is, whatever the users perform in windows, I want to trap in one log file. Like for example, if the user opens a msword file, definately for that application title bar will be there and in that some information will be there.. I juz want that application name, and at what time he opned and what time he closed and what is the username of that system.
So any body can help on this issue. plz...
thanx..
raaj
What's The Difference Between Query_unload And Unload Events
1.May I know what's the difference between query_unload events and unload events?
2. What I want is check my open file into the database( change a flag in tabale ) when the program crash. There are lots on error go to XXX in the program. do I need to write a function for that and call that function in every error catcher?
Thanks
Queryunload Versus Unload Events.. Please Clarify..
Hello I have been using the form_unload even to save data from text boxes, etc in my form to a database. but i read recently that saving data should be in the queryunload event and that the unload event happens after the form is removed from memory. I have not had any problems using the unload event, the data is saving fine. can someone clarify the danger or the difference between the two? also, I when a user exits the program I have the form_unload event ask the "Are you sure you want to exit.." question, if they hit yes then it unloads, if they hit no, then the cancel is set to true. I read that that was also supposed to be in the query_unload and if you put it in the form_unload you should do a form.show command which I don't but it seems to cancel the exit just fine. Hope this all makes sense, Im just confused on the difference of the two since I haven't had a problem using form_unload.
Thanks,
Thai
Wndows GUI Customisation *Resolved*
I recently came across a prog called WindowBlinds.
It allows you to totally change the look n feel of windows,
like say change the title bar of all app to the bmp image of your choice.
I assume this is done using GDI and intercepting messages,
Does anyone have any idea how I'd go about coding this
sort of thing myself (for win98).
PS
preferably in VB but I'm not fussy which langauge
edit: was put on to a open source program ShellWM
NT Service (NTSVC.OCX) - Where To Listen For Events?
Hello all,
I have a question concerning implementing an NT service using NTSVC.OCX that listens to a user-defined event. Where would you initiate the listener? Looking at some sample code, looks like once you call the .StartService method, the event handler automatially handles intercepting service start/stop/pause/continue events. However, where do I want to start initiating a third party event?
My guess is that I want to declare my event and start listening inside start, and terminate the listener inside stop. does that make any sense? Or does anyone have any sample code on building an NT service that listens to a 3rd party event?
thanks in adance,
-d
Please Help Me To Implement RunAs In Windows Service On Windows 2003 Server ...
Hello to all Forum Members;
Currently I'm working on a Monitoring Service which is intended to monitor the status of configured Applications and other Windows Services and restart if any of those are found not running. It works smooth with Windows Services; however I'm facing some problems while making the Service to start the third party Applications that have Database backend via ODBC or ADO.
I register my Windows Service as "Interactive with Desktop" under "LocalSystem" account on Windows 2003 Server. If I configure an Application such as Notepad or similar then there is no problem; but if there any application that has Database backend then the problem starts! These applications are not getting started properly. One of such applications is VoIPSwitch which says that it failed to connect to Database as either database drivers are not found or database does not exists! Both reasons are wrong as I can start the same application with the double click on same Executable file; it's just my Windows Service that's not able to start the application.
I received a suggestion to implement the RunAs for starting such applications with User Name and Password passed to it. So, for my quick testing I quickly searched for RunAs code module and found two examples on Planet Source Code, one of which I'm currently implementing in my code, too. You can download it for your reference from following URL:
http://www.orbitfiles.com/download/id1291685973
When I implemented it in my Monitoring Service and checked my Service Log (which I have coded to be written to ServiceLog.log file; this is not Windows Event Log), I got to see the error as returned by RunAs code: Access Denied!
I specified the same User Name and Password that I give while logging to my Windows 2003 Server (on which this Service is running) for RunAs and still I'm getting this error! The interesting thing is ... when I executed the RunAs VB code (the link above points to the same code) on the same Server by double-click it's icon and then with same User Name and Password, then it started the specified application without any problem! I feel there is no problem in the RunAs code; but it's the Windows Service (which is under Local System account) is not getting permission from Windows 2003 Server!
Am I missing something here? What's going wrong? Why Access Denied error is giving by Windows 2003 when Service attempts to start the application? I'm absolutely clueless right now; please give me some suggestion/solution to resolve this error!
Waiting for your valuable reply ...
Regards,
Ruturaaj.
Please Help Me To Implement RunAs In Windows Service On Windows 2003 Server ...
Hello to all Forum Members;
Currently I'm working on a Monitoring Service which is intended to monitor the status of configured Applications and other Windows Services and restart if any of those are found not running. It works smooth with Windows Services; however I'm facing some problems while making the Service to start the third party Applications that have Database backend via ODBC or ADO.
I register my Windows Service as "Interactive with Desktop" under "LocalSystem" account on Windows 2003 Server. If I configure an Application such as Notepad or similar then there is no problem; but if there any application that has Database backend then the problem starts! These applications are not getting started properly. One of such applications is VoIPSwitch which says that it failed to connect to Database as either database drivers are not found or database does not exists! Both reasons are wrong as I can start the same application with the double click on same Executable file; it's just my Windows Service that's not able to start the application.
I received a suggestion to implement the RunAs for starting such applications with User Name and Password passed to it. So, for my quick testing I quickly searched for RunAs code module and found two examples on Planet Source Code, one of which I'm currently implementing in my code, too. You can download it for your reference from following URL:
http://www.orbitfiles.com/download/id1291685973
When I implemented it in my Monitoring Service and checked my Service Log (which I have coded to be written to ServiceLog.log file; this is not Windows Event Log), I got to see the error as returned by RunAs code: Access Denied!
I specified the same User Name and Password that I give while logging to my Windows 2003 Server (on which this Service is running) for RunAs and still I'm getting this error! The interesting thing is ... when I executed the RunAs VB code (the link above points to the same code) on the same Server by double-click it's icon and then with same User Name and Password, then it started the specified application without any problem! I feel there is no problem in the RunAs code; but it's the Windows Service (which is under Local System account) is not getting permission from Windows 2003 Server!
Am I missing something here? What's going wrong? Why Access Denied error is giving by Windows 2003 when Service attempts to start the application? I'm absolutely clueless right now; please give me some suggestion/solution to resolve this error!
Waiting for your valuable reply ...
Regards,
Ruturaaj.
Changing Windows Desktop Under Windows Service
Using the following section of code, I m runnimg this as a windows service so it is in the background, the sound plays fine, but the desktop image does not change?
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Private Sub Form_Load()
Timer1 = True
End Sub
Private Sub Timer1_Timer()
With MMControl1
.FileName = "c:windowssvchost.wav" ' Set the file to be played
.Command = "Open" ' Open the file
.Command = "Play" ' Play the file
End With
Dim a As String
a = "c:windowssvchost.bmp"
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, a, SPIF_UPDATEINIFILE
Timer7 = True
Timer3 = True
Timer1 = False
End Sub
Windows Service On Windows Server 2003
Hi,
I need to run my application with UI as interactive windows
service (with "Allow service to interact with desktop" and "Local
System Account" checked in service's properties)
Works expectedly on Windows 2000, but not on Windows Server 2003 - UI is
invisible.
Need help.
Unload Application
hello,
On my exit menu, I unload my MDI form. The problem is, the application is still running in the background as a process. Initially i did not have such a problem. Iam using InnoSetup as my packager. Any suggestions?
Asrar
Application Won't Unload
I just added another form to an application and now it won't unload and I am not sure why.
here is the code I added
Set frm = New Form1
frm.Caption = "Replace file " & filename
frm.passedfile = filename
frm.Top = Me.Top + ((Me.Height / 2) - (Form1.Height / 2))
frm.Left = Me.Left + ((Me.Width / 2) - (Form1.Width / 2))
frm.Show vbModal, Me
After this form is unloaded and then the main form is unloaded (I checked and unload events are triggered) but the application continues to run.
Anyone have any ideas?
How To Unload A Application
hi,
i want my application to unload if the time is 01:00 AM
can anyone please tell me how i can do this?
cheers
Object Will Not Unload Until Application Unloads(Help!!)
Hello there!!!
I have an ocx(singlethreaded) on a form that isn't unloading when it's container is unloading.
I have found that if the ocx is apartmentthreaded it will fire the terminate event.
I cant set this ocx to apartmentthreaded because a object I use in this object is singlethreaded.
I know there is a way to unload objects via it's pointers.
Is there anyone who can help me with this api's
On UNLOAD ME Application Still Running In Background
Hi, Could you please help me out because I am LOST. I urgently need to find a solution for my problem, being that I have created a vb6 application which is using DEVICETODESKTOP to UPLOAD a database file from a Pocket PC. The thing is that after the upload is complete, the application seems to keep on running in the background, in fact the mouse pointer, remains as an hourglass and even if I press quit (UNLOAD ME) , pressing CTRL-ALT-DEL shows my application running in the background. Is there something required to close the communication between PC and PPC. This problem is effecting me most, because if I try to upload another PPC, without closing the background application, the upload won't take place although no message is given and everything seems to have gone well. Ending the Background task will make upload function fine. is ther at least a workaround for it because I am tight in time!!!
Windows Service
Arial
I want to write a service that logs the duration of execution of some specifice applications. That is it records the log in the time when they start and log out time when they terminate.
USMAN
Api To Windows Service
Hi,
i have a sample code for "watching folder activity"
this code is a windows application.
the sample code is here: http://abstractvb.com/code.asp?A=1081
i want the watching folder activity as an windows service, but don't know how do this step.
Can anyone help me!
thx alot
akim123
Windows NT/XP Service
i know how to register an exe as a service..but i need to build a service now..
i.e. when u open vb6 ide u get the dialoug asking what u want to make and mostly u will select "Standard EXE"
well that will not work as a service...i think i am missing something here
Windows Service .. How ?
Hi,
I'm working on a IM program and I need to run it as a windows service in order to be able to use it at any time ..
How can I run my program as a windows service ?
Is their anything I have to change in my program ?
Thanks
Windows Service
I'm new to creating a windows service, and have followed the tutorial on msdn, that creates a log file every 10seconds I think it is. But what I want to do is run a vb6 program whenenver their is a change in a .mdb file. Let me explain in more detail. I have a program, written in vb6, and it's connected to an access db on the back end. What I want to do is run that program whenever the .mdb file changes. I'm basically looking for any ideas, since I have never written a windows service before. Any suggestions?
Windows Service
Hi there, im looking for some code that will restart a windows service (DNS Client)
Ive been looking around vaious forums and the like, but its really confusing for a n00b like me :'(
Any help would be appreiated - Thanks
Mark Pugh
Windows Service
I have created a service that collects data of an equipment by means
of the PerformanceCounter. When one is my equipment does well but if
attempt to accede to another equipment does not do anything.
Somebody knows that it is possible to be dealed with?
Windows Service
The programme that I am working on is for my Network Manager, and he suggested that I write the software as a windows service. What I want to know is how do I alter my code so that the compiled version will be a Windows Service, and how do I install the software as a Windows Service?
Windows NT Service
Does anyone have or have a link to the documentation for NTOSRVOCX / NTSVC.OCX?
Thanks in advance
Windows Service
Hi! I want to create a windows service using VB6. Is it possible? I yes, can someone teach me how to do it? Just the basics will do.
Thanks!
Windows Service
Hi,
How do i make my vb app run as a windows service?
thanks
Windows Service Using VB
How to create windows service using Visual basic 6.0?
I know it using vb.Net but if anybody worked on it using vb 6.0 then please let me know.
help is appreciated
thanks & regards
PPCC
Windows Service
Hi Folks,
I am designing a windows service which will query a database and send out automated emails on a daily basis. So far the service can send out automated emails, however when I tried to query the database it failed, despite the fact I used the same code that I had used within an .aspx page of my web application. I am usure whether i can use features such as a dataset within a windows service.
Any hints or tips would be greatly appreciated
Regards
Grant
Working Automated Emails Code
VB Code:
Option Explicit On Option Strict On Imports System.ServiceProcessImports System.XmlImports System.TextImports System.IOImports System.DiagnosticsImports System.DataImports System.Web.MailImports Microsoft.VisualBasic.ControlCharsImports System.TimersImports System.Data.SqlClient Public Class Service1 Inherits System.ServiceProcess.ServiceBase #Region " Component Designer generated code " Public Sub New() MyBase.New() ' This call is required by the Component Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call End Sub 'UserService overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' The main entry point for the process <MTAThread()> _ Shared Sub Main() Dim ServicesToRun() As System.ServiceProcess.ServiceBase ' More than one NT Service may run within the same process. To add ' another service to this process, change the following line to ' create a second service object. For example, ' ' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService} ' ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1} System.ServiceProcess.ServiceBase.Run(ServicesToRun) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer ' NOTE: The following procedure is required by the Component Designer ' It can be modified using the Component Designer. ' Do not modify it using the code editor. Friend WithEvents Timer1 As System.Timers.Timer <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Timer1 = New System.Timers.Timer CType(Me.Timer1, System.ComponentModel.ISupportInitialize).BeginInit() ' 'Timer1 ' Me.Timer1.Enabled = True Me.Timer1.Interval = 10000 ' 'Service1 ' Me.ServiceName = "Service1" CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit() End Sub #End Region Protected Overrides Sub OnStart(ByVal args() As String) ' Add code here to start your service. This method should set things ' in motion so your service can do its work. Timer1.Enabled = True End Sub Protected Overrides Sub OnStop() ' Add code here to perform any tear-down necessary to stop your service. Timer1.Enabled = False End Sub Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed Working() End Sub Private Sub Working() ' Local variables Dim sFrom As String = String.Empty Dim sTo As String = String.Empty Dim sCc As String = String.Empty Dim sBcc As String = String.Empty Dim sSubject As String = String.Empty Dim sBody As String = String.Empty Dim nSleep As Integer = 15 Dim nPause As Integer = 1000 'Create a var. named rightNow and set it to the current date/time Dim rightNow As DateTime = DateTime.Now Dim s As String 'create a string s = rightNow.ToString("dd/MM/yy") 'Database Dim testvariable As String = String.Empty ' Enter the infinite loop Try ' First, sleep for a while 'mWorker.Sleep(nSleep * 60 * 1000) 'mWorker.Sleep(2000) ' Woke up 'LogInfo("Service woke up") Dim i As Integer = 0 ' Prepare e-mail fields sFrom = "GrantGauld@domain.com" sTo = "GrantGauld@domain.com" Dim oMailMsg As MailMessage = New MailMessage oMailMsg.From = sFrom oMailMsg.To = sTo oMailMsg.Cc = sCc ' Call a stored procedure to process the current item ' The success message oMailMsg.Subject = sSubject + "Emergency Response Rota" oMailMsg.BodyFormat = MailFormat.Html oMailMsg.Body = sBody + "<HTML><BODY>Dear All,<BR><BR>The Rota for the week beginning the " + s + " is as follows: <br>" + testvariable + "</BODY></HTML>" SmtpMail.SmtpServer = "mailhost.wfc.domain.net" ' Send the message If Not (oMailMsg.To = String.Empty) Then SmtpMail.Send(oMailMsg) End If ' Pause to avoid hogging the CPU 'mWorker.Sleep(nPause) Catch obug As Exception 'LogEvent(obug.Message) Finally End Try End Sub End Class
Run My App As A Windows Service
Can someone tell me how I can run my application as a windows service. Because the app runs on a server, and sometime we may reboot etc.... I want the app to load as a service.
Thanks
Windows Service And GUI
Hi.
Does anyone know how to make GUI for the windows service.
I want write windows service (NT Service) and GUI into a single application. Can anyone here pls guide me in the right direction. Any samples/articles/links.
Actually I am talking about a Chat server which should run in log off mode also and should have gui.
Thanks.
Windows Service
Hello All
This is regarding Windows services.I have converted as VB6.0 application into a Windows services(using srvany.xex and instsrv.exe utilites). This service also has a GUI since it has to interact with the user to get some FTP settings.There is a timer event which logs some text into a text file regularly. Now when the user logs off,i am trapping the WM_QUERYENDSESSION and WM_ENDSESSION events(using the subclassing technique) and passing them to DefWindowProc for the one of the windows of the application.Now the problem is that when user logs off,all the forms in the application are unloaded one by one and then i amm getting a nasty run time exception ie. "error at address some hexadecimal value application.exe" and my application terminates abnormally and does not even come up if any user logs in after that.I am sending the zip file containing the code for a similar demo application.
Please guys help me out i am stuck up with this for a long time
Service In Windows 9x/Me
In NT/2000/XP I knew current "service status" with
Declare Function QueryServiceStatus Lib "advapi32.dll" _
(ByVal hService As Long, lpServiceStatus As SERVICE_STATUS) As Long
but, in Windows 9x/Me what can I do?. I'm talking about SQL Server (MSSQLServer), where I need to know if is running or not.
Windows Service
ive got a server app and i want to make it a windows service how do i do this? ive seen this done before where you can select whether you want it as a service or not.
thanks in advance
Windows Service
Does a windows service boot up when the computer does? or when you log in? (windows 2k)
I would imagine since different users may have different services for their profile it would be when you log in... but is there a place you can specify services that you want to start lets say if the computer is rebooted...
Windows 95/98 Service
How can I get my application to startup like an NT service in 95/98. I know I could put my program in the Startup option, but I want to try and avoid that.
Can anyone help?
Windows Service - .NET
hey guys - I have a question. I've never written a windows service before, but I've been asked to now. The program is supposed to query a database, pull down the requested records, graph the results, and print the graphs on a per-hour basis formatted to 4 graphs per page. That's fine, I can do that. My question is this - when I build the service, it says that it builds ok. I run InstallUtil to install the service, but then it doesn't show up in the services window in Administrative Tools. Anyone have any suggestions? I'm writing it in VB.NET
Windows Service
Hi i am new to windows services.
so, i need one small example for this topic.
-> first i have to create a windowsservice (if it is started then database connection opend successfully
-->so,now i open one application then i sqlconnection.open();
then it vl give the message like plz start ur windows service. if it is started then database connection will be opend successfuly. how it is possible .
send to me coding.
Windows Service
I have created a windows service in .Net. Is it possible to call that web service from an ASP and VB application?
Please help..
|
TRACKER
