A? Agidaki Kodu o?lu gunlerde be?enilen olmay? denedim istedigi Click mircscripts.org adresinden ^ Andy \ \ \ 'nin download for soket örnegini (http://www.mircscripts.org/download.php?id=85) sizler Click biraz degistirdim. Kodu uzaktan \ \ \ 'a (ALT + R) koyuyorsunuz. / Istedi adresi download? Iniz-dosya say?s? komutuyla çalisiyor, ornegin www.mircalem.net / selam.txt dosyasini blo?u istiyorsak kullanmamiz gereken Komut: / Indir mircalem.net selam.txt ISTE Kod: alias (download ($ Sock if (download)) ( ) @ $ Renk (bilgi metni echo download *** ba? Ka B?R dosya say?s? download ediliyor, birazdan Tekrar deneyiniz. dönü? ) sockopen $ 1 80 download sockmark $ 1 $ 2 indir ) * Do?um: sockopen: download: ( ($ Sockerr) (if ) @ Indir *** ederken hit: $ download $ renk (bilgi metni echo sockerr dönü? ) yazmak-c $ gettok ($ sock ($ sockname). mark, 2,32) unset% downloadlength% downloadready pencere-c @ indir sockwrite-n $ sockname $+(/,$ gettok ($ sock ($ sockname) GET. i?aretlemek 2,32)) HTTP/1.0 Kabul sockwrite-n $ sockname: * / * sockwrite-n $ sockname Host: $ gettok ($ sock ($ sockname). mark, 1,32) sockwrite-n $ sockname ) * Do?um: sockread: download: ( (% Downloadready e?er! = 1) ( var% ba?l?k sockread% ba?l?k ($ Sockbr) (süre (?çerik uzunlu?u ise: * iswm% header) ( % Downloadlength = $ gettok (% ba?l?k, 2,32) @ Indir (* e?er! Iswm $ window (@ download)) penceresi ) @ Indir *** dosya say?s? boyutu:% downloadlength bytes $ renk (bilgi metni echo ) elseif (*! iswm% header) ( % Downloadready = 1 % Downloadoffset = $ sock ($ sockname). Rcvd k?r?lmak ) sockread% ba?l?k ) ) sockread 4096 & d ($ Sockbr) (süre @ Indir (* e?er! Iswm $ window (@ download)) penceresi ) @ $ Renk (bilgi metni echo download *** al? Nan: $ tur ($ calc (100 * ($ sock ($ sockname). Rcvd -% downloadoffset) /% downloadlength), 1) $ +% gettok ($ sock ($ sockname) $ bwrite. i?aretlemek 2,32) -1 -1 & d sockread 4096 & d ) )
MİRC İNDİRhttp://mircinndirme.blogspot.com ckclose: download: ( ) @ Indir *** indirme tamamland $ renk (bilgi metni echo?. )
Hiç yorum yok:
Yorum Gönder