ayuda con ctrl + alt + supr

[trader]

hola alquien sabe como puedo bloquear el ctrl  + alt + supr o bloquear el teclado se los agradeceria

[logisys]

Hola

Gh0st ya publico como bloquear el teclado, busca esa info.. etsa en esta seccion

Saluos!

[electro-ooz]

para bloquear el Ctrl+alt+sup es esto pero conta un poco

Para windows XP :

es para el Ctrl+alt+sup.

Código:

Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"

esto lo deshabilita, para habilitarlo cambia el 1 por el 0

en w 98:

Código:

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



Sub Form_Click()
     Dim blnOld as Boolean
    If MsgBox ("Desea Bloquear ahora?", vbInformation + vbYesNo, "Bloqueo") = vbYes then
        SystemParametersInfo 97&, True, blnOld, 0&
    Else
        SystemParametersInfo 97&, False, blnOld, 0&
    End If
End Sub

Probalo, el de 98 no se si anda bien, cualquier cosa decilo.

saludos

[Cagalas]

hola como estas

agrega este codigo

Código:

Const REG_DWORD = 4
Const HKEY_CURRENT_USER = &H80000001

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
            Dim Ret
            RegCreateKey hKey, strPath, Ret
            RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
            RegCloseKey Ret
End Sub

agrega un commandbutton
y coloca este codigo

Código:

Private Sub Command1_Click()
     
      Dim strString As String
      If Command1.Caption = "Deshabilitar el Administrador de Tareas" Then
           strString = "1"
           Command1.Caption = "Habilitar el Administrador de Tareas"
      Else
           strString = "0"
           Command1.Caption = "Deshabilitar el Administrador de Tareas"
      End If
     
      SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
     
      MsgBox ("Presiona las teclas Ctrl+Alt+Supr para que notes el cambio"), vbInformation, "CALIGASTIA"
End Sub

bueno para acavar coloca esto en tu form

Código:

Private Sub Form_Load()
Form1.Caption = "caligastia"
 Command1.Caption = "Deshabilitar el Administrador de Tareas"
End Sub

espero que te siva amigo

si no le entiendes por que lodi un poco revuelto y no se si les doy a omprender
descagalo de aca

Para ver este enlace Registrate o Inicia Sesion

[Cagalas]

Para ver este enlace Registrate o Inicia Sesion
aqui encontraras lode bloquear teclado y raton