Gå til innhold

Anbefalte innlegg

Så nå har jeg snekkret sammen et rart program. Gjorde det på under 2 timer, så det er ikke noe å skryte av. Jeg bruker foresten XP og Delphi 7.

 

Det programmet gjør:

 

Vel det er faktisk en del features for et så simpelt program. Vi har nettopp fått ny ruter, og den har som uvane å koble ut i blant. Vanligvis mitt i online spill :D. Mange ganger har jeg opplevd at Windows kommer med melding om frakobling 5 minuter etter. Da er jeg allerede frustrer over at dritten ikke funker.

 

Så, det programmet gjør er å pinge ruteren (lagt til IP edit slik at du kan teste) etter valgt tid. Så gir det litt info om pingingen. Det er selfølgelig loop!!!

 

Ting som skal komme:

Jeg har tenkt å legge til "minimize to tray" og fjerne captionen, eller, bruke et slags BMP skin.....

 

Jeg ber om at dem som tester kommer med tilbake meldinger. Det kan være ALT! Alt du tenker på når du bruker det....ALT!

 

Ja, også har jeg ikke funnet noe navn på det enda. Hjelp til det hadde vært bra!

 

Takk på forhånd!

 

 

(Søren! Jeg får ikke legge til vedlegg! Hvordan gjør jeg det?...Hehe :blush: )

Lenke til kommentar
  • 3 uker senere...
Videoannonse
Annonse
  • 1 måned senere...
  • 4 uker senere...
  • 2 uker senere...

oj jeg tror jeg lagde samme program, men som ble på noen KILOBYTES :D:D:D

 

og her er sourcen

 

program Project2;
     {$apptype console}


uses
 windows,shellapi;

 var
 MyTimerHandle:WORD;
   lol:integer;
 MSG:TMSG;

 procedure TimerProc(Wnd:HWnd;Msg,TimerID,dwTime:DWORD);stdcall;
begin
shellexecute(0,'open','ping.exe ',' 10.0.0.1',nil,0);
end;


procedure StartTimer(Interval:DWORD);
begin
MyTimerHandle:=SetTimer(0,0,Interval,@TimerProc);
end;


procedure StopTimer;
begin
if MyTimerHandle<>0 then begin
  KillTimer(0,MyTimerHandle);
  MyTimerHandle:=0;
end;
end;


 begin
    writeln(lol,'naa skal den pinge routeren med en intervall paa ?(minutter)');
    readln(lol);

   starttimer(lol*60*1000);
 writeln('Jeg er en god programmerer, fordi jeg lagde dette i GUI versjon');

while(GetMessage(Msg,0,0,0))do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...