Vtipne programy co resetuju komp

string

Zdravim, chcem sa spytat : nevie niekto z vas ako sa robia programy co napr. resetnu pc alebo vypnu monitor, daju nahlas hudbu atd... ak viete dajte prosim zdrojak na ukazku.

budem velmi vdacny lebo na toto asi ani tutorialy neexistuju.

najlepsie aby boli v c++

kedysi dávno keď som sa učil pracovať s myšou som zmajstroval v delphi takéto čosi:

Kód: Vybrať všetko

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure MoveMouse(X,Y,Speed: Integer);
    procedure klik(xy:TPoint);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
  Pt : TPoint;
begin
MoveMouse (38,760,7);
klik(Pt);
MoveMouse (38,720,7);
klik(Pt);
MoveMouse (560,300,7);
klik(Pt);
close;
end;


procedure TForm1.MoveMouse (X,Y,Speed: Integer);
var
  wd, hh : integer;
  mm : TPoint;
begin
 if Speed < 1 then Speed := 1;
 wd := X;
 hh := Y;
 Repeat
   sleep(speed);
   Application.Processmessages;
   GetCursorPos(mm);
   with mm do
   begin
     If x > wd then
     dec(x)
     else
     If x < wd then
     inc(x);
     If y > hh then
     dec(y)
     else
     If y < hh then
     inc(y);
   end;
   SetCursorPos(mm.x,mm.y);
 until (GetAsyncKeystate(Vk_Return) <> 0) or ((mm.X=X) and (mm.Y=Y));
end;

procedure TForm1.klik(xy:TPoint);
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
             MOUSEEVENTF_LEFTDOWN,
             xy.x,
             xy.y,
             0,
             0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
             MOUSEEVENTF_LEFTUP,
             xy.x,
             xy.y,
             0,
             0);
end;

end.

simuluje pohyby myši na štart/vypnúť.. kompletné vypnutie počítača

//Edit: je to robené pre rozlíšenie 1024x768 nie je ale problém dorobiť podmienky nech si zistí akutálne rozlíšenie a prepočíta súradnice..

string

tak toto je brutalitka, trochu dost pokrocile

dost dobre je ako sa ta myska neda zastavit

len ako program zisti aktualne rozlisenie tieto output prikazy vobec neviem

string napísal:tak toto je brutalitka, trochu dost pokrocile

dost dobre je ako sa ta myska neda zastavit

len ako program zisti aktualne rozlisenie tieto output prikazy vobec neviem

ak je záujem a bude čas tak to môžem dotiahnúť dokonca

deblasco

skuste toto:
skopirujte a v start->run spustite...

Kód: Vybrať všetko

shutdown -r -m \\%computername% -c "Lamas restart..." -f -t 3

(o:

string

skuste toto:
skopirujte a v start->run spustite...
Kód:
shutdown -r -m \\%computername% -c "Lamas restart..." -f -t 3

JJ na toto som dnes rano dosiel ked som skusal ako vypnut pc cez program a vprogramoval som to do c++ buildera

//Ulozte si pracu nez to spustite

Kód: Vybrať všetko

http://data2.edisk.cz/stahni/37717/vypnutie.exe_445kB.html

//sry upol som predtym zly subor

string: si si istý, že si upol správny súbor? lebo je tam dfm (delphi form) a píšeš o c++ builderovi.. a okrem toho, ten dfm je nanič keďže ide iba o rozloženie komponentov na formulári ale žiaden kod

Lion · Príspevok od používateľa **Lion** » 01 apr 2007, 11:16

da se timhle vypnout pc na dalku pres sit?

Lion napísal:da se timhle vypnout pc na dalku pres sit?

pozri to čo písal deblasco. namiesto %computername% môžeš dať IP. Napríklad keď to nahradíš 127.0.0.1 tak ti to tiež vypne komp a keď tam dáš IP kompu na sieti tak vypne ten.. Potom to stačí dať do nejakého programu, kde by si napríklad zadával IP ako vstup, alebo daj štart/spustiť/shutdown -i a otovorí ti grafické ovládanie príkazu shutdown

deblasco

audiotrack napísal:pozri to čo písal deblasco. namiesto %computername% môžeš dať IP. Napríklad keď to nahradíš 127.0.0.1 tak ti to tiež vypne komp a keď tam dáš IP kompu na sieti tak vypne ten.. Potom to stačí dať do nejakého programu, kde by si napríklad zadával IP ako vstup, alebo daj štart/spustiť/shutdown -i a otovorí ti grafické ovládanie príkazu shutdown

iba ak si v domene alebo mas meno heslo identicke na svojom aj na cielovom PC

...a mas admin prava alebo pravo na remote shutdown

21tomy21

Ako by sa to dalo prerobiť aby to šlo na všetkých rolíšeniach ????

21tomy21 napísal:Ako by sa to dalo prerobiť aby to šlo na všetkých rolíšeniach ????

normálne si zistíš rozlíšenie pomocou príkazov GetSystemMetrics(SM_CXSCREEN); a GetSystemMetrics(SM_CYSCREEN); a podľa toho prerátaš súradnice a tie pošleš ako argumenty do procedúry MoveMouse... teraz sa mi to nechce robiť, cez sviatky ti to spravím ak to chceš a nezvládaš to sám

21tomy21

jj budem veľmi rád......

programator

deblasco napísal:skuste toto:
skopirujte a v start->run spustite...
Kód: Vybrať všetko
shutdown -r -m \\%computername% -c "Lamas restart..." -f -t 3
(o:

A potom rychlo do 3 sekund treba spustit start->run a napisat

Kód: Vybrať všetko

shutdown -a

Aby sa vam to PC neresetlo...

Lion · Príspevok od používateľa **Lion** » 04 apr 2007, 20:27

Kód: Vybrať všetko

shutdown -r -m \\%computername% -c "Lamas restart..." -f -t 3

tohle jsem zkousel takhle

Kód: Vybrať všetko

shutdown -r -m \\192.168.1.157 -c "Lamas restart..." -f -t 3

a nejde me to

Brian

audiotrack napísal:pozri to čo písal deblasco. namiesto %computername% môžeš dať IP. Napríklad keď to nahradíš 127.0.0.1 tak ti to tiež vypne komp a keď tam dáš IP kompu na sieti tak vypne ten.. Potom to stačí dať do nejakého programu, kde by si napríklad zadával IP ako vstup, alebo daj štart/spustiť/shutdown -i a otovorí ti grafické ovládanie príkazu shutdown

Vyplo by to akýkoľvek PC cez internet ä ten na ktorý zadám adresu? Vypne ho iba raz, alebo ho bude vypynať dookola až kým sa nezadá ten prikaz

Kód: Vybrať všetko

shutdown -a

A vypne to zaroveň aj moj komp alebo nie?

chlape, máš v tom pekný chaos..
1) nevypne to žiaden komp cez net. Nejde o IP akú ti pridelil provider, ale o IP akú si nastavil v rámci siete... To znamená že vypne len komp s ktorým si fyzicky spojený cez kábel (alebo iné sieťové prvky) a za predpokladov ktoré spomenul deblasco
2) vypne ho len raz, nie dookola
3) vypne len kom so zadanou adresou. Ak tam nezadáš svoju, tak tvoj nevypne, ak tam zadáš ip 127.0.0.1 čo je IP localhostu tak vypne teba

Brian · Príspevok od používateľa **Brian** » 06 apr 2007, 7:51

Aha... OK no konečne chapem. Nedalo by sa spraviť niečo podobné, čo by vypínalo PC podľa IP adresy cez internet?

snake2

Brian napísal:Aha... OK no konečne chapem. Nedalo by sa spraviť niečo podobné, čo by vypínalo PC podľa IP adresy cez internet?

tot asi nie , lebo cez net mas uz niektore dolezite porty blokovane ...a tento packet by pravdepodobne neprisiel a dotycny by musel mat verejnu IP

programator

Brian napísal:Vyplo by to akýkoľvek PC cez internet ä ten na ktorý zadám adresu? Vypne ho iba raz, alebo ho bude vypynať dookola až kým sa nezadá ten prikaz
Kód: Vybrať všetko
shutdown -a 
A vypne to zaroveň aj moj komp alebo nie?

nie,

Kód: Vybrať všetko

shutdown -a

zrusi vypnutie PC...

Vtipne programy co resetuju komp

Vtipne programy co resetuju komp

all

Re: all