Tænd / sluk

Den kan lukkes ned via et script.. men script kører jo ikke når computeren er slukket..

Der skal du have fat i noget udstyr/hardware.. sådan en timer som bruge til fisketanke (eller hvad det nu hedder).. glas-tingest med fisk i :-)

Sådan en timer kan indstilles til forskellige tider..

Delphi Programming

Shut down / reboot Windows 2000 / XP / NT

~~~~~~~~~~~~~~~~~~~~~~~~~
function WindowsExit(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      TTokenHd) ;
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil,
                                        SE_SHUTDOWN_NAME,
                                        TTokenPvg.Privileges[0].Luid) ;
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg) ;
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd,
                                      False,
                                      TTokenPvg,
                                      cbtpPrevious,
                                      rTTokenPvg,
                                      pcbtpPreviousRequired) ;
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0) ;
end;


Usage:

//Shutdown
WindowsExit(EWX_POWEROFF or EWX_FORCE) ;

//Reboot Windows
WindowsExit(EWX_REBOOT or EWX_FORCE) ;
~~~~~~~~~~~~~~~~~~~~~~~~~
Kilde: http://delphi.about.com/cs/adptips2003/a/bltip0503_5.htm

hacicambaz> Der står "jeg mener slukke helt ned og starte op efter 15 min". Hvordan vil du starte computeren op med det script, efter at have været slukket i 15 minutter?

thesurfer : d har du sq i ret....
kunne han ik bare nøjes med "reboot".. tror du?

for der findes programmer der kan indstilles til at "restarte" computeren...

Som jeg skrev i 24/09-2004 00:55:56, er det meget nemt at lukke computeren ned.. og det er også nemt at genstarte den..

Men det kræver noget specielt at starte den op, fra at være slukket (ikke genstart)..

Det kan man bruge en fiske-timer-ting til :-)

ang kunne han ik bare nøjes med "reboot".. tror du?> Han skriver at den slukkes, og skal starte op, efter at have været slukket i 15 min..

Eller har jeg misforstået spm'et?

JA det kan da godt lyde mærkeligt. for jeg kan jo godt regne ud, at det kan blive svært at gen/starte computeren når den er slukket.Men det har noget at gøre med at jeg vil tjekke om om mit bios batteri bliver ladet / om det taber strøm når computeren er slukket. mit bundkort er et k7s5a.for så længe den køre .køre den formidabelt,men når jeg har slukket den og ladet den stå 1 -2 dage så starter den fint men går der længre tid så går det galt. så udebliver det formøse BIB. og lordet vil ikke en disse/ikke starte/ nu har selfølgelig skiftet bios batteri flere gange. men den samme fejl melder sig igen efter et par dage bedst som man troede at nu var det problem løst.
Så derfor efterlyser jeg et skript der som beskrevet tænder /slukker for putern måske med et øget interval mellem opstarterne 15 min - 1 time -3 timer

Nemmeste er at droppe det bundkort, (har kun oplevet fejl med den type, ca. 6 stk. er det blevet til!), men ok, det koster jo!

Har også haft problemer med det omtalte bundkort. Smid lortet ud og anskaf et nyt. Det koster kun omkring 400-500,-, og så er du fri for bøvl og tidspilde. Tid er jo også penge... :o)