Cómo activar el modo de protección ocular en Windows XP

Pero si no pasa, que así sea

Crea un nuevo documento de texto y pega el siguiente contenido

Dim VOL_PROD_KEY

if Wscript.arguments.count<1 entonces

VOL_PROD_KEY=InputBox ("Desarrollado por "&vbCr&vbCr&" Este programa reemplazará automáticamente el número de serie de su Windows actual, verificado como completamente genuino por Microsoft.")&vbCr&vbCr& "Número de secuencia (la versión OEM no es válida), la versión predeterminada es completamente genuina de Microsoft")&vbCr&vbCr& "Número de serie (la versión OEM no es válida, la versión predeterminada es XP VLK):", "Programa de reemplazo automático del número de serie de Windows XP", "MRX3F -47B9T-2487J. -KWKMF-RPWBY")

si VOL_PROD_KEY="" entonces

Wscript.

finalizar si

else

VOL_PROD_KEY = Wscript.arguments.Item(0)

finalizar si

VOL_PROD_KEY = Reemplazar(VOL_ PROD_KEY,"-"," ") 'Si hay un carácter de conexión, elimine el guión

para cada Obj en GetObject("winmgmts:").InstancesOf（"win32_WindowsProductActivation")

resultado = Obj.SetProductKey (VOL_PROD_KEY)

si err = 0 entonces

Wscript.echo "¡OK! ¡Vaya a Autenticación de Microsoft!"

finalice

Wscript.echo "¡OK! ¡Vaya a Autenticación de Microsoft!" ¡fallido! La CLAVE del CD introducida no coincide con la versión actual".

Err.Clear

end if

Siguiente

Luego cambie manualmente el sufijo Cambie a VBS, luego ejecútelo nuevamente y estará bien ~

Cambiar sufijo

Abra Mi PC - Herramientas - Opciones de carpeta - Ver - Eliminar "Ocultar archivo conocido" Extensiones" delante de la marca de verificación

Guardar cambio de nombre

Haga doble clic y ejecute