создание пароля.

[GranDDaY]

Я делаю программу для блокировки экрана администратором компьютера.
Мне надо чтобы в первой форме администратор смог ввести пароль, после чего запустить программу (вторую форму)
а вторая форма у меня на весь экран, и есть кнопка закрыть, так вот, мне надо чтобы при нажатии на кнопку закрыть выходило окно с вводом пароля указанного при запуске программы, если пароль правильный то форма2 закрывается, а если нет то она не закрывается.
пмогите пожалуйста, совсем уж тупой, не знаю что делать...
а ещё лучше дайте пример, но если нет то не надо..

[iGrok]

Идея в целом - бред, ибо обходится даже не двумя, а одним пальцем.

А проверка чего-либо в момент закрытия формы - это обработка события FormClosing. И, если нужно запретить закрытие, установка e.Cancel = True.
Только надо учитывать причины закрытия (e.CloseReason), например при завершении винды наверное неплохо бы всё-таки закрыться несмотря на неправильный пароль.

[Денис]

Вот.

[FireFenix]

LogOff тоже ещё не отменяли

[Денис]

даже не двумя, а одним пальцем

Научи! Я умею только тремя пальцами (Ctrl + Alt + Del)

[iGrok]

даже не двумя, а одним пальцем

Научи! Я умею только тремя пальцами (Ctrl + Alt + Del)

Семь бед - один ресет! =)

[Денис]

Семь бед - один ресет! =)

Не гони, ямщик! Какой ресет? Диспетчер задач!

[iGrok]

Диспетчер задач!

Одним пальцем? Ты просил научить одним пальцем.
А если не одним, тогда конечно диспетчер, да. =)

[ugin_root]

GranDDaY

Код: Выделить всё

Public Class Form1
    Public pass As String = "" 'Пароль введённый при блокировки компьютера
    Dim password As String = "ugin_root" 'Введённый при загрузки программы пароль
    Public Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If pass = "" Then
            Dim formr As Windows.Forms.Form = WindowsApplication1.Form2
            formr.Show()
            e.Cancel = True
        ElseIf password = pass Then
            MsgBox("Пароль введён правильно закрываем форму")
        Else
            pass = ""
                MsgBox("Неправильный пароль!")
            e.Cancel = True
        End If
    End Sub
End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form2
    Inherits System.Windows.Forms.Form
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
    Private components As System.ComponentModel.IContainer
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(72, 12)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(153, 20)
        Me.TextBox1.TabIndex = 0
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(12, 15)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(45, 13)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Пароль"
        '
        'Form3
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(237, 44)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox1)
        Me.Name = "Form2"
        Me.Text = "Проверка пароля"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Form1.pass = Me.TextBox1.Text
            Me.Close()
        End If
    End Sub
    Private Sub Form2_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Form1.Close()
    End Sub
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

[Viper]

GranDDaY[code][/code]

И собственно к чему это?

[netdemon]

Сделай так: Если окно пытаются закрыть или открывается диспетчер задач, а пароль неверный-делаем User Logoff и на окно выбора пользователя попадаем.