28/12/15 20:35
Henry 128
Sono riuscito ad aggiungere programma di installazione del servizio tramite Visual Studio e poi ad installarlo utilizzando il prompt dei comandi mediante il programma InstallUtil.exe presente nella cartella C:\Windows\Microsoft.NET\Framework\v4.0.30319
Fatto questo ho aperto la Microsoft Management Console e ho tentato l'avvio ed è uscita fuori questa MsgBox
"Il servizio 'Servizio di prova' su Computer locale si è avviato, quindi si è arrestato. Alcuni servizi si arrestano automaticamente se non sono utilizzati da altri servizi o programmi."
Ho provato ad impostare le seguenti proprietà al servizio ma nulla da fare... perché?
Ad ogni modo il sorgente del servizio è piuttosto semplice
Inoltre ho impostato
StartType = Manual
Account = LocalSystem
Togliendo le MessageBox e lasciando il codice come segue però "tutto" funziona, perché?
Fatto questo ho aperto la Microsoft Management Console e ho tentato l'avvio ed è uscita fuori questa MsgBox
"Il servizio 'Servizio di prova' su Computer locale si è avviato, quindi si è arrestato. Alcuni servizi si arrestano automaticamente se non sono utilizzati da altri servizi o programmi."
Ho provato ad impostare le seguenti proprietà al servizio ma nulla da fare... perché?
Me.CanPauseAndContinue = True Me.CanShutdown = True Me.CanStop = False
Ad ogni modo il sorgente del servizio è piuttosto semplice
Public Class ProvaServizio Protected Overrides Sub OnStart(ByVal args() As String) MsgBox("Il servizio è entrato in funzione", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly) End Sub Protected Overrides Sub OnStop() MsgBox("Il servizio è stato arrestato", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly) End Sub End Class
Inoltre ho impostato
StartType = Manual
Account = LocalSystem
Togliendo le MessageBox e lasciando il codice come segue però "tutto" funziona, perché?
Public Class ProvaServizio Protected Overrides Sub OnStart(ByVal args() As String) 'MsgBox("Il servizio è entrato in funzione", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly) End Sub Protected Overrides Sub OnStop() 'MsgBox("Il servizio è stato arrestato", MsgBoxStyle.Information Or MsgBoxStyle.OkOnly) End Sub End Class
Ultima modifica effettuata da Henry 128 28/12/15 20:39
aaa