Detailed comments for this code, thank you
Sub Change (Argument)
ChangeStartMenu. RegWrite RegPath& Argument, Key_Data, the Type_Name
MsgBox (" Success!" )
End Sub
Dim ChangeStartMenu
The Set ChangeStartMenu=WScript. CreateObject (" WScript. Shell ")
RegPath="HKCU \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer "
The Type_Name="REG_DWORD"
Key_Data=https://bbs.csdn.net/topics/1
StartMenu_Run="NoRun"
StartMenu_Find="NoFind"
StartMenu_Close="NoClose"