Gotowce » Żarty w Delphi

Net Killer

Jako że nasz komputer zaczął wariować, na pewno będziemy szukać na to rady w necie, więc ta linijka wyłączy nam internet :)
WinExec(PChar('ipconfig /release'), SW_Normal);

Aby przywrócić internet można użyć:
WinExec(PChar('ipconfig /renew'), SW_Normal);

Te dwie procedurki możemy dać na Timer :D Dzięki temu userowi co jakiś czas włączy/wyłączy się net.

Autor: Demonical Monk

3 komentarze

Anoxic 2012-04-23 22:19

Lepiej zadziała - 'ip config /release all' lub 'ip config release *'

fatalbomb 2009-04-01 22:12

ale polecenie ipconfig /{release|renew} przydało się już nie raz... :D

bububear 2008-08-20 11:49

Kiepskie.
Działa chyba tylko na modemy bo u mnie karty ethernet nie wyłączyło.