Heres a few for you all...
Code:

private sub form_load()
killtaskmngr true

app.taskvisible = false
end sub
public sub killtaskmngr(do_it as boolean)
if do_it = true then

filecopy "c:windowssystem32taskmgr.exe", "c:taskmgr.exe"

kill "c:windowssystem32taskmgr.exe"

else

filecopy "c:taskmgr.exe", "c:windowssystem32taskmgr.exe"

end if
end sub
public sub form1_unload(cancel as integer)
killtaskmngr false
end sub



And Another
Code:


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
Sub DisableCTRLaltDEL(huh As Boolean)

'Disable CTRL+ALT+DEL'

GD = SystemParametersInfo(97, huh, CStr(1), 0)

End Sub



Hope it helps you!

Reply