Traditional Culture Encyclopedia - Photography major - I want to add a vbs blank script to the new desktop right-click menu. What should I do? Don't copy and paste this passage to me from other places, original.

I want to add a vbs blank script to the new desktop right-click menu. What should I do? Don't copy and paste this passage to me from other places, original.

File type = ". vbs "

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

HKCR。 File type & "\")

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

Ask="Vbscript file "

Title= "Create a new vbs script"

Prgname=InputBox (question, title, prgname)

wshshell。 RegWrite“HKCR”& amp; Prg & amp" \ ",project name

wshshell。 RegWrite“HKCR”& amp; File type & "\ shellnew \ null file", ""

Function readreg (key)

Continue to the next step when an error occurs.

readreg=wshshell。 Re-reading (key)

If it is wrong. Number & gt Then 0

Error="error: registry key value """&; Key _&"""can't be found!"

MsgBox error, vbCritical

WScript。 give up

If ... it will be over.

Save the code above the End Function as? Right-click to create vbs.vbs and run it.

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

File type = ". vbs "

wshshell。 HKCR。 File type & "\ shellnew \"

MsgBox "command deleted!" Save the above code as? Delete the right button and create a new vbs.vbs.