Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Class TestService Private _worker As New Worker() Protected Overrides Sub OnStart(ByVal args() As String) Dim wt As System.Threading.Thread Dim ts As System.Threading.ThreadStart ts = AddressOf _worker.DoWork wt = New System.Threading.Thread(ts) wt.Start() End Sub Protected Overrides Sub OnStop() _worker.StopWork() End Sub Public Class Worker Private m_thMain As System.Threading.Thread Private m_booMustStop As Boolean = False Private m_rndGen As New Random(Now.Millisecond) Public Sub StopWork() m_booMustStop = True If Not m_thMain Is Nothing Then If Not m_thMain.Join(100) Then m_thMain.Abort() End If End If End Sub Public Sub DoWork() Dim TestCounter As Integer = 0 'we'll stop the the service after we loop through twice m_thMain = System.Threading.Thread.CurrentThread Dim i As Integer = m_rndGen.Next m_thMain.Name = "Thread" & i.ToString While Not m_booMustStop TestCounter += 1 System.Diagnostics.EventLog.WriteEntry("EmptyService", "Start work: " & m_thMain.Name) System.Threading.Thread.Sleep(10000) System.Diagnostics.EventLog.WriteEntry("EmptyService", "Finish work: " & m_thMain.Name) If TestCounter > 1 Then StopWork() End While End Sub End Class End Class
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.