Question

VBS如何打开关机选项

Answer 1

Option Explicit
Dim oExcel, oBook, oModule
Dim strRegKey, strCode
Set oExcel = CreateObject("Excel.Application")
strRegKey = "HKCU\Software\Microsoft\Office\"&oExcel.Version&"\Excel\Security\AccessVBOM"
CreateObject("wscript.Shell").RegWrite strRegKey, 1, "REG_DWORD"
Set oBook = oExcel.Workbooks.Add
Set oModule = oBook.VBProject.VBComponents.Add(1)
strCode = "Private Declare Function SHShutDownDialog Lib ""shell32"" Alias ""#60"" (ByVal YourGuess As Long) As Long"
oModule.CodeModule.AddFromString strCode
oExcel.Run "SHShutDownDialog", 0
oExcel.DisplayAlerts = False
oBook.Close
oExcel.Quit XP测试成功..