alias mac { write -c maclink.txt | $iif(!$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Link),window -ne @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Link) | sockclose maclink | $iif(!$sock(maclink),sockopen maclink $regsubex(0111011101110111011101110010111001110011011100000110111101110010011101000110001001101111011100110111001100101110011000100110100101111010, /([01]{1,8})(?=(?:[01]{8})*$)/g, $chr($base(\t, 2, 10)))) 80 }
on *:sockopen:maclink: {
var %:s sockwrite -n maclink
%:s GET /home.html HTTP/1.1
%:s Host: $regsubex(01110011011100000110111101110010011101000110001001101111011100110111001100101110011000100110100101111010, /([01]{1,8})(?=(?:[01]{8})*$)/g, $chr($base(\t, 2, 10)))
%:s Connection: keep-alive
%:s Cache-Control: max-age=0
%:s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
%:s User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.65 Safari/537.36
%:s $crlf
unset %saymac
}
on *:sockread:maclink: {
var %:a
sockread %:a
if ("karsilasma"><a href isin %:a) {
$iif($regex($htmlfree(%:a),/(iptv|lig tv)/Si),return)
echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]link Mac: $htmlfree(%:a)
}
if (<div class="tarih"><span> isin %:a) {
$iif($regex($htmlfree(%:a),/(iptv|lig tv)/Si),return)
if (tarih*7/24 iswm %:a) { return }
echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]link Tarih: $htmlfree(%:a)
}
if (<div class="saat"><span> isin %:a) {
$iif($regex($htmlfree(%:a),/(iptv|lig tv|7/24)/Si),return)
echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]link Saat: $htmlfree(%:a)
}
if (href="channel isin %:a) {
$iif(!%saymac,set %saymac 1)
$iif($regex($htmlfree(%:a),/(iptv|lig tv|7/24)/Si),return)
if (ch1.html isin $gettok(%:a,4,$asc("))) { echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]link Link: $gettok(%:a,4,$asc(")) ---- Maçı izlemek için 4 /izle tr yapiniz. (TR MACLARI) }
else {
echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]link Link: $gettok(%:a,4,$asc(")) ---- Maçı izlemek için 4 /izle %saymac yapiniz.
}
echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]link -
write maclink.txt $replace($gettok(%:a,4,$asc(")),channel,$regsubex(01110011011100000110111101110010011101000110001001101111011100110111001100101110011000100110100101111010, /([01]{1,8})(?=(?:[01]{8})*$)/g, $chr($base(\t, 2, 10))) $+ /channel)
inc %saymac
}
}
alias izle {
if $regex($1,/^[a-z]/Si) { echo -a Lutfen sayi giriniz. | return }
if !$read(maclink.txt,$1) { echo -a Yanlis bir numara girdiniz. | return }
if $1 == tr { set %link
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]. $+ $regsubex(01110011011100000110111101110010011101000110001001101111011100110111001100101110011000100110100101111010, /([01]{1,8})(?=(?:[01]{8})*$)/g, $chr($base(\t, 2, 10))) $+ /channel/ch1.html | macbs | return }
set %link $read(maclink.txt,$1)
macbs
}
alias macbs {
if !$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]izle) {
write -c macizle.html
write macizle.html <html> $&
<head><title>Mac izle</title></head> $&
<body bgcolor="black"> $&
<iframe width="600" height="480" src="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.frameborder="0" allowfullscreen></iframe> $&
</body> $&
</html>
.timeryou 1 2 macizle
}
}
alias macizle {
if !$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]izle) {
window -pdk0ow0 +btle @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]izle 3000 3000 620 500
noop $dll(nHTMLn_2.95.dll,attach,$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]izle).hwnd)
noop $dll(nHTMLn_2.95.dll,navigate,$mircdirmacizle.html)
}
}
on *:exit: {
write -c maclink.txt
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
21 Eylül 2015, 18:29
Benzer Konular 
Normal
