Ekran Kilidi (VB.NET): 3 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:22

Sana kendi ekran kilidimi nasıl yaptığımı göstereceğim.. belki kendi ekran kilidini yapabilirsin ya da benimkini kullanabilirsin;)İnternet'te her yerde görürsün: 'Ekran Kilidi !'.. ve indirip kuruyorsunuz ve bilgisayar ekranınızı kilitliyor, böylece siz orada değilken kimse bilgisayarınıza erişemiyor. (Windows kilidi, şifreniz yoksa aynı şeyi yapıyor.) Yaptığım bu program VB kullanıyor.. NET ekranı kilitlemek için. Sonraki birkaç adımda size nasıl yapılacağını göstereceğim. Aşağıdan Ekran Kilidi'mi indirebilirsiniz.

Adım 1: Ekranı Yapmak (bölüm1)

Burada size ekran kilidinin ilk kısmını göstereceğim..ilk resim ekran kilidimi çalıştırdığınızda karşınıza çıkan penceredir. Bunda şifreyi ayarlayabilirsiniz.. her seferinde bunu asla unutmamak için. Ayrıca programım sadece 1 dosyadır. Ayrıca onu görme seçeneğine de sahipsiniz.. bu sadece kilit ekranının biraz görülebilmesi içindir. Böylece masaüstü resminizin solmuş olduğunu görebilirsiniz. Şimdi bunu nasıl yaptım: şifre için:

Private Sub TextBox1_TextChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) TextBox1. TextChanged ise TextBox1. Text = Form1. TextBox1. Text İşlemi O zaman System. Diagnostics. Process olarak Dim işlemi = Nothing 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 Bunun yaptığı şey, metin kutusu1'deki metnin ilk pencerede ayarladığınız metne eşit olup olmadığını kontrol etmektir. Daha sonra bunu yaparsa, görev çalışıyorsa görev yöneticisini öldürür ve explorer.exe'yi yeniden başlatır. İşte görme biti: Private Sub Form2_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load Dim process As System. Diagnostics. Process = Hiçbir Şey Dim As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Form1. CheckBox1. Checked = True Then Me. Opacity = 0.5 Else Button1. Show() End If End SubBu komut dosyası, explorer.exe'yi öldürme görevini üstlenecek, böylece birisi ekran kilidimi geçse bile, yapamayacaklar herhangi bir şey yapmak için! sonra 'görmek' kutusunun işaretli olup olmadığını kontrol eder. Varsa opaklığı 0,5'e ayarlar. Değilse arka planı değiştir düğmesini gösterir.

Adım 2: Ekranı Yapmak (bölüm2)

Burada görev yöneticisini nasıl iptal ettiğimi ve diğer pencerelerin üstünde nasıl yazdığını göstereceğim. onu en üstteki form olarak ayarlamak için:me.topmost = görev yöneticisini işe yaramaz hale getirmek için yükte true bu kodlamayı kullandım:

Private Sub Form2_LostFocus(ByVal sender As Object, ByVal e As System. EventArgs) Handles Me. LostFocus Dim As Long k = Shell("c:\windows\system32\taskmgr.exe", vbHide) End SubWitch başka bir deyişle: odak kaybolduğunda, görev yöneticisini gizle. ama aynı zamanda en üstteki form olduğu için, görev yöneticisi hiç çalıştırılmamış gibi görünüyor. Doğru şifreyi koyduğun zaman… görev, görev yöneticisini öldürür. keyData As System. Windows. Forms. Keys) Boolean olarak Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Veya Keys. F4 Return True End Select Return MyBase. ProcessDialogKey(keyData) End Functionwitch alt F4'ü işe yaramaz hale getirir!.. ve kontrol tuşuyla da aynısını yapmaya çalışıyor, ama bu işe yaramadı.. ama diğer sistemlerde olması ihtimaline karşı onu açık bıraktım.

3. Adım: Ekran Kilidi

Umarım bu talimatı tüm VB. NET projeleriniz için faydalı bulmuşsunuzdur. Bunun bir bölümünü anlamıyorsanız veya projelerinizden birinde yardıma ihtiyacınız varsa lütfen bir yorum bırakın veya pm atın. ve lütfen bana geri bildirimde bulunun. herhangi bir sorun ve lütfen oranı değerlendirin =]indirmek istiyorsanız ekran lock.exe darbe.. sadece kaydetmek için bir.exe olarak kaydedildiğinden emin olun ve tıklayın.. hedefi veya eşdeğerini kaydedin ve ardından exe olarak kaydedin.