| Cpu | 05 Haziran 2014 16:02 |
Proxy çekme
Kod:
alias ProxyList {
; Syntax: /ProxyList [-pageNo]
; eg. /ProxyList 4
; ----------------
; By Jonesy44
; ----------------
; EDIT THIS NEXT LINE FOR PROXYLIST FILE NAME!
set %ProxyList.FileName ProxyList.dat
; STOP EDITING HERE!
.sockclose ProxyList.1 | .sockclose ProxyList.2 | .sockclose ProxyList.3
.remove %ProxyList.FileName
.timerCompletedCheck 0 1 ProxyList.CompletedCheck
var %n = 1
echo -a 2* ProxyList: Downloading latest proxy list..
while %n <= $iif($1 isnum 1-,$1,3) {
sockopen $+(ProxyList.,%n) samair.ru 80
inc %n
}
}
alias ProxyList.CompletedCheck {
if !$sock(ProxyList.1) || !$sock(ProxyList.2) || !$sock(ProxyList.3) {
echo -a 4Succesfully downloaded $lines(%ProxyList.FileName) proxy addresses. Stored in $qt(%ProxyList.FileName)
.timerCompletedCheck off
unset %ProxyList.*
}
}
alias ProxyList.RemoveHTML return $regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)|&[^;]+;| /g,$null)
on *:sockopen:ProxyList.*:{
if $sockerr { echo -a Socket error: $sock($sockname).wsmsg }
else {
sockwrite -nt $sockname GET $+(/proxy/time-0,$gettok($sockname,2,46),.htm) HTTP/1.1
sockwrite -nt $sockname Host: samair.ru
sockwrite -nt $sockname $crlf
}
}
on *:sockread:ProxyList.*:{
var %SocketRead
sockread %SocketRead
if !$sockerr {
if $regex(%SocketRead,/(\D=\d)/g) {
var %Index = 1,
while %Index <= $regml(0) {
set %ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ] $+(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],$chr(32),$gettok($regml(%Index),1,61),-,$gettok($regml(%Index),2,61))
inc %Index
}
echo -a 2* ProxyList: Generating decode key for page $gettok($sockname,2,46) -- 3Created key succesfully
}
if $regex(%SocketRead,/<tr><td>.*<\/td><\/tr>/i) {
var %SocketRead = $remove($ProxyList.RemoveHTML(%SocketRead),document.write,$chr(40),+,")
var %Index = 1
while %Index <= $numtok(%SocketRead,41) {
noop $regex($gettok(%SocketRead,%Index,41),/(\d+.\d+.\d+.\d+\:.*)/)
var %Output = $regml(1)
if $regml(1) {
var %SubIndex = 1
while %SubIndex <= $numtok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],32) {
%Output = $replace(%Output,$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),1,45),$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),2,45))
inc %SubIndex
}
write %ProxyList.FileName %Output
}
inc %Index 1
}
}
}
else echo -a Socket error: $sock($sockname).wsmsg
}
Bu kodda samair.ru sitesinden proxy çekeceðiz fakat 100 den fazla çekmiyor nedendir acaba |
