Cómo deshabilitar la tecla WIN usando el lenguaje E
. Bibliotecas compatibles xplib. Ensamblaje Ventana de inicio
Mango de gancho de variables de ensamblaje, número entero. Subrutina __StartupWindow_CreationCompleted Estilo XP (1). Función de gancho de subrutina, número entero, puede encontrar mucha información sobre esta función en Internet
Parámetro icode, número entero
. Parámetro wparam, entero
. Parámetro lparam, entero
Información de clave de variable local, información de clave CopyMemory (información de pulsación de tecla, lparam, 28)
. Si es verdadero (icode = 0)
. Si es verdadero (icode = 0)
icode = 91 o información clave. Código ficticio = 92) ' Determina si se presiona la tecla WIN (91 tecla WIN izquierda, 92 tecla WIN derecha)
Confirmar inicio (wparam = 256)
Generar texto de depuración (. " ¡Tecla WIN presionada! ").
.Default
Texto de depuración de salida ("¡Tecla WIN emergente!")
.Fin del juicio
Cuadro de edición. Contenido = "Código ficticio:" Ir al texto (información clave. Código virtual) + # Salto de línea + "Código de escaneo:" + Ir al texto (información clave. Código de escaneo) # Salto de línea "Marca:" Ir al texto (clave información. marca) + # salto de línea + ir al texto (mensaje clave. marca) + # marca de salto de línea) + # salto de línea + "hora:" al texto (mensaje clave. hora) # tiempo de salto de línea) # salto de línea " Información adicional:" al texto (Información clave. Información adicional) # salto de línea "Tecla WIN bloqueada" ' Muestra información de la clave WIN en el cuadro de edición
Retorno (1)
. De lo contrario
Editar cuadro. Contenido = "Código virtual:" Convertir texto (información clave. Código virtual) + # Salto de línea + "Escanear código:" + Convertir texto (información clave. Escanear código) + # Línea romper" Marca: " Convertir a texto (información clave. marca) + # Avance de línea + "Escanear código: " + Convertir a texto (información clave. Escanear código) + # Salto de línea + " Marca: " + Convertir a texto (tecla información marca) + # salto de línea +Ir al texto (información clave.
marca) + #marca de avance de línea) + #avance de línea + "tiempo:" al texto (mensaje clave. Hora) # tiempo de avance de línea) # salto de línea "Información adicional:" al texto (información de pulsación de tecla) ' Cambiar WIN a WIN .información adicional) muestra información de la clave WIN en el cuadro de edición
.If end .If true end
Return (CallNextHookEx (hook handle, icode, wparam, lparam)) 'Si el la información está enganchada Interceptarla sin poder pasarla provocará algún comportamiento impredecible o bloqueo del sistema, por lo que se utiliza la función CallNextHookEx, que puede pasar la información del gancho al siguiente gancho en la cadena de ganchos. La siguiente función de gancho en la cadena de ganchos
. Subrutina _Block_Button_Clicked_Block_Button.Disable = True
.Disable = True
Desactiva el botón. Prohibido = Falso
Cuadro de edición. Contenido = "¡Hook instalado correctamente!". Si es verdadero (identificador de gancho = 0)
Identificador de gancho = SetWindowsHookEx (13, amp;Función de gancho, GetModuleHandleA (0), 0) ' Instalar gancho, algún antivirus. el software emitirá una alarma en ciertos momentos (estoy usando Kaba y emitirá una alarma)
. If (identificador de gancho ≠ 0)
Salida de texto de depuración ("¡El gancho se instaló correctamente!")
De lo contrario, si es verdadero,
. Programa_Botón Desarmar_ Haga clic en el botón Desarmar.Forbidden = true
Botón Bloquear. Prohibido = Falso
Cuadro de edición. Content = "¡Desinstale el gancho correctamente!" ..Si es verdadero (identificador de gancho ≠ 0)
.Si es verdadero (UnhookWindowsHookEx (identificador de gancho) ≠ 0) ' Es mejor desinstalar los ganchos inmediatamente después de usarlos, porque Afectarán el rendimiento del sistema
Texto de depuración de salida ("¡Desinstalación exitosa del gancho!")
Mango del gancho = 0
.If true end .If true end< / p>
.La subrutina __start window_ será destruida Si es verdadero (identificador de gancho ≠ 0)
.Si es verdadero (UnhookWindowsHookEx (identificador de gancho) ≠ 0) ' Es mejor quedarse sin ganchos. Desinstálelos inmediatamente, ya que afectarán el rendimiento del sistema
Texto de depuración de salida ("¡Desinstalación exitosa!").
Hook handle = 0
.Si es verdadero final .Si es verdadero final
.Haga clic en la subrutina _Botón Salir_ . Si es verdadero (identificador de gancho ≠ 0)
.Si es verdadero (UnhookWindowsHookEx (identificador de gancho) ≠ 0) ' Es mejor desinstalar los ganchos inmediatamente después de que se agoten, ya que afectarán el rendimiento del sistema
Texto de depuración de salida ("¡El gancho se desinstaló correctamente!").
Hook handle = 0
.Si es verdadero final .Si es verdadero final ()