Merhabalar.
Ben birisi mesela tinyurl.com link verdiinde o sitede myminicity.com yada experiments.w3z.de gibi siteye yönlendiriyorsa o nu kanaldan atmasini istiyorum.
Connectiontest to "http://tinyurl.com/3ahof8" successful. (Forwarding to:
Elimde bu gibi siteleri taniyacak bir kod var (mircscripts.org dan buldum) ama nasil istegime göre cevirebileceigimi bilemiyorum.
Kod: Kodu kopyalamak için üzerine çift týklayýn!
alias connectiontest {
if ($regex($2-,/(?:window\s)?(?:http://)?((?:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
if (($me ison $1) || ($1-2 == Status Window) || ($left($1,1) == @) || ($query($1))) { sockclose Connectiontest | sockopen Connectiontest $regml(1) $iif($regml(3),$regml(3),80) | sockmark Connectiontest $ticks $replace($1-,Status Window,-s) }
else { echo $color(info) -s * /connectiontest target error. Syntax: /connectiontest target url }
}
else {
if ($isid) { return $false }
elseif ($me ison $1) { msg $1 " $+ $2 $+ " isnt a correct URL. Syntax: /connectiontest target url }
else { echo $color(info)-s * /connectiontest " $2 $+ " isnt a correct URL. Syntax: /connectiontest target url }
}
}
on *:sockopen:connectiontest: {
tokenize 32 $sock($sockname).mark | noop $regex($3-,/(?:window\s)?(?:http://)?((?:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
var %s sockwrite -n $sockname
if ($sockerr) { $iif($query($2) || $me ison $2,msg,echo) $2 Connectiontest to " $+ $remove($iif($4 && $3 != /,$2-3,$3),$chr(32)) $+ " 4not successful. (Host $+(",$regml(1),") $iif($regml(3),on port $regml(3)) not found.) | return }
%s GET $iif($regml(2),$v1,/) HTTP/1.1 | %s Host: $regml(1) | %s
}
on *:sockread:connectiontest: {
var %t | sockread %t | tokenize 32 $sock($sockname).mark | noop $regex(%t,/HTTP\S* (\d+).*/gi) | noop $regex(info,$3-,/(?:window\s)?(?:http://)?((?:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
if ((!%t) && (%connectiontest)) { sockread %t | if (!%t) { $iif($query($2) || $me ison $2,msg,echo) $2 Connectiontest to " $+ $remove($iif($5 && $4 != /,$3-4,$3),$chr(32)) $+ " successful. (Server found, no file. ( $+ $calc($ticks - $1) $+ ms)) | sockclose $sockname } }
elseif ($regml(1) >= 400) { $iif($query($2) || $me ison $1,msg,echo) $2 Connectiontest to " $+ $remove($iif($5 && $4 != /,$3-4,$3),$chr(32)) $+ " 4not successful. (File " $+ $regml(info,2) $+ " not found. ( $+ $calc($ticks - $1) $+ ms)) | sockclose $sockname }
elseif ($regml(1)) { set %connectiontest $regml(1) }
elseif ($regex(info,%t,/\s*(?:(?:.*<Title>)?\s*(.+)</(title)>\s*|\s*(Location):\s*(.+))/i)) { $iif($query($2) || $me ison $2,msg,echo) $2 Connectiontest to " $+ $remove($iif($5 && $4 != /,$3-4,$3),$chr(32)) $+ " successful. ( $+ $htmldecode($replace($regml(info,$iif($istok(location title,$regml(info,1),32),1,2)),Location,Forwarding to,title,Title) $+ : $regml(info,$iif($istok(location title,$regml(info,1),32),2,1))) ( $+ $calc($ticks - $1) $+ ms)) | sockclose $sockname }
elseif ($regex(%t,\s*</html>\s*)) { $iif($query($2) || $me ison $2,msg,echo) $2 Connectiontest to " $+ $remove($iif($5 && $4 != /,$3-4,$3),$chr(32)) $+ " successful. ( $+ $calc($ticks - $1) $+ ms) | sockclose $sockname }
}
alias -l htmldecode {
var %r = $replacecs($1,",$chr(34),',$chr(39),&,$chr(38),<,$chr(60),>,$chr(62), ,$chr(160),¡,$chr(161),¤,$chr(164),¢,$chr(162),£,$chr(163))
var %r = $replacecs(%r,¥,$chr(165),¦,$chr(166),§,$chr(167),¨,$chr(168),©,$chr(169),ª,$chr(170),«,$chr(171),¬,$chr(172),*,$chr(173),®,$chr(174))
var %r = $replacecs(%r,™,$chr(8482),¯,$chr(175),°,$chr(176),±,$chr(177),²,$chr(178),³,$chr(179),´,$chr(180),µ,$chr(181),¶,$chr(182),ÿ,$chr(255))
var %r = $replacecs(%r,·,$chr(183),¸,$chr(184),¹,$chr(185),º,$chr(186),»,$chr(187),¼,$chr(188),½,$chr(189),¾,$chr(190),¿,$chr(191))
var %r = $replacecs(%r,×,$chr(215),÷,$chr(247),À,$chr(192),Á,$chr(193),by Flobse,by Flobse,Â,$chr(194),Ã,$chr(195),Ä,$chr(196),Å,$chr(197),Æ,$chr(198))
var %r = $replacecs(%r,Ç,$chr(199),È,$chr(200),É,$chr(201),Ê,$chr(202),Ë,$chr(203),Ì,$chr(204),Í,$chr(205),Î,$chr(206),Ï,$chr(207))
var %r = $replacecs(%r,Ð,$chr(208),Ñ,$chr(209),Ò,$chr(210),Ó,$chr(211),Ô,$chr(212),Õ,$chr(213),Ö,$chr(214),Ø,$chr(216),Ù,$chr(217))
var %r = $replacecs(%r,Ú,$chr(218),Û,$chr(219),Ü,$chr(220),Ý,$chr(221),Þ,$chr(222),ß,$chr(223),à,$chr(224),á,$chr(225),â,$chr(226))
var %r = $replacecs(%r,ã,$chr(227),ä,$chr(228),å,$chr(229),æ,$chr(230),ç,$chr(231),è,$chr(232),é,$chr(233),ê,$chr(234),ë,$chr(235))
var %r = $replacecs(%r,ì,$chr(236),í,$chr(237),î,$chr(238),ï,$chr(239),ð,$chr(240),ñ,$chr(241),ò,$chr(242),ó,$chr(243),ô,$chr(244))
var %r = $replacecs(%r,õ,$chr(245),ö,$chr(246),ø,$chr(248),ù,$chr(249),ú,$chr(250),û,$chr(251),ü,$chr(252),ý,$chr(253),þ,$chr(254))
var %r = $replacecs(%r,$chr(36),$,„,",“,",–,-)
var %r = $regsubex(%r,/&#(\d+);/g,$chr(\1))
return %r
}
19 Aralýk 2007, 13:42
Benzer Konular 
Normal
