Låse computeren

Du stopper bare window's message kø *S*

/Martin

Effektiv, Meeen måske lige voldsomt nok ;-)

Hvordan?

Gentager, mere tydeligt: hvordan stopper man 'bare' window's message kø (200p ingen interesse?)?
Jeg skal LÅSE computeren, dog skal det være muligt at LÅSE OP igen med det rigtige password (i ved nok, ****...).

Jeg tænker at hvis jeg bruger koden på http://www.pythia.dk/tips/vis_tip.php?id=10
så vil det være muligt at lave et program med StayOnTop som ved tryk på en knap slår diverse taster til igen og brænde det ned på en cd-rom, og så derefter via cd-rommens autostart starte programmet selvom computeren er låst.

Du stopper IKKE bare window's message kø !!

/Martin

"hvordan stopper man 'bare' window's message kø"
Læg mærke til "'" om bare, jeg havde en LILLE mistanke om at det ikke er så let (måske end ikke muligt?), men hvad gør jeg så?

Jeg har faktisk ikke rigtig nogle ider, måske du kan lave et keyboard hook, og "suge alle taste tryk", men jeg ved det ikke.

Jeg ville også prøve at fange alle tastetryk, samt alle musetryk.

Prøv at slå "DefaultHandler" op i din hjælp.
Du kan prøve at overskrive DefaultHandler med din egen, og i den fanger du alle WM_ messages der har interesse.

Men pas på når du gør dette. Du kan få computeren til at låse (ret meget), hvis du ikke håndterer essestielle messages.

essestielle = essentielle ;)

har du tænkt på blot at kalde LockWorkStation() ?

Jens B

martin .. Selvfølgelig kan man bare stoppe Windows' windows kø ... Man laver blot et hook og smider det hele væk ... Men så kan computeren heller ikke bruges til noget ... :-)

Jens B

Det var altså også ment som en joke *S*

Det ved jeg godt ... :-)

Jens B

jens >> ja hvorfor ikke bruge lockworkstation. når kan prøver at bruger en kode som ikke virker på en nt-kerne, så er det sikkert også muligt at bruge lockworkstation :)

hmmm siger jeg bare hook hook hook, smager godt ik...

/ZIRON

Jeg bruger Windows 98; altså er LockWorkStation() udelukket!

Jeg tænker at det vil det være muligt at lave et program med StayOnTop som ved tryk på en button slår diverse taster til igen og brænde det ned på en cd-rom, og så derefter via cd-rommens autostart starte programmet selvom computeren er låst. (gentagelse med småændringer; mere tydeligt?)

Jeg kan netop slå diverse tastekombinationer fra via koden på http://www.pythia.dk/tips/vis_tip.php?id=10 , det er ikke mit problem!

lav dig et message hook .. og sorter i skidet selv !


Jens B

borrisholt(.com) -> hvordan gør man?

hvis "systemet stoppes", hvad sker der så med "aktiv systemprocess" hvis den dør - så er der vel ikke meget andet at gøre end at dræbe maskinen ?

Man SKAL kunne låse computeren op med det rigtige Password og derefter, uden genstart (hverken hård eller blød), kunne fortsætte det man var i gang med før man låste!

Se evt. http://www.publicware.dk/products/LockDown/

Det er et andet program kan låse computeren.

Mit program får et billed der ligner mit skrivebord med startmenuen i bunden. Nederst til højre er et ur der går! Altså får ingen mistanke om at den er låst, først når de begynder at pille!

Hallo, ingen smarte triks (og 200p!)?

Hvor er alle i kloge eksperter? På hvilke tidspunkt skal man stille sit spørgsmål? 200p? Mange bække små...

Jeg bliver RIGTIG, RIGTIG glad hvis nogle vil komme med et godt svar :)

har du prøvet at kigge på det der med at hook sig igennem det?

/ZIRON

ZIRON -> HVORDAN GØR MAN???

Forresten er GØR (vovvov) ikke det som hunde kan :)

Hook Hook Hook Hook Hook Hook. lav det med Hook.

Du kan i din TForm assigne en ny WinProc procedure.

til din TForm. Det betyder, at alle messages, som der sendes til din Form sendes gennem denne procedure.

Det betyder også, at du selv kan bestemme, om du vil håndtere dem, eller, om du vil lade TForm's Winproc procedure håndtere dem.

Jeg har dessværre ikke Delphi installeret, men hvis du kan nøjes med et C++ eksempel fra CBuilder, så sig til, og jeg vil poste det.

laffe -> Det der C++ har jeg aldrig rørt ved, derfor foretrækker jeg Object Pascal. Men det lyder godt det der Hook!

// I FormActivate, har jeg assignet min egen WindowProc methode, som jeg har kaldt MyWinProc

void __fastcall TForm1::FormActivate(TObject *Sender)
{
  WindowProc = MyWinProc;
}

Her er så implementeringen af metoden.

En switch er det samme som en case i Delphi.

Som du kan se, så fanger jeg her alle WM_KEYDOWN Messages. Når en tste trykkes ned, så viser jeg en besked.

Ved alle andre beskeder, så kalder jeg formens WindowProc, som hedder WndProc, og lader den håndtere beskeden.

void __fastcall TForm1::MyWinProc(Messages::TMessage &Message)
{
  switch (Message.Msg)
  {
    case WM_KEYDOWN:
      if (Message.WParam)
        ShowMessage("WM_KEYDOWN Message received");
    break;
    default:
      WndProc(Message);
  }
}

Ovenstående viser pricippet i hvad jeg mener. Det at fange alle WM_KEYDOWN er en begyndelse. Der findes jo et hav af andre messages, som du måske også skal fange, men start lige med det her først.

Få ovenstående til at virke i Delphi. Så kan vi se på, hvilke andre messages der kunne være interesant.

Jeg lavede på et tidspunkt et program, der lavede en full-screen form, hvorefter alle taster blev opfanget af programmet og windowstasten og ctrl-alt-del blev deaktiveret. Formen tog et screenshot af windows baggrunden og viste billedet på formen. Folk kunne ikke se den var låst, før de gik hen og trykkede på computeren. Programmet havde så en speciel tastkombination man kunne trykke for at få en passworddialog op. Virkede meget godt, med min bærbar i et klasselokale. Senere fik jeg win2000 og så var det ligemeget..

Hilsen

Thomas

Hvis der ikke snart kommer noget kode jeg kan bruge, så må jeg lukke spørgsmålet i stedet for min computer! Og så kan jeg ikke låse op, heller ikke med mit Eksperter-password!

Hvad med mit svar. Har du prøvet det ?

laffe -> Hvad gør dit svar? Er det ikke bare noget med at hindre tastetryk?  Det har jeg jo gjort!

Ja det fanger tastetryk, og ved at udvide det, kan du fange alle input (Mouse/Keyboard), og dermed "låse" PC'en.

Som skrevet, det med tastetryk har jeg klaret! Prøv lige at gennemlæse mine indlæg, spørg hvis der er noget du ikke forstår (måske har jeg ikke formuleret mig korrekt?).

Er det rigtig forstået, at du har løst problemet med Input (Keyboard/Mouse) ?

Det du nu mangler er at låse andre applikationer fra at starte op ?

---------- Pythia.dk ----------
Disable alt+tab & ctrl+alt+del
Hvis man laver programmer, der på en eller anden måde skal køres færdig uden at brugeren har mulighed for at hindre dette (ud over via elværket), så kan der være brug for at slå tastkombinationerne alt+tab samt ctrl+alt+del. I de to følgende metoder er vist koden til at slå tastkombinationerne fra og til.


procedure TForm1.Button1Click(Sender: TObject);
var
  dummy: integer;
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @dummy, 0);
end;

// I denne metode slås tastkombinationerne til igen
procedure TForm1.Button2Click(Sender: TObject);
var
  dummy: integer;
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @dummy, 0);
end;
DISSE METODER VIRKER IKKE UNDER WINDOWS NT/2000
---------- Pythia.dk ----------

Det er fra det link jeg tidligere har nævnt: http://www.pythia.dk/tips/vis_tip.php?id=10

Lukker :(