Avatar billede kop Nybegynder
24. september 2004 - 00:28 Der er 8 kommentarer og
1 løsning

Tænd / sluk

Jeg ønsker at starte /slukke min computer hver 15 ende minut.
døgnets 24 timer for en tid ( jeg mener slukke helt ned og starte op efter 15 min
Er der mon nogen der kan lave sådan et script
Avatar billede thesurfer Nybegynder
24. september 2004 - 00:55 #1
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..
Avatar billede hacicambaz Nybegynder
24. september 2004 - 01:05 #2
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
Avatar billede thesurfer Nybegynder
24. september 2004 - 01:08 #3
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?
Avatar billede hacicambaz Nybegynder
24. september 2004 - 01:13 #4
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...
Avatar billede thesurfer Nybegynder
24. september 2004 - 01:16 #5
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 :-)
Avatar billede thesurfer Nybegynder
24. september 2004 - 01:17 #6
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?
Avatar billede kop Nybegynder
24. september 2004 - 08:49 #7
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
Avatar billede sukos Juniormester
26. september 2004 - 13:06 #8
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!
Avatar billede grafikeren Nybegynder
28. september 2004 - 01:28 #9
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)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester