| immortaL | 05 Þubat 2018 17:27 |
YouTube Link
Kod:
alias youtube {
if $sock(youtube1) {
sockclose $ifmatch
}
sockopen -e youtube1 www.************ 443
}
on *:sockopen:youtube1: {
if $sockerr {
echo -a 12Baðlantý hatasý $sock($sockname).wsmsg
return
}
sockwrite -nt $sockname GET $+(/results?search_query=,$hget(********youtube)) HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host: www.************
sockwrite -nt $sockname
}
on *:sockread:youtube1: {
if $sockerr {
return
}
else {
if $sock($sockname) {
sockread %f
if *h3 class="yt-lockup-title ">
inc -u1 %yu
if %yu == 1 {
echo -a 0,4 $+ $ghta($htmlfree($gettok(%f,12,34))) 11,1 Parçanýn 4YouTube11,1 klibi için týklayýnýz. 12 $+ $+(https://www.************,$gettok(%f,6,34) ) $+
sockclose $sockname
}
}
}
}
}
alias ytb {
var %m 1
%retyb = $1-
while %m <= $numtok(%retyb,32) {
if www isin $gettok(%retyb,%m,32) || .com isin $gettok(%retyb,%m,32) || .net isin $gettok(%retyb,%m,32) || .org isin $gettok(%retyb,%m,32) {
%retyb = $deltok(%retyb,%m,32)
}
inc %m
}
if - isin %retyb {
return $+(",$replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),-,",$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s),")
}
else {
return $replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s)
}
}
alias klipara {
if $hget(********ytb) {
hdel youtube ytb
}
hadd -m youtube youtube $ytb($1-)
youtube
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
alias ghta {
return $replace($1-,â,a,’,',Â,$chr(32),Åž,Þ,°,°,Ç,Ç,Ä°,Ý,Å?,Þ,Ãœ,Ü,ı,ý,ÅŸ,þ,Ç,Ç,ç,ç,ÄŸ,ð,ÅŸ,þ,ü,ü,ı,ý,ö,ö,Ö,Ö,Ä,Ð,ü,ü,ç,ç,ö,ö,’,')
}
Socks bota eklemek için ise; Kod:
on $*:text:/^[.!]l[Ýiý]nkara/Si:#: {
%ytbc = $chan
klipara $2-
}
|
