Emrehan Nickli Üyeden Alıntı
(Mesaj 1042003139)
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bunu dene. Kod:
;- Ayarlar..
alias _sunucu1 return irc.sohbetyeri.org:7003
alias _sunucu2 return irc.sohbetyeri.org:7003
alias _nick return $read(nick.txt)
alias _ident return $read(ident.txt)
;Bot'ların sayısı lütfen belirleyiniz
-
;Gece 1'den saat 9'a kadar girecek bot sayısı
alias _sabah return 250
;Sabah 9'dan öglen 12'ye kadar girecek bot sayısı
alias _öglen return 400
;Öglen 12'den akşam 8'e kadar girecek bot sayısı
alias _aksam return 450
;Akşam 8'den gece 1'e kadar girecek bot sayısı
alias _gece return 600
;-
alias sw if ($sock($1).status == active) sockwrite -nt $1-
###################### Ayarlancak Bolum Ust Kısım Sadece! ######################
alias clone {
if $lines(proxy.txt) == 0 { .timercycle off | unset %* | _al | return }
var %:proxy $read(proxy.txt), %:rnd $+($md5($ticks),$r(10,999))
if $read(proxy.txt,w,$+(*,%:proxy,*)) { .write $+(-,dl,$readn) proxy.txt }
sw $+(cycle,%:rnd) quit | $+(.timer,%:rnd,¿*) off
$iif(!$sock($+(cycle,%:rnd)),.sockopen $+(cycle,%:rnd) $gettok(%:proxy,1,58) $gettok(%:proxy,2,58))
}
on *:start:{
_al
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias _güncel { echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) | sockclose _proxy* | unset %* | .timercycle 1 5 kontrol }
alias _ekle {
if $regex($1,/(\d+\.\d+\.\d+\.\d+)) {
if !$read(proxy.txt,w,$1) { .write proxy.txt $+($1,:,$2) }
}
}
alias _al {
.remove proxy.txt
sockclose links
sockopen links
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
$+(.timer,qproxy) 1 60 _güncel
}
on *:sockopen:links:{
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:links:{
var %links | sockread %links | .tokenize 32 %links
if (*#more* iswm %links) { return }
if (*timestamp-link*.html* iswm %links) {
var %rand $rand(10,999999)
.sockopen $+(ipal,%rand) $sock($sockname).addr 80
.sockmark $+(ipal,%rand) $token($token(%links,3-5,47),1,39)
}
}
on *:sockopen:ipal*:{
sockwrite -nt $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:ipal*:{
var %ipal | sockread %ipal | .tokenize 32 %ipal
if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) {
_ekle $token(%ipal,1,58) $token(%ipal,2,58)
}
}
Ayrıca o sunucuya o porttan girmez cycle. Bilgin olsun.
|
