Bloqueio de tela (VB.NET): 3 etapas

2024 Autor: John Day | [email protected]. Última modificação: 2024-01-30 11:40

Vou mostrar como fiz meu próprio bloqueio de tela … então talvez você possa fazer o seu próprio. Ou você poderia apenas usar o meu;) Você vê em toda a internet: 'Bloqueio de tela!'.. e você baixa e instala e bloqueia a tela do seu pc para que ninguém possa acessar seu pc enquanto você não estiver lá. (o bloqueio do Windows faz a mesma coisa a menos que você não tenha uma senha.) Este programa que eu fiz usa VB. NET para bloquear a tela. Nas próximas etapas, mostrarei como. Você pode baixar meu Bloqueio de tela abaixo.

Etapa 1: Fazendo a tela (parte 1)

Aqui eu vou mostrar a você a primeira parte do bloqueio de tela.. a primeira foto é a janela que aparece quando você executa meu bloqueio de tela.nisto você pode definir a senha.. eu fiz isso, então você tem que definir todas as vezes para que você nunca possa esquecê-lo. Além disso, meu programa tem apenas 1 arquivo. Você também tem a opção de vê-lo para ver através.. isso é apenas para que a tela de bloqueio seja ligeiramente transparente. Para que você possa ver a imagem da sua área de trabalho desbotada. Agora aqui está como eu fiz: para a senha:

Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Manipula TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Then Dim process As System. Diagnostics. Process = Nada Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () End If End Sub o que isso faz é verificar se o texto em textbox1 é igual ao texto que você definiu na primeira janela. Então, se isso acontecer, a tarefa mata o gerenciador de tarefas se ele estiver em execução e reinicia o explorer.exe. Aqui está o bit ver através: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load Dim process As System. Diagnostics. Process = Nothing Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" process = System. Diagnostics. Process. Start (psi) If Form1. CheckBox1. Checked = True Then Me. Opacity = 0,5 Else Button1. Show () End If End SubEsta parte do script matará explorer.exe, portanto, mesmo se alguém ultrapassar meu bloqueio de tela, não será capaz para fazer qualquer coisa! em seguida, ele verifica se a caixa 'ver através' foi marcada. Se tiver, ele define a opacidade para 0,5. Do contrário, ele mostra o botão para alterar o plano de fundo.

Etapa 2: Fazendo a tela (parte 2)

Aqui, vou mostrar como fiz com que ele cancelasse o gerenciador de tarefas e como ele diz sobre outras janelas. Para defini-lo como a forma superior que você acabou de definir: me.topmost = trueon loadpara torná-lo inútil para o gerenciador de tarefas, usei esta codificação:

Private Sub Form2_LostFocus (ByVal sender As Object, ByVal e As System. EventArgs) Handles Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch em outra palavra diz: quando perder o foco, esconda o gerenciador de tarefas. mas também porque é a forma superior que ele perde como o gerenciador de tarefas nunca foi executado. Do que quando você coloca a senha certa em … a tarefa mata o gerenciador de tarefas.i também usado: Função de substituição protegida ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) As Boolean Select Case (keyData) Case Keys. Control Retorna True Case Keys. Alt Ou Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch torna o alt F4 inútil!.. e ele tenta fazer o mesmo com a chave de controle, mas não funcionou.. mas eu deixei ligado para o caso de em outros sistemas funcionar.

Etapa 3: Bloqueio de tela

Espero que você tenha achado isso instrutível para todos os seus projetos VB. NET. Se você não entender uma parte disso ou precisar de ajuda com um de seus projetos, por favor, deixe um comentário ou me mande um email. quaisquer problemas e avalie =] O screen lock.exe não funciona se você quiser fazer o download.. apenas certifique-se de salvá-lo como um.ex para salvar, clique com o botão direito e clique.. save target como ou seu equivalente e salve como exe.