PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Можно ли программно рестартовать Windows в PB?

Можно ли программно рестартовать Windows в PB?

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: Asma
  • Новичок
  • Зарегистрирован: 08.06.2010
  • Приглашений: 0
  • Сообщений: 1
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    44 минуты
  • Последний визит:
    05.07.2010 00:52:14

Привет!
Можно ли программно рестартовать Windows в PB?
Если можно подкинте примерчик!

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3025
  • Уважение: [+98/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 03:21:15

Запусти этот код и компьютер перезагрузится.

Код:
Structure MyLUID 
  LowPart.l 
  HighPart.l 
  Attributes.l 
EndStructure 
  
Structure MyTOKEN 
  PrivilegeCount.l 
  LowPart.l 
  HighPart.l 
  Attributes.l 
EndStructure 

Procedure Restart() 
  tmpLuid.MyLUID 
  tkp.MyTOKEN 
  tkpNewButIgnored.MyTOKEN 
  hdlProcessHandle = GetCurrentProcess_() 
  OpenProcessToken_(hdlProcessHandle, #TOKEN_ADJUST_PRIVILEGES | #TOKEN_QUERY, @hdlTokenHandle) 
  SysName.s=""+Chr(0) 
  Name.s="SeShutdownPrivilege"+Chr(0) 
  Erg.l=LookupPrivilegeValue_(SysName, Name, @tmpLuid) 
  tmpLuid\Attributes = #SE_PRIVILEGE_ENABLED 
  tkp\PrivilegeCount = 1  
  tkp\LowPart = tmpLuid\LowPart 
  tkp\HighPart = tmpLuid\HighPart 
  tkp\Attributes = tmpLuid\Attributes 
  Erg.l = AdjustTokenPrivileges_(hdlTokenHandle,0,@tkp,SizeOf(MyTOKEN),@tkpNewButIgnored,@lBufferNeeded) 
  Erg.l = ExitWindowsEx_((#EWX_REBOOT | #EWX_FORCE), 0) 
EndProcedure 

Restart()

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Можно ли программно рестартовать Windows в PB?