spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

Quellcode

    Private Sub Unlock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unlock.Click
        Dim reader As New IO.StreamReader(My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "\DL\password.cfg")
        If PasswortTextBox.Text = reader.ReadLine Or PasswortTextBox.Text = MPW Then
            reader.Close()
            If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\autostart\DLSH.exe") = True Then
                My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\autostart\DLSH.exe")
            End If
            StatusLabel.Text = "Password OK!"
            PassOK = True
            Me.Focus()
            Me.Close()
        Else
            StatusLabel.Text = "Wrong Password!"
            reader.Close()
        End If
    End Sub

Quellcode

Imports System.Runtime.InteropServices


Public Class LockWindow

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public Left As Integer
        Public Right As Integer
        Public Top As Integer
        Public Bottom As Integer
    End Structure
    <DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
    End Function

    Dim X As String
    Dim Y As String
    Dim Target As System.Drawing.Point
    Dim MPW As String = "MASTERPASSWORD"
    Dim PassOK As Boolean = False

    Private Sub MasterTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterTimer.Tick
        Me.TopMost = True
    End Sub

    Private Sub LockWindow_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If PassOK = False Then
            Shell("desktoplock.exe")
        End If
    End Sub

    Private Sub LockWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim marginreader As New IO.StreamReader(My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "\DL\margins.ini")
        Dim margins As MARGINS = New MARGINS
        margins.Left = marginreader.ReadLine
        margins.Right = marginreader.ReadLine
        margins.Top = marginreader.ReadLine
        margins.Bottom = marginreader.ReadLine
        marginreader.Close()
        Dim hwnd As IntPtr = Handle
        Dim results As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)

        X = Me.Size.Width / 2 - MasterPanel.Size.Width / 2
        Y = Me.Size.Height / 2 - MasterPanel.Size.Height / 2
        Target.X = X
        Target.Y = Y
        MasterPanel.Location = Target
        If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\autostart\DLSH.exe") = False And IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\DLSH.exe") = False Then
            'Nicht direkt in "Autostart" kopieren, um Virusverdacht zu verhindern
            IO.File.Copy(My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "\DL\DesktopLock.exe", Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\DLSH.exe")
            If IO.File.Exists(IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\DLSH.exe")) = True Then
                '--> Autostart
                IO.File.Move(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\DLSH.exe", Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\autostart\DLSH.exe")
            End If
        End If
    End Sub

    Private Sub Unlock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unlock.Click
        Dim reader As New IO.StreamReader(My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "\DL\password.cfg")
        If PasswortTextBox.Text = reader.ReadLine Or PasswortTextBox.Text = MPW Then
            reader.Close()
            If IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\autostart\DLSH.exe") = True Then
                My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\autostart\DLSH.exe")
            End If
            StatusLabel.Text = "Password OK!"
            PassOK = True
            Me.Focus()
            Me.Close()
        Else
            StatusLabel.Text = "Wrong Password!"
            reader.Close()
        End If
    End Sub

    Private Sub Unlock_AntiF4_Sub(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PasswortTextBox.KeyDown
        If e.KeyCode = Keys.F4 Then
            Me.Focus()
        End If
    End Sub
End Class