Kunci Skrin (VB.NET): 3 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:14

Saya akan menunjukkan kepada anda bagaimana saya membuat kunci skrin saya sendiri.. jadi mungkin anda boleh membuat sendiri. Atau anda hanya boleh menggunakan kunci saya;) Anda melihat seluruh internet: 'Kunci Skrin!'.. dan anda memuat turun dan memasang dan ia mengunci skrin pc anda sehingga tidak ada yang dapat mengakses komputer anda semasa anda tidak berada di sana. (Kunci Windows melakukan perkara yang sama kecuali anda tidak mempunyai kata laluan.) Program yang saya buat ini menggunakan VB. BERSIH untuk mengunci skrin. Dalam beberapa langkah seterusnya saya akan menunjukkan caranya. Anda boleh memuat turun Kunci Skrin saya di bawah.

Langkah 1: Membuat Skrin (bahagian 1)

Di sini saya akan menunjukkan kepada anda bahagian pertama kunci skrin.. gambar pertama adalah tetingkap yang muncul ketika anda menjalankan kunci skrin saya. Di sini anda boleh menetapkan kata laluan.. saya membuatnya sehingga anda harus menetapkan setiap masa sehingga anda tidak akan dapat melupakannya. Oleh itu, program saya hanya 1 fail. Anda juga mempunyai pilihan untuk melihatnya sehingga dapat dilihat.. ini hanya supaya skrin kunci sedikit dapat dilihat. Oleh itu, anda dapat melihat gambar desktop anda pudar. Sekarang inilah cara saya melakukannya: untuk kata laluan:

SubTeks SwastaBox1_TextChanged (Pengirim ByVal Sebagai Sistem. Object, ByVal e As System. EventArgs) Mengendalikan TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Kemudian Dim proses Sebagai Sistem. Diagnostics. Process = Tiada Dim psi Sebagai Proses BaruStartInfo 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 Subwhat ini adalah memeriksa untuk melihat apakah teks di kotak teks1 sama dengan teks yang anda tetapkan pada tetingkap pertama. Kemudian jika ia melakukan tugas membunuh pengurus tugas jika sedang berjalan, dan mulakan semula explorer.exe. Ada bit lihat: Private Sub Form2_Load (ByVal sender Sebagai System. Object, ByVal e As System. EventArgs) Mengendalikan MyBase. Load Dim proses Sebagai System. Diagnostics. Process = Tidak ada Dim psi Sebagai Proses BaruStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Jika Form1. CheckBox1. Checked = True Then Me. Opacity = 0.5 Else Button1. Show () End If End SubSkrip ini akan berfungsi membunuh explorer.exe jadi walaupun seseorang melepasi kunci skrin saya, mereka tidak akan dapat untuk melakukan apa sahaja! maka ia memeriksa untuk melihat apakah kotak 'lihat melalui' telah diperiksa. Sekiranya memilikinya, ia menetapkan kelegapan hingga 0.5. Jika tidak, ia menunjukkan butang perubahan latar belakang.

Langkah 2: Membuat Skrin (bahagian 2)

Di sini saya akan menunjukkan kepada anda bagaimana saya membuatnya membatalkan pengurus tugas dan bagaimana ia dinyatakan di atas tetingkap lain. Untuk menetapkannya sebagai bentuk teratas yang baru anda tetapkan: me.topmost = trueon loadto menjadikannya pengurus tugas tidak berguna saya menggunakan pengekodan ini:

Sub Form2_LostFocus Peribadi (Pengirim ByVal Sebagai Objek, ByVal e Sebagai Sistem. EventArgs) Mengendalikan Saya. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch dengan kata lain mengatakan: apabila hilang fokus, sembunyikan pengurus tugas. tetapi juga kerana ia adalah bentuk teratas seperti pengurus tugas tidak pernah dijalankan. Dari saat anda memasukkan kata laluan yang betul … tugas membunuh pengurus tugas. saya juga menggunakan: Proteksi Overrides Function ProcessDialogKey (ByVal keyData Sebagai System. Windows. Forms. Keys) Sebagai Kunci Kes Boolean Select (keyData). Kawal Kembali Kunci Kes Benar. Alt Atau Kunci. F4 Return True End Pilih Return MyBase. ProcessDialogKey (keyData) End Functionwitch menjadikan alt F4 tidak berguna!.. dan ia cuba melakukan perkara yang sama dengan kekunci kawalan, tetapi itu tidak berjaya.. tetapi saya membiarkannya hanya sekiranya sistem lain berlaku.

Langkah 3: Kunci Skrin

Saya harap anda dapati petunjuk ini berguna untuk semua projek VB. NET anda. Jika anda tidak memahami bahagian ini atau anda memerlukan pertolongan dengan salah satu projek anda, sila tinggalkan komen atau pm saya. Dan tolong beri saya maklum balas sebarang masalah dan sila nilai =] Lock.exe skrin menjadi hembusan jika anda mahu memuat turun.. pastikan ia disimpan sebagai.exeto simpan klik kanan dan klik.. simpan sasaran sebagai atau setara anda kemudian simpan sebagai exe.