Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = TextBox2.Text Then
Form2.Show()
Me.Hide()
Else
MsgBox("암호가틀림,다시입력하세여.")
TextBox1.Clear()
TextBox2.Clear()
End If
End Sub
End Class
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Form1.TextBox1.Text Then
MsgBox("비밀번호맞음,Unlocked")
Me.Close()
Form1.Show()
End If
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.TopMost = True
Me.BringToFront()
Me.Focus()
For Each selprocess As Process In Process.GetProcesses
If selprocess.ProcessName = "tastmgr" Then
selprocess.Kill()
Exit For
End If