首页 > > 程序设计 > VB >

重启Windows2000/NT系统

2018-06-17 17:14:20来源：未知阅读 ()

RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.

'APICallsusedforRebootPC

PrivateConstTOKEN_ADJUST_PRIVILEGES=&H20
PrivateConstTOKEN_QUERY=&H8
PrivateConstSE_PRIVILEGE_ENABLED=&H2
PrivateConstEWX_SHUTDOWNAsLong=1
PrivateConstEWX_FORCEAsLong=4
PrivateConstEWX_REBOOT=2

PrivateTypeLUID
　UsedPartAsLong
　IgnoredForNowHigh32BitPartAsLong
EndType

PrivateTypeTOKEN_PRIVILEGES
　PrivilegeCountAsLong
　TheLuidAsLUID
　AttributesAsLong
EndType

PrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLong
PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong
PrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,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->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有