Red de conocimientos turísticos - Preguntas y respuestas turísticas - Quiero agregar un script vbs en blanco al nuevo menú contextual del escritorio. ¿Qué debo hacer? No copie y pegue este párrafo de otro lado para mí, sea original.

Quiero agregar un script vbs en blanco al nuevo menú contextual del escritorio. ¿Qué debo hacer? No copie y pegue este párrafo de otro lado para mí, sea original.

Tipo de archivo = ".vbs"

set wsh shell = CreateObject(" wscript . shell ")

HKCR. Tipo de archivo & amp"\")

prgname = readreg(" HKCR \ " & amp; prg & amp"\")

Ask="archivo Vbscript"

Title= "Crear un nuevo script vbs"

prgname=InputBox(pregunta, título, prgname)

wshshell. RegWrite "HKCR" & prg & " \ ", nombre del proyecto

wshshell. RegWrite "HKCR" &Tipo de archivo&\shellnew\nullfile ",""

Función readreg(clave)

Continuar con el siguiente paso en caso de error

readreg =wshshell. Volver a leer (crítico)

Si está mal. Número & gt y luego 0

Error="error: Valor de clave de registro" " " &key_&" " "¡No encontrado!"

Error de MsgBox, vbCritical

WScript . Renunciar

Terminará si...

Finalizar función ¿Guardar el código anterior como? Haga clic derecho en crear vbs.vbs y ejecutar.

set wsh shell = CreateObject(" wscript . shell ")

Tipo de archivo = ".vbs"

wshshell. HKCR.

Tipo de archivo y amplificador" \shellnew\ "

MsgBox "¡Comando eliminado!" ¿Guardar el código anterior como? Elimina el clic derecho y crea un nuevo vbs.vbs