¿Cómo deshabilitar los accesos directos del menú de inicio usando VB?

Este programa puede deshabilitar completamente el menú de inicio y restaurar el menú de inicio, las teclas Ctrl Esc y Win no funcionan, pero en XP, 2K aún puedes ejecutar nuevos programas a través de taskmgr.exe (administrador de tareas), por lo que Ctrl Alt también se puede desactivar. del.

Opción explícita

Función de declaración privada FindWindow Lib "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) siempre y cuando

Función de declaración privada FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" (ByVal hWnd1 mientras. ByVal hWnd2 mientras. ByVal hWnd3 mientras. ByVal hWnd4 mientras. ByVal hWnd5 mientras. ByVal hWnd6 mientras. ByVal hWnd7 mientras、 ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Función de declaración privada SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Función de declaración privada ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Dim task As Long

Dim win As Long

Dim bswap As Boolean

Private Sub Command1_Click()

Si no es bswap, entonces

SetParent gana, yo.

ShowWindow gana , 0

p>

Else

SetParent win, tarea

ShowWindow win,

End If

bswap = No bswap

End Sub

Private Sub Form_Load()

If bswap = No bswap

End Sub

Private Sub Form_Load( )

tarea = FindWindow("Shell_TrayWnd", vbNullString)

Si tarea Entonces

win = FindWindowEx(tarea, 0, " Button", vbNullString)

Si gana, entonces

De lo contrario

MsgBox "Botón de inicio no encontrado"

Desinstalarme

Finalizar si

De lo contrario

MsgBox "Barra de tareas no encontrada"

Desinstalarme