alias cek sockopen $+(cek,$r(10,99999)) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
on *:sockopen:cek*:{ 
  sockwrite -nt $sockname GET /cgi/clicks.pl?20819 HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:cek*:{ 
  var %:ip | sockread %:ip
  if $regex(ip,%:ip,/(\d+\.\d+\.\d+\.\d+)/g) { _ayıkla $regml(ip,0) }
}
alias _ayıkla { var %:a = 1 | while %:a <= $1 { .write pro.txt $regml(ip,%:a) | inc %:a } }