DESHABILITAR FUNCIONES DE WINDOWS

Aqui te presento una serie de pasos para crear un programa que pida una contraseña al inicio de windows la cual si es incorrecta se inicie un modo especial de windows. Este programa fue hecho con Visual Basic 4.0 32 bits.NOTA: SI TE SALE ALGUN ERROR NO DUDES EN MANDARME UN EMAIL.

  1. Baja del sitio http://www.infinet.com/~adkins el control llamado DisablePro.
  2. Baja del sitio http://www.ez-net.com/~blackthorn el control llamado ShutDown.
  3. Despues de que comprimes ambos controles, tienes que registrarlos en el sistema (Para esto salte al MS-DOS) y pones lo siguiente:

regsvr32 disablepro.ocx

regsvr32 shutdown.ocx

  1. Ahora inicia Visual Basic.
  2. Anexa ambos controles a tu forma.

    Pulsa Ctrl + T

vbdisw1.jpg (38315 bytes)

Seleccionas los controles: BlackThorn Shutdown Tool y DisablePro.

  1. Pulsas ok.
  2. En tu primera Forma lo pones de la siguiente forma:

Caption: Contraseña.

BorderStyle: 0 - None

BackColor: El que quieras.

ScaleHeight: 1380

ScaleWidth: 2865

ShownInTaskbar: False

WindowState: Normal

Lo demas dejalo tal y como viene por default

  1. Seleccionas el icono de Disable. vbdisw2.jpg (1743 bytes)
  2. Haces un rectangulo en tu forma con este control.
  3. Da doble click en la cualquier zona del Form para que pongas el siguiente codigo:

Private Sub Form_Load()
Disable1.DisableDesktop = True
Disable1.DisableIconTray = True
Disable1.DisableStartButton = True
Disable1.DisableTaskSwitching = True
End Sub

¿Que hace este codigo?

Cuando inicia el programa (Form_Load() obliga al control disable1 que haga las siguientes opciones:

Que quite el escritorio de Windows.

Que quite el Reloj que esta en la barra de tareas.

Que quite el Boton de Inicio.

Que quite las combinaciones de teclas Alt+Esc, Alt+Tab.

  1. Seleccionas el icono de Label y en la parte de Caption pones: Introduzca su contraseña.
  2. Seleccionas el Icono de TextBox y en la parte de PasswordChar pones *.
  3. Seleccionas el Icono de CommandButton y en la parte de Caption pones: Aceptar.
  4. Bueno, la forma debe de quedar mas o menos asi (Recuerda que el BackColor es el que tu quieras, yo lo puse azul.

vbdisw3.jpg (14939 bytes)

  1. Ahora bien, dale doble click al boton donde dice aceptar.

  2. Debes de poner el siguiente codigo:

Private Sub Command1_Click()
If Text1.Text = "Tu Contraseña que tu quieras"  Then
Disable1.DisableDesktop = False
Disable1.DisableIconTray = False
Disable1.DisableStartButton = False
Disable1.DisableTaskSwitching = False
Disable1.DisableScreenSaver = False
Unload Me
End
Else
Form2.Show
Unload Me
End If
End Sub

Recuerda que en la parte donde dice If Text1 en donde esta las comillas pones la contraseña que tu quieras.

¿Que hace este codigo?

Primero pregunta cual es la contraseña, si es correcta las opciones de Disable1 que pusiste en el form_load las vuelva falsas para que aparezcan nuevamente.

En caso contrario, si la contraseña es incorrecta inicializa un segundo Form que es el que vamos a hacer a continuacion:

  1. Nos vamos al menu de Insert y seleccionamos Form.

  2. En este form van a ir unos botones en el cual va a ejecutar un determinado programa, ej. Word, Excel, etc. (Con el comando shell)

  3. Seleccionas nuevamente el icono de Disable para que pongas otro rectangulo en el.

  4. Damos doble click en ese form para que pongas el siguiente listado en el procedimiento de Load

Private Sub Form_Load()
Disable2.DisableDesktop = True
Disable2.DisableStartButton = True
Disable2.DisableIconTray = True
Disable2.DisableTaskSwitching = True
Disable2.DisableScreenSaver = True
End Sub

  1. Pones el siguiente listado en el procedimiento de UnLoad

Private Sub Form_Unload(Cancel As Integer)
mensaje$ = "¿Esta seguro de querer cerrar esta ventana?, si lo hace se cerrara todo windows" & Chr(13) & Chr(10) & "Nota: Si pulsaste en el Boton de Modo Normal Windows Solo pulsa Cancelar y despues la Contraseña Correcta"
reply = MsgBox(mensaje$, vbOKCancel, "Cerrar Ventana")
If reply = vbOK Then
Form3.Show
Else
Form1.Show
End If
End Sub

¿Que hace este codigo?

Manda un mensaje cuando se cierra la ventana, si se cancela aparece nuevamente el cuadro de contraseña y si acepta muestra una forma 3 que vamos a hacer ahora (Este form es el que va a apagar la computadora)

  1. Nos vamos al menu de Insert y seleccionamos Form.

  2. Ese form le ponemos lo siguiente:

ScaleHeight:540

ScaleWidth:1560

  1. Insertamos el control ShutDown y en la parte de Mode le ponemos 2 - Shut_Down.
  2. Lo hacemos ejecutable y ya esta.

NOTA: SI TE SALE ALGUN ERROR NO DUDES EN MANDARME UN EMAIL.