como oculto el boton de inicio

estimados:

yo otra vez, quisiera saber si hay alguna forma de poder ocultar el boton inicio del sistema, ya que estoy en un cyber y ciertos usuarios si es que se les puede llamar asi dejan todo mal por meterse ahi "YA QUE NO SABEN", entonces mi idea es poder ocultarlo y dejar con acceso directo las opciones mas ocupadas en el escritorio, el sistema es windows millenium.

PD: y si es que conocen algun programa freeware para redes que sea bueno o para cybers, de lo mismo para que no se cambie la configuracion. de nate mano muchisimas gracias

Busca por google alguna aplicación para restricciones locales (pc restrictions) seguro que encuentras alguna que haga eso. Ahora yo te recomendaría que usaras algun software de gestión de cibercafés que te va a ser más útil y se encargan de todas esas cosas para que los usuarios no provoquen errores ni borren nada.

TseTse

Pues yo en mi ciber uso el ciber control 4.0 y no me puedo quejar... por algun tiempo estuve buscando otro porgrama con mas opcione pero que va, no valian la pena... piccolo tambien utiliza el mismo programa asi que te lo recomiendo
Puedes bajarte el programa con el crack desde internet y no es muy dificil de localizar... puede que desde la misma pag te puedas bajar el demo y luego buscas el crack, sino te o mando yo... www.lucioperri.com
Lo que si puedes bajarte gratis son los ciber puestos para los pc del ciber en la misma pag... busca actualizaciones y poniendo que tipo de s.o usas, bajas el puesto respectivo.
Ya al instalarlo, puedes configurar el puesto para bloquear lo que desees (aunque a veces no sirva de mucho). En el menu de administrador puedes quitar el menu de inicio, bloquear las unidades y muchas opciones mas.
Te recuerdo que es ilegal tener este tipo de software sin licencia en un ciber, asi que si de vez en cuando un policia o autoridad se asoma por tu ciber curioseando y revisando los pc a ver que tienes con licencia, no lo instales crackeado sino paga tu licencia.....
Como en mi ciber nunca vienen a revisar, yo no he tenido problemas xD
Saludos

Cita:

---

Iniciado por aerial25

Como en mi ciber nunca vienen a revisar, yo no he tenido problemas xD
Saludos

---

Buff.. mal asunto areial25, as topado con un madero... lo siento tío.
¿Dónde está ubicado tu ciber?

PD. Obviamente es coña xD
Salu2

Cita:

---

Iniciado por aerial25

Como en mi ciber nunca vienen a revisar, yo no he tenido problemas xD

---

Osea que los sobornas..... ya me pasaré con mi cuña y se te va a caer el pelo :P eso sí me dejo sobornar (y ella tratandose de família también).

TseTse

htEl siguiente código sirve para ocultar el botón de inicio o poner otro en su lugar.

Código:

---

Option Explicit
Const WS_CHILD = &H40000000
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim tWnd As Long, bWnd As Long, ncWnd As Long


Para ocultar el botón :

    'Obtenemos el handle de la barra de tareas
    tWnd = FindWindow("Shell_TrayWnd", vbNullString)
    'Obtenemos el handle del botón de inicio
    bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
    'Ocultamos el borón de inicio
    ShowWindow bWnd, SW_HIDE

Para volver a mostrarlo :

    ShowWindow bWnd, SW_NORMAL

Si además queremos poner uno en su lugar haremos :

Para ocultar el botón y mostrar el nuestro :
    Dim R As RECT
    'Obtenemos el handle de la barra de tareas
    tWnd = FindWindow("Shell_TrayWnd", vbNullString)
    'Obtenemos el handle del botón de inicio
    bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
    'Obtenemos la posición del mismo
    GetWindowRect bWnd, R
    'Creamos un nuevo botón
    ncWnd = CreateWindowEx(ByVal 0&, "BUTTON", "Hello !", WS_CHILD, 0, 0, R.Right - R.Left, R.Bottom - R.Top, tWnd, ByVal 0&, App.hInstance, ByVal 0&)
    'Mostramos nuestro botón
    ShowWindow ncWnd, SW_NORMAL
    'Ocultamos el borón de inicio
    ShowWindow bWnd, SW_HIDE

Para ocultar el nuestro y volver a mostrar el original :

    'Mostrar el botoón de inicio
    ShowWindow bWnd, SW_NORMAL
    'Destuir el nuestro
    DestroyWindow ncWnd

---

Mmm.. pero creo que esto no funciona al presionar la winkey. O si? Es decir, te muestra el menú aunque este oculto el botón; aunque vamos, le añades unas lineas más de código y desactivas la tecla.
Salu2

La winkey se puede desactivar desde el registro (lo probé en xp):

Cita:

---

1. Abrimos un editor del registro.
2. HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Keyboard Layout
3. Creamos un nuevo valor binario (REG_BINARY) de nombre Scancode Map (o bien modificamos el existente)
4. Le asignamos el valor: 00 00 00 00 00 00 00 00 03 00 00 00 00 00 5B E0 00 00 5C E0 00 00 00 00
5. Es necesario volver iniciar la sesión.

---

P.D. Lógicamente, para volver a activar la winkey eliminaremos la clave creada.