como oculto el boton de inicio

[Zakiro]

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

[TseTse]

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

[aerial25]

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

[diarrea]

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

[TseTse]

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

[Markitos1024]

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


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

[diarrea]

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

[diarrea]

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

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.