i am into a project were i don't want my client to access the system until he types the user name and password correctly.........for this i need to stop him to access other application even windows explorer... i have tried few things ....but they dint worked...>>secnd option i tried to kill the explorer process itself but im not getting that also....please help...my code
Expand|Select|Wrap|Line Numbers
- Imports proc = System.Diagnostics
- Public Class Form1
- Dim i As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'option 2 this is nt working for closing explorer.exe
- Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses
- For Each proc As System.Diagnostics.Process In pList
- ' MsgBox(proc.ProcessName)
- process.Items.Add(proc.ProcessName)
- If (proc.ProcessName = "explorer") Then
- proc.Kill()
- proc.Close()
- MsgBox("killed")
- End If
- Next
- 'option 1 this is nt working for not accessing other application
- proc.Process.GetProcessesByName()
- If (My.Computer.Keyboard.AltKeyDown) Then
- Me.Refresh()
- End Sub
- 'this is fr logging in
- Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
- If i >= 3 Then
- 'shutdown system
- MsgBox("System Shutting Down")
- 'and remove ur login from table
- End If
- If (Uname.Text = "" And Pass.Text = "") Then
- Conf.Visible = True
- Login.Enabled = False
- Login.SendToBack()
- Else
- i = i + 1
- End If
- End Sub
- End Class