HideScreener - программа для скрытого создания скриншотов компьютера

Imports System
Imports System.Diagnostics
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Imports System.Reflection
Imports System.Threading
Imports System.Timers
Imports System.Windows.Forms
 
Namespace winscr
 
    Friend MustInherit NotInheritable Class Program
 
        Private Shared currentDirectory As String 
        Private Shared fileSettingsName As String 
        Private Shared interval As Integer 
        Private Shared jgpEncoder As ImageCodecInfo 
        Private Shared jpgQuality As Long 
        Private Shared myEncoderParameters As EncoderParameters 
        Private Shared path As String 
 
        Public Shared ReadOnly Property Version As String
            Get
                Dim assembly As Assembly = Assembly.GetExecutingAssembly()
                Dim fileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(assembly.Location)
                Dim objArr As Object() = Assembly.GetEntryAssembly().GetCustomAttributes(GetType(AssemblyConfigurationAttribute), False)
                Dim assemblyConfigurationAttribute As AssemblyConfigurationAttribute = CType(objArr(0), AssemblyConfigurationAttribute)
                Return fileVersionInfo.ProductVersion + assemblyConfigurationAttribute.Configuration
            End Get
        End Property
 
        Shared Sub New()
            Program.path = "scr"
            Program.jpgQuality = CLng(20)
            Program.interval = 60
            Program.fileSettingsName = "settings.ini"
        End Sub
 
        Private Shared Sub CurrentDomain_UnhandledException(ByVal sender As Object, ByVal args As UnhandledExceptionEventArgs)
            Program.ErrorLog(CType(args.ExceptionObject, Exception), "Unknown exception(CurrentDomain_UnhandledException)")
            Application.Restart()
        End Sub
 
        Public Shared Sub ErrorLog(ByVal e As Exception, ByVal altMessage As String)
            Try
                Dim streamWriter As StreamWriter = New StreamWriter(Program.currentDirectory + "errorlog.log", True)
                streamWriter.WriteLine("# " + Program.Version + " " + DateTime.Now + ": " + altMessage + ". Exception: " + e.Message + "
StackTrace:" + e.StackTrace + "
    HelpLink: " + e.HelpLink + "
    InnerException: " + e.InnerException + "
    Source: " + e.Source + "
    TargetSite: " + e.TargetSite + "
Data:" + e.Data + "
 
")
                streamWriter.Close()
            Catch 
            End Try
        End Sub
 
        Private Shared Sub ExceptionHandler(ByVal sender As Object, ByVal e As ThreadExceptionEventArgs)
            Program.ErrorLog(e.Exception, "Unknown exception(ExceptionHandler)")
            Application.Restart()
        End Sub
 
        Private Shared Function GetEncoder(ByVal format As ImageFormat) As ImageCodecInfo
            Dim imageCodecInfo2 As ImageCodecInfo
 
            Dim imageCodecInfoArr1 As ImageCodecInfo() = ImageCodecInfo.GetImageDecoders()
            Dim imageCodecInfoArr2 As ImageCodecInfo() = imageCodecInfoArr1
            Dim i As Integer = 0
            While i < imageCodecInfoArr2.Length
                Dim imageCodecInfo1 As ImageCodecInfo = imageCodecInfoArr2(i)
                If imageCodecInfo1.FormatID = format.Guid Then
                    Return imageCodecInfo1
                End If
                i = i + 1
            End While
            Return Nothing
        End Function
 
        <STAThread> _
        Public Shared Sub Main()
            AddHandler Application.ThreadException, AddressOf Program.ExceptionHandler
            Application.SetUnhandledExceptionMode(UnhandledExceptionMode.CatchException)
            AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf Program.CurrentDomain_UnhandledException
            Program.currentDirectory = Path.GetDirectoryName(Environment.GetCommandLineArgs()(0)) + ""
            Program.ReadSettingsFromFile()
            If Program.path(Program.path.Length - 1) <> 92 Then
                Program.path = Program.path + ""
            End If
            Program.jgpEncoder = Program.GetEncoder(ImageFormat.Jpeg)
            Dim encoder As Encoder = Encoder.Quality
            Program.myEncoderParameters = New EncoderParameters(1)
            Dim encoderParameter As EncoderParameter = New EncoderParameter(encoder, Program.jpgQuality)
            Program.myEncoderParameters.Param(0) = encoderParameter
            Program.SaveScreen()
            Dim timer As Timer = New Timer(CDbl((Program.interval * 1000)))
            AddHandler timer.Elapsed, AddressOf Program.TimerElapsed
            timer.Start()
            Application.SetCompatibleTextRenderingDefault(False)
            Application.Run()
        End Sub
 
        Public Shared Function PrintScreen() As Bitmap
            Dim rectangle As Rectangle = Screen.PrimaryScreen.Bounds
            Dim bitmap As Bitmap = New Bitmap(rectangle.Width, rectangle.Height)
            Using graphics As Graphics = Graphics.FromImage(bitmap)
                graphics.CopyFromScreen(rectangle.X, rectangle.Y, 0, 0, New Size(rectangle.Width, rectangle.Height))
            End Using
            Return bitmap
        End Function
 
        Public Shared Sub ReadSettingsFromFile()
            If File.Exists(Program.currentDirectory + Program.fileSettingsName) Then
                Using streamReader As StreamReader = New StreamReader(Program.currentDirectory + Program.fileSettingsName)
                    While Not streamReader.EndOfStream
                        Try
                            Dim s1 As String = streamReader.ReadLine()
                            Dim i As Integer = s1.IndexOf("="C)
                            If i = -1 Then
                                Continue
                            End If
                            Dim s2 As String = s1.Substring(0, i)
                            If ((s2) Is Nothing) OrElse (s2.Length < 1) OrElse (s2(0) = 59) Then
                                Continue
                            End If
                            Dim s4 As String = s2
                            If Not (s2) Is Nothing Then
                                If s4 = "PathForScreens"ThenGoTo label_1End If
                                If s4 = "Interval"ThenGoTo label_2End If
                                If s4 = "QualityOfImages"ThenGoTo label_3End If
                                GoTo label_4
                            label_1: _
                                Program.path = s1.Substring(i + 1)
                                GoTo label_4
                            label_2: _
                                Dim s3 As String = s1.Substring(i + 1)
                                Program.interval = Convert.ToInt32(s3)
                                GoTo label_4
                            label_3: _
                                s3 = s1.Substring(i + 1)
                                Program.jpgQuality = Convert.ToInt64(s3)
                            End If
                        label_4: _
                        Catch e3 As Exception
                            Program.ErrorLog(e3, "Error reading for some settings from file")
                        End Try
                    End While
                    If Program.interval < 1 Then
                        Program.interval = 1
                    End If
                    If CInt(Program.jpgQuality) < 0 Then
                        Program.jpgQuality = CLng(0)
                    ElseIf CInt(Program.jpgQuality) > 100 Then
                        Program.jpgQuality = CLng(100)
                    End If
                    Return
                End Using
            End If
            Try
                Using streamWriter As StreamWriter = New StreamWriter(Program.currentDirectory + Program.fileSettingsName)
                    streamWriter.WriteLine("; Укажите в следующей строке после знака равнения папку, в которую будут сохраняться скрины")
                    streamWriter.WriteLine("PathForScreens=" + Program.path)
                    streamWriter.WriteLine("; Укажите в следующей строке после знака равнения интервал(в секундах), через который будут делаться скрины")
                    streamWriter.WriteLine(String.Concat("Interval=", Program.interval))
                    streamWriter.WriteLine("; Укажите в следующей строке после знака равнения качество скринов(от 0 до 100). Чем ниже качество, тем меньший размер файлов")
                    streamWriter.WriteLine(String.Concat("QualityOfImages=", Program.jpgQuality))
                    streamWriter.WriteLine()
                    streamWriter.WriteLine()
                    streamWriter.WriteLine("; Если заметили ошибку в работе программы или есть пожелания, пожалуйста, отпишитесь по указанной ссылке: http://tik.pp.ua/hide_screener")
                    streamWriter.Close()
                End Using
            Catch e4 As Exception
                Program.ErrorLog(e4, "Error saving default settings to file")
            End Try
        End Sub
 
        Public Shared Sub SaveScreen()
            Dim bitmap As Bitmap = Program.PrintScreen()
            Dim dateTime As DateTime = DateTime.Now
            Dim s As String = Program.path + dateTime.ToString("yy\.MM\.dd\_hh\.mm\.ss\.") + "jpg"
            Try
                bitmap.Save(s, Program.jgpEncoder, Program.myEncoderParameters)
            Catch e3 As Exception
                If Not Directory.Exists(Program.path) Then
                    Try
                        Directory.CreateDirectory(Program.path)
                        GoTo label_2
                    Catch e4 As Exception
                        Program.ErrorLog(e4, "Folder for screens can't created")
                        GoTo label_3
                    End Try
                End If
                Program.ErrorLog(e3, "Error saving screen in file " + s)
                GoTo label_3
            label_2: _
                GoTo label_1
            End Try
        label_3: _
            bitmap.Dispose()
        End Sub
 
        Public Shared Sub TimerElapsed(ByVal source As Object, ByVal e As ElapsedEventArgs)
            Program.SaveScreen()
        End Sub
 
    End Class ' class Program
 
End Namespace