重啟Windows2000/NT系統(tǒng)

2019-11-18 17:51:33

字體：大中小

供稿：網(wǎng)友

RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesit accessAsLong,TokenHandleAsLong)AsLong
PrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLong
PrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLong

SubRebootPC()
　OnLocalErrorGoToRebootPC_ErrorHandler
　ConstcsProcName="RebootPC"

　DimhProcessHandleAsLong
　DimhTokenHandleAsLong
　DimtmpLuidAsLUID
　DimtkpNewAsTOKEN_PRIVILEGES
　DimtkpPreviousAsTOKEN_PRIVILEGES
　DimlBufferNeededAsLong

　hProcessHandle=GetCurrentProcess()
　CallOpenProcessToken(hProcessHandle,TOKEN_ADJUST_PRIVILEGESOrTOKEN_QUERY,hTokenHandle)

'GettheLUIDfortheshutdownprivilege
　CallLookupPrivilegeValue("","SeShutdownPrivilege",tmpLuid)

　tkpNew.PrivilegeCount=1'Oneprivilegetoset
　tkpNew.TheLuid=tmpLuid
　tkpNew.Attributes=SE_PRIVILEGE_ENABLED

'Enabletheshutdownprivilegeintheaccesstokenofthisprocess.
　lBufferNeeded=0
　CallAdjustTokenPrivileges(hTokenHandle,False,tkpNew,Len(tkpPrevious),tkpPrevious,lBufferNeeded)

'ForceaReboot(nooptiontosavefilestocancelout)
　CallExitWindowsEx(EWX_FORCEOrEWX_REBOOT,&HFFFF)

　ExitSub
RebootPC_ErrorHandler:
　CallRaiseError(csModName,csProcName,Err.Number,Err.Description)
EndSub->

上一篇：如何用VB準(zhǔn)確計(jì)算年齡

下一篇：怎樣關(guān)閉一個(gè)正在運(yùn)行的程序