Torna al Thread

Imports System.Threading Public Class Service1 Dim MyThread As Threading.Thread Protected Overrides Sub OnStart(ByVal args() As String) ' Inserire qui il codice necessario per avviare il proprio servizio. Il metodo deve effettuare ' le impostazioni necessarie per il funzionamento del servizio. MyThread = New Threading.Thread(AddressOf AvvioCalcolatrice) MyThread.Start() End Sub Protected Overrides Sub OnStop() ' Inserire qui il codice delle procedure di chiusura necessarie per arrestare il proprio servizio. MyThread.Abort() End Sub Private Sub AvvioCalcolatrice() Dim Prc As New ProcessStartInfo("Calc.exe") Prc.WindowStyle = ProcessWindowStyle.Maximized Process.Start(Prc) End Sub End Class
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5