Kunci Layar (VB.NET): 3 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:59

Saya akan menunjukkan kepada Anda bagaimana saya membuat kunci layar saya sendiri.. jadi mungkin Anda bisa membuatnya sendiri. atau Anda bisa menggunakan milik saya;) Anda melihat di internet: 'Kunci Layar !'.. dan Anda mengunduh dan menginstal dan itu mengunci layar pc Anda sehingga tidak ada yang dapat mengakses pc Anda saat Anda tidak ada di sana. (Windows lock melakukan hal yang sama kecuali Anda tidak memiliki kata sandi.) Program ini yang saya buat menggunakan VB. NET untuk mengunci layar. Dalam beberapa langkah berikutnya saya akan menunjukkan caranya. Anda dapat mengunduh Kunci Layar saya di bawah ini.

Langkah 1: Membuat Layar (part1)

Di sini saya akan menunjukkan kepada Anda bagian pertama dari kunci layar..gambar pertama adalah jendela yang muncul ketika Anda menjalankan kunci layar saya. ini Anda dapat mengatur kata sandi.. saya membuatnya jadi Anda harus mengaturnya setiap waktu sehingga Anda tidak akan pernah bisa melupakannya. Juga jadi program saya hanya 1 file. Anda juga memiliki pilihan untuk melihatnya untuk melihat melalui.. ini hanya agar layar kunci sedikit tembus pandang. Jadi Anda dapat melihat gambar desktop Anda memudar. Sekarang inilah cara saya melakukannya: untuk kata sandi:

Private Sub TextBox1_TextChanged(Pengirim ByVal Sebagai System. Object, ByVal e As System. EventArgs) Menangani TextBox1. TextChanged Jika TextBox1. Text = Form1. TextBox1. Text Kemudian Redupkan proses Sebagai System. Diagnostics. Process = Tidak Ada 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 Sub Apa yang dilakukan adalah memeriksa apakah teks di textbox1 sama dengan teks yang Anda atur di jendela pertama. Kemudian jika itu berhasil membunuh task manager jika sedang berjalan, Dan restart explorer.exe.di sini adalah bit tembus pandang: 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 Sub Bagian skrip ini akan bertugas membunuh explorer.exe jadi bahkan jika seseorang melewati kunci layar saya, mereka tidak akan dapat untuk melakukan apa saja! kemudian memeriksa untuk melihat apakah kotak 'tembus pandang' telah dicentang. Jika memiliki opacity set ke 0.5. Jika tidak maka itu menunjukkan tombol ubah latar belakang.

Langkah 2: Membuat Layar (part2)

Di sini saya akan menunjukkan kepada Anda bagaimana saya membuatnya membatalkan task manager dan bagaimana tulisannya di atas jendela lain.:

Private Sub Form2_LostFocus(ByVal sender As Object, ByVal e As System. EventArgs) Menangani Me. LostFocus Dim k As Long k = Shell("c:\windows\system32\taskmgr.exe", vbHide) End SubWitch dengan kata lain mengatakan: ketika kehilangan fokus, sembunyikan task manager.tetapi juga karena itu adalah bentuk paling atas, sepertinya task manager tidak pernah dijalankan. Kemudian ketika Anda memasukkan kata sandi yang tepat … itu membunuh task manager.i juga menggunakan:Protected Overrides Function ProcessDialogKey(ByVal keyData Sebagai System. Windows. Forms. Keys) Sebagai Boolean Pilih Case (keyData) Case Keys. Control Kembalikan True Case Keys. Alt Atau Keys. F4 Return True End Select Return MyBase. ProcessDialogKey(keyData) End Functionwitch membuat alt F4 tidak berguna!.. dan itu mencoba melakukan hal yang sama dengan tombol kontrol, tetapi itu tidak berhasil.. tetapi saya membiarkannya untuk berjaga-jaga di sistem lain.

Langkah 3: Kunci Layar

Saya harap Anda menemukan instruksi ini bermanfaat untuk semua proyek VB. NET Anda. jika Anda tidak memahami sebagian dari ini atau Anda memerlukan bantuan dengan salah satu proyek Anda, silakan tinggalkan komentar atau pm saya. dan tolong beri saya umpan balik ada masalah dan tolong beri peringkat =]Layar lock.exe rusak jika Anda ingin mengunduh.. pastikan itu disimpan sebagai.exe untuk menyimpan klik kanan dan klik.. simpan target sebagai atau yang setara kemudian simpan sebagai exe.