Banyak cara menon-aktifkan CTRL+ALT+DEL di Win 2K/XP, mana yg Anda Pilih ?
Saya atau mungkin Anda juga heran kenapa untuk menon-aktifkan tombol CTRL+ALT+DEL di Win 2K/XP sedikit merepotkan, padahal kalo di keluarga windows 9xΒ kan perintahnya sangat sederhana cukup seperti ini :
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Private Const SPI_SETSCREENSAVERRUNNING = 97 Dim ret As Long Private Sub Form_Load() ret = SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, 1, 0&, 0&) 'menonaktifkan CTRL + ALT + DEL End Sub Private Sub Form_Unload(Cancel As Integer) ret = SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, 0, 0&, 0&) 'mengaktifkan kembali CTRL + ALT + DEL End Sub
Gimana ? Simple kan? π
Oke kita langsung bahas saja beberapa cara untuk menonaktifkan CTRL + ALT + DEL di Win 2K/XP
Cara 1 – via registry
Informasi registry windows yang harus kita modifikasi adalah sebagai berikut :
User Key : [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System] Name : DisableTaskMgr Type : REG_DWORD (DWORD Value) Value : (0 = default, 1 = disable Task Manager)
Berikut adalah kode lengkap untuk menonaktifkan CTRL + ALT + DEL via registry
Private Const HKEY_CURRENT_USER = &H80000001 Private Const REG_DWORD = 4 Private Sub disableTaskMgr(ByVal value As Boolean) Dim nBufferKey As Long Dim nVal As Long nVal = IIf(value, 1, 0) RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", nBufferKey RegSetValueEx nBufferKey, "DisableTaskMgr", 0, REG_DWORD, nVal, Len(nVal) RegCloseKey nBufferKey End Sub Private Sub Form_Load() Call disableTaskMgr(True) End Sub
Cara pertama menurut saya kurang kren π karena merupakan metode yang sudah sering digunakan oleh virus-virus lokal, ditambah kalau usernya login menggunakan user non administrator otomatis akan gagal menulis ke registry windows.
Cara 2 – Fungsi API (FindWindow, PostMessage dan DestroyWindow) + Timer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long Private Sub killAppByHWND(ByVal hwnd As Long) On Error Resume Next PostMessage hwnd, &H10, 0, 0 DestroyWindow hwnd End Sub Private Sub Timer1_Timer() Dim hwnd As Long hwnd = FindWindow(vbNullString, "Windows Task Manager") If hwnd <> 0 Then Call killAppByHWND(hwnd) End Sub
Cara yang kedua ini program selalu melakukan pengecekan terhadap windows handle/process id dari Windows Task Manager, kalo ketangkep langsung dibunuh wihhhh sadis :cry:.
Cara yang kedua ini juga kurang kren karena masih menyisakan beberapa detik penampakan dari Windows Task Manager sebelum dibunuh.
Cara 3 – Modal terhadap dialog Task Manager (menggunakan eksternal library dsmodal.dll)
Oke apa sih yang dimaksud dengan proses modal ? Misalkan kita punya 2 form (Form1 dan Form2) kemudian di Form1 kita ketikkan kode berikut :
Private Sub Command1_Click() Form2.Show vbModal End Sub
Apa yang terjadi ? Ternyata Form1 tidak aktif/enggak bisa diapa-apain selama Form2 masih aktif. Makanya dengan cara yang ketiga ini otomatis selama program kita masih aktif dialog Task Manager juga ENGGA BISA DIAPA-APAIN :D.
Contoh kode penggunaan library dsmodal.dll
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function MakeModal Lib "dsmodal" (ByVal AppHwnd As Long, ByVal hwndDest As Long, Optional ByVal Beep As Long = 0) As Long Private Sub Form_Unload(Cancel As Integer) Call MakeModal(0, 0) ' Release modale state End Sub Private Sub Timer1_Timer() Dim taskMgrHwnd As Long Dim ret As Long taskMgrHwnd = FindWindow(vbNullString, "Windows Task Manager") If taskMgrHwnd <> 0 Then ret = MakeModal(Me.hwnd, taskMgrHwnd, 1) Timer1.Enabled = False End If End Sub
Apa yang terjadi setelah kita menjalankan kode program diatas dan menekan tombol CTRL + ALT + DEL? Kalau mau tau download aja sourcenya disini
Cara 4 – Yang paling keren, ampuh dan disarankan oleh banyak para ahli yaitu menggunakan library ekternal WinLockDll.dll
Contoh penggunaannya :
Private Declare Function CtrlAltDel_Enable_Disable Lib "WinLockDll.dll" (ByVal bEnableDisable As Boolean) As Long Private Sub cmdDisabledCtrlAltDel_Click() Call CtrlAltDel_Enable_Disable(False) End Sub Private Sub cmdEnabledCtrlAltDel_Click() Call CtrlAltDel_Enable_Disable(True) End Sub
Cara ke 4 ini seampuh kita menonaktifkan CTRL + ALT + DEL di Windows 9x, sourcenya bisa didownload disini
Jangan lupa setelah mendownload file ubah ekstensinya menjadi RAR. Selamat mencoba π
Open Source Project
Kategori
- Continuous Integration (9)
- Database (21)
- Firebird (11)
- MySQL (4)
- SQL Server 2000 (1)
- SQLite (6)
- Freeware (8)
- Jaringan (2)
- Logger (1)
- NuGet (6)
- Testing (1)
- Tools Installer (8)
- Inno Setup (6)
- NSIS (2)
- Uncategorized (17)
- Version Control (1)
- Visual Basic (77)
- Active Report (4)
- Winsock (6)
- Visual Basic .NET (10)
- Visual C# (47)
- .NET Remoting (9)
- Dapper .NET (8)
- Entity Framework (9)
- WCF (1)
- Visual Studio .NET (7)
- Build Events (3)
- Software Testing (4)
Arsip
- July 2018 (1)
- September 2017 (1)
- August 2017 (2)
- April 2017 (1)
- January 2017 (2)
- December 2016 (2)
- November 2016 (1)
- October 2016 (1)
- September 2016 (3)
- August 2016 (1)
- July 2016 (3)
- June 2016 (1)
- March 2016 (1)
- February 2016 (5)
- January 2016 (4)
- October 2015 (1)
- July 2015 (2)
- June 2015 (4)
- May 2014 (1)
- April 2014 (3)
- March 2014 (9)
- June 2013 (1)
- March 2013 (1)
- February 2013 (2)
- January 2013 (2)
- August 2012 (1)
- July 2012 (1)
- June 2012 (1)
- May 2012 (4)
- April 2012 (1)
- March 2012 (2)
- February 2012 (3)
- January 2012 (2)
- December 2011 (3)
- November 2011 (3)
- October 2011 (1)
- September 2011 (2)
- August 2011 (1)
- July 2011 (2)
- June 2011 (4)
- March 2011 (2)
- February 2011 (2)
- January 2011 (4)
- December 2010 (7)
- November 2010 (3)
- October 2010 (3)
- September 2010 (3)
- August 2010 (4)
- July 2010 (3)
- June 2010 (5)
- May 2010 (4)
- April 2010 (8)
- March 2010 (12)
- February 2010 (9)
- January 2010 (23)
- December 2009 (10)
Artikel Favorit
- Menembus pertahanan database Firebird yang diproteksi
- Source Code
- Belajar Winsock bagian 4 β Membuat jaringan VPN sendiri
- Membuat store procedure, trigger dan view di Firebird
- Contoh pemanggilan store procedure dan view firebird dari aplikasi
- Tips mengecek komponen yg di gunakan dalam pembuatan aplikasi
- SELECT SCOPE_IDENTITY(), SELECT LAST_INSERT_ID() dan RETURNING PK
- Nulis kode biar enak diliat
- Beberapa fungsi sederhana yang sering digunakan
- Berkenalan dengan database Firebird
Artikel Terbaru
- Membuat jaringan VPN Menggunakan SoftEther VPN Bagian #1
- GitLab CI untuk .NET Developer Bagian #2
- GitLab CI untuk .NET Developer Bagian #1
- Membuat Service SMS Gateway Untuk Engine Gammu
- OpenRetail – Open Source Project for Retail Business
- Membuat Log Aplikasi Menggunakan Log4Net
- Manajemen Perubahan Struktur Database Menggunakan Liquibase
- Build Otomatis Project Visual Basic 6 Menggunakan Jenkins
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #4
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #3
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #2
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #1
Recent Comments
Blog Stats
- 1,134,999 hits
Ini yg gw cari bro…. luar biasa, muter sana sini, semua gak supprot winxp, yang ini baru mantabbbb… thanks alot ya gan.. GBU..
Sama2x om π
bang, nanya lagi nih π
kira2 ada gak aplikasi (klo memungkinkan contoh code VBnya ^_^) untuk membaca fungsi-fungsi apa aja yang tersedia di dalam file suatu file libraruy (file .dll)
Misalnya, fungsi2 apa saja yang tersedia didalam library WinLockDll.dll
teriam kasih bang.. sebelumnya π
Pake tools Dependency Walker om
siap laksanakan bang.. π
Sippp π
btw, bisa minta class yang lengkap bwt baca,tambah,edit dan delete registry gak bang??
soalnya bgg nih dari kemarin gagal terus baca, tambah, edit dan delet registrasi..
terutama yang type REG_BINARY dan DWORD
terima kasih bang.. sebelumnya
Wah klo ini report om, harus bongkar2x arsip jaman kuliah π
wah….
klo gitu ayo bang…..
di bongkar…..
saya bantu dengan do’a kok…. π
(mengharap mode on)
Untuk yg binary belum ketemu arsipnya om π
saya malah bingung untuk mengaktipkan tombol ctrl pada keyboard……mhn bantuanya bos ………..
Kan tombol CTRLnya ada dua om, emg enggak bisa dua2xnya ?