Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
Sub RunAntiVirus(ByVal Path As String, Optional ByVal Arguments As String = "") Using p As Process = New Process p.StartInfo.FileName = Path p.StartInfo.UseShellExecute = False p.StartInfo.Arguments = Arguments p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo.CreateNoWindow = True p.StartInfo.RedirectStandardOutput = True p.StartInfo.RedirectStandardInput = True p.Start() Dim SR As System.IO.StreamReader = p.StandardOutput While Not p.HasExited Do Until SR.EndOfStream = True rtb1.AppendText(SR.ReadLine & vbNewLine) Loop System.Threading.Thread.Sleep(5000) End While My.Computer.FileSystem.WriteAllText("MASLog", rtb1.Text & vbNewLine & vbNewLine, True) End Using End Sub
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.