IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Tespit edilen Proxy Sayısı: 0

Önceden çalışan sistem nedense artık 0 olarak çıkıyor ve proxy.txt diye dosyayı yaratmıyor. Problem ne olabilir ?

Kod:

on *:start:.timer 0 12000 /proxycek

on *:text:*:#opers:if $1 == !proxycek { .proxycek }

alias proxycek { sockclose ipal* | ipal1 | ipal2 | ipal3 }

alias ipal1 { .remove proxy.txt | sockopen ipal1 new-daily-proxies.blogspot.com 80 }

on *:sockopen:ipal1:{ sockwrite -n $sockname GET / HTTP/1.1 | sockwrite -n $sockname Host: new-daily-proxies.blogspot.com | sockwrite -n $sockname $crlf }

on *:sockread:ipal1:{

  var %ipal | sockread %ipal | .tokenize 32 %ipal

  if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { .write proxy.txt $token(%ipal,1,58) } }

}

alias ipal2 { sockopen ipal2 proxy-heaven.blogspot.com 80 }

on *:sockopen:ipal2:{ sockwrite -n $sockname GET / HTTP/1.1 | sockwrite -n $sockname Host: proxy-heaven.blogspot.com | sockwrite -n $sockname $crlf }

on *:sockread:ipal2:{

  var %ipal1 | sockread %ipal1 | .tokenize 32 %ipal1

  if (*.*.*:* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { .write proxy.txt $token(%ipal1,1,58) } }

}

alias ipal3 { sockopen ipal3 socksproxy-list.blogspot.com 80 }

on *:sockopen:ipal3:{ sockwrite -n $sockname GET / HTTP/1.1 | sockwrite -n $sockname Host: socksproxy-list.blogspot.com | sockwrite -n $sockname $crlf }

on *:sockread:ipal3:{

  var %ipal2 | sockread %ipal2 | .tokenize 32 %ipal2

  if (*.*.*:* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { .write proxy.txt $token(%ipal2,1,58) } }

}

on *:sockclose:ipal3:msg #b 2Tespit edilen 4Proxy 2Sayısı: $lines(proxy.txt)

}