求這段代碼的詳細注釋,謝謝各位
Sub Change(Argument)
ChangeStartMenu.RegWrite RegPath&Argument,Key_Data,Type_Name
MsgBox("Success!")
End Sub
Dim ChangeStartMenu
Set ChangeStartMenu=WScript.CreateObject("WScript.Shell")
RegPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
Type_Name="REG_DWORD"
Key_Data=https://bbs.csdn.net/topics/1
StartMenu_Run="NoRun"
StartMenu_Find="NoFind"
StartMenu_Close="NoClose"
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/106533.html
標籤:VBA
上一篇:VB6 run exe
